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)


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

Nano
25 de Noviembre del 2005
Muchas gracias, funciono perfecto