Extraer cadena de caracteres Visual Basic 6 funciones mid, left, right Strings

[CARE]

Hola Buenas tarde !

Ejemplo: tengo un Texto, su dato es 15/15248/25
Tengo que extraer los números por separado de la / y pasarlo a tres variable por ejemplo
me tiene que quedar 15 variable 1
                                 15248 variable 2
                                 25 variable 3
Ayuda !
Desde ya Saludos.

[Alex Rodríguez]

Hola, te puedes guiar por esta explicación:

Para extraer caracteres de un TextBox o alguna variable que los tenga, pueden usarse estas funciones: Left, Rigth ó Mid. Hay más funciones aparte de estas.


LEFT

Devuelve una cadena que contiene un número especificado de caracteres desde el lado izquierdo de una cadena.

Ejemplo:

Código: [Seleccionar]

Dim TestString As String = "Hello World!"
' Returns "Hello".
Dim subString As String = Microsoft.VisualBasic.Left(TestString, 5)

RIGHT

Devuelve una cadena que contiene un número especificado de caracteres desde el lado derecho de una cadena.

Ejemplo:

Código: [Seleccionar]

Dim TestString As String = "Hello World!"
' Returns "World!".
Dim subString As String = Microsoft.VisualBasic.Right(TestString, 6)

MID

Devuelve una cadena que a su vez contiene un número especificado de caracteres de una cadena.

Ejemplo:

Código: [Seleccionar]

' Creates text string.
Dim TestString As String = "Mid Function Demo"
' Returns "Mid".
Dim FirstWord As String = Mid(TestString, 1, 3)
' Returns "Demo".
Dim LastWord As String = Mid(TestString, 14, 4)
' Returns "Function Demo".
Dim MidWords As String = Mid(TestString, 5)
Saludos

[Zeta Zarate]

Hola Buenas tarde !

Ejemplo: tengo un Texto, su dato es 15/15248/25
Tengo que extraer los números por separado de la / y pasarlo a tres variable por ejemplo
me tiene que quedar 15 variable 1
                                 15248 variable 2
                                 25 variable 3
Ayuda !
Desde ya Saludos.

La verdad no he trabajado con visual basic 6
he investigado un poco y segun leo puedes usar el metodo split
Ejemplo:

dim palabra as string = "15/15248/25"
 ' aca puedes cambiarlo por el textbox
 ' ojo tienes que agregar un / al final de cada cadena
 ' tienes que quedar de la siguiente forma "15/15248/25/"
 ' para que funcione bien

dim Lista() as string = palabra.split("/")   
 'separas las palabras que tengan / entre ellas

dim var1 as string = Lista(0) ' 15
dim var2 as string = Lista(1) ' 15248
dim var3 as string = Lista(2) ' 25

Comentas como te fue