Test Foro de elhacker.net SMF 2.1

Programación => .NET (C#, VB.NET, ASP) => Programación General => Programación Visual Basic => Mensaje iniciado por: GzaRC en 19 Diciembre 2019, 16:53 PM

Título: Dividir string en cadenas (Visual Basic 6)
Publicado por: GzaRC en 19 Diciembre 2019, 16:53 PM
Hola!

Tengo una variable string de 4 elementos cuyo valor es (ejemplo):

xVariable = "dato1, dato2, dato3, dato4"

Como puedo dividir a la misma para que me queden 4 variables con los valores:

xDato1 = "dato1"
xDato2 = "dato2"
xDato3 = "dato3"
xDato4 = "dato4"

Muchas gracias desde ya!!
Título: Re: Dividir string en cadenas (Visual Basic 6)
Publicado por: MCKSys Argentina en 19 Diciembre 2019, 17:27 PM
Hola!

Puedes usar split para partir el string en una matriz dinamica de strings.

Por ejemplo:

Código (vb) [Seleccionar]

'Matriz dinamica para almacenar los datos con Split
Dim datos() As String
Dim i as Integer

datos = Split("dato1, dato2, dato3, dato4", ",")

' Luego accedes a cada dato usando un sibindice

For i = LBound(datos) To UBound(datos)
    MsgBox datos(i) 
Next



Refs:
https://www.oreilly.com/library/view/vb-vba/1565923588/1565923588_ch07-2024-fm2xml.html (https://www.oreilly.com/library/view/vb-vba/1565923588/1565923588_ch07-2024-fm2xml.html)
En VBA es identico el uso, asi que la ref vale para VB6: https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/split-function (https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/split-function)

Saludos!
Título: Re: Dividir string en cadenas (Visual Basic 6)
Publicado por: GzaRC en 19 Diciembre 2019, 18:52 PM
Cita de: MCKSys Argentina en 19 Diciembre 2019, 17:27 PM
Hola!

Puedes usar split para partir el string en una matriz dinamica de strings.

Por ejemplo:

Código (vb) [Seleccionar]

'Matriz dinamica para almacenar los datos con Split
Dim datos() As String
Dim i as Integer

datos = Split("dato1, dato2, dato3, dato4", ",")

' Luego accedes a cada dato usando un sibindice

For i = LBound(datos) To UBound(datos)
    MsgBox datos(i) 
Next



Refs:
https://www.oreilly.com/library/view/vb-vba/1565923588/1565923588_ch07-2024-fm2xml.html (https://www.oreilly.com/library/view/vb-vba/1565923588/1565923588_ch07-2024-fm2xml.html)
En VBA es identico el uso, asi que la ref vale para VB6: https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/split-function (https://docs.microsoft.com/en-us/office/vba/language/reference/user-interface-help/split-function)

Saludos!


Muchisimaaaasss gracias!!!! !!