Foro de elhacker.net

Programación => 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
  1. 'Matriz dinamica para almacenar los datos con Split
  2. Dim datos() As String
  3. Dim i as Integer
  4.  
  5. datos = Split("dato1, dato2, dato3, dato4", ",")
  6.  
  7. ' Luego accedes a cada dato usando un sibindice
  8.  
  9. For i = LBound(datos) To UBound(datos)
  10.    MsgBox datos(i)  
  11. Next
  12.  


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

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

Por ejemplo:

Código
  1. 'Matriz dinamica para almacenar los datos con Split
  2. Dim datos() As String
  3. Dim i as Integer
  4.  
  5. datos = Split("dato1, dato2, dato3, dato4", ",")
  6.  
  7. ' Luego accedes a cada dato usando un sibindice
  8.  
  9. For i = LBound(datos) To UBound(datos)
  10.    MsgBox datos(i)  
  11. Next
  12.  


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