Foros aprenderaprogramar.com
Aprender a programar => Aprender a programar desde cero => Mensaje iniciado por: CARE en 07 de Junio 2016, 19:53
-
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.
-
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:
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:
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:
' 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
-
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 :D