Una Mano, Please

[sebastianarroyo]

 Hola, estoy tratando de rescatar un pedazo de la data que me da MSComm1.Input, el dato util lo tengo  despues de las letras "NMBR".-
me pueden dar una mano para rescatar este dato !

Ejemplo (TIME=1253  NMBR=0112563479 )
Resultado = 0112563479

GRacias
Sebastian

[Pogacha]

 En que lenguaje es?
Parece VB ... siendo así creo que con un par de for puedes delimitar el principio y el final del dato y con $mid o algo así para tomar esta cadena y ya la tienes en la mano, o sea, especifica un poco mejor el problema para que podamos ayudarte.

Saludos.

[sebastianarroyo]

 Gracias por el click.
Claro esa es la idea, utilizar mid.
creo que el ejemplo no fue tan bueno.
La cadena la tomo desde MSComm1.Input. el tema es como utilizo "mid"

cadena (TIME=1253 NMBR=0112563479 )  " este es el data que viene desde
MSComm1.Input.

Resultado = 0112563479 y este tiene que ser mi resultado.-

Sebastian  

[Pogacha]

 Yo no se visual basic pero creo que seria algo como

Código [Seleccionar] Expand

n = length( cadena )

for i = 6 to n
if cadena(i) = '=' then goto listo
next

listo:

Resultado = "Resultado = " + mid(cadena, i +1, n-2 )

empezando en 6 me paso el fijo "TIME=" y esquivo el variable 1234 ... luego busco el otro igual y creo la cadena.

Algun visualbasiquero que lo arregle por favor, creo que es todo lo que puedo decir y seguramente es incorrecto pero el camino puede será algo como este.

[[EX3]]

 Mas facil aun:

Código [Seleccionar] Expand

Const Total As String = "TIME=1253 NMBR=0112563479"
Dim Resultado As String

Resultado = Right$(Total, Len(Total) - InStrRev(Total, "="))

MsgBox Resultado
Salu2... ;)

P.D.: Pogacha, como osas usar la instruccion prohibida Goto!!! xDDD

[Pogacha]

 Por que programaba Basic en la primera mitad de mi vida, cuando tenia 12 años ... hace mas de 13 años, y para la spectrum que no tenia semejantes funciones como "InStrRev"  :P
Saludos.