pregunta:
¿Como separar una cadena por un caracter determinado?
Respuesta:
con el comando Split
un ejemplo. solo debes de agregar un boton con nombre Command1
Código:
'por Geovanny G. Avila
'geoavila.com
'Por favor no remover esta área por respeto al autor.
Dim Separo() As String
Private Sub Command1_Click()
SepararCadenas "C:\hola|C:\chau", "|"
End Sub
Private sub SepararCadenas(Str As String, Caracter As String)
Dim Sep As Integer
Dim I As Integer ' variable para contar las cadenas
Dim E As Long ' variable para presentar una a una las cadenas
Dim ContStr As Long ' para saber cuantos caracteres tiene la cadena
Dim Separo() As String ' para mostrar almacenar las cadenas en cada array
'seamos las cadenas en 0 como número inicial
Sep = 0
'contamos los caracteres
CountStr = Len(Str)
'Contamos cuantas cadenas hay
For E = 1 To CountStr
Otxt = Mid(Str, E, 1)
If Otxt = Caracter 'Then ' si es el separador sumar una cadena más
Sep = Sep + 1
End If
Next E
'Separmos las cadenas.
Separo = Split(Str, Caracter ) ' El split nos sirve para serparar cadenas en las cuales
' metemos en nuestro array
For I = 0 To Sep ' que cuente cuantas cadenas hay
MsgBox Separo(I) 'que muestre cadena por cadena
Next I
' listo
End Sub
aca de les dejo un ejemplo con archivo leido desde un txt, separado por comas