Dividir string en cadenas (Visual Basic 6)

[GzaRC]

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!!

[MCKSys Argentina]

Hola!

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

Por ejemplo:

Código (vb) [Seleccionar] Expandir


'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
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

Saludos!

[GzaRC]

Hola!

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

Por ejemplo:

Código (vb) [Seleccionar] Expandir


'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
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

Saludos!

Muchisimaaaasss gracias!!!! !!