Ayuda con string
Nano
25 de Noviembre del 2005
Hola, necesito recuperar un n煤mero de un string y no se como hacerlo.. por favor alg煤n ejemplo o ayuda
gracias
pd: el sting es algo as铆
□Yinicial = □□ 4 □□Yfinal =□□159□□
y necesito por ejemplo el numero de Yfinal (159)
gracias
pd: el sting es algo as铆
□Yinicial = □□ 4 □□Yfinal =□□159□□
y necesito por ejemplo el numero de Yfinal (159)
mvallejos
25 de Noviembre del 2005
Analizando el string veo que no se pordr铆a usar la funci贸n Split, ya que no hay un patr贸n o separador bien definido.
Lo que se me ocurre es detectar el texto YFinal
Dim Posi as Integer
Dim Posi2 as Integer
Posi = Instr(1,Cadena,"Yfinal")
La variable Posi te va a retornar en que posici贸n de la cadena comienza la cadena Yfinal
Luego, buscar el siguiente punto y coma posterior a la posicion inicial de Yfinal
Posi2 = Instr(Posi,Cadena,";")
Luego, sacas el numero
Valor =Val( Mid(Cadena,Posi+6, Posi2 - Posi1-6))
Saludos
Lo que se me ocurre es detectar el texto YFinal
Dim Posi as Integer
Dim Posi2 as Integer
Posi = Instr(1,Cadena,"Yfinal")
La variable Posi te va a retornar en que posici贸n de la cadena comienza la cadena Yfinal
Luego, buscar el siguiente punto y coma posterior a la posicion inicial de Yfinal
Posi2 = Instr(Posi,Cadena,";")
Luego, sacas el numero
Valor =Val( Mid(Cadena,Posi+6, Posi2 - Posi1-6))
Saludos
Nano
25 de Noviembre del 2005
Muchas gracias, funciono perfecto