Separar cadena de caracteres en Visual Basic 6
Tengo un campo text en el que me aparecen registros separados por ; los campos y un enter entre registro y registro. Ejemplo
924764323;620213240;12/12/2002;60;0,97
924543443;610453269;12/11/2003;70;0,99
El caso es que tengo que meter esos campos y registros en una base de datos y no se como seperarlos.
1 Respuesta
Después de leer un registro podemos utilizar la siguiente rutina para separar los campos, preguntando por la posición del delimitador ";" ascii chr(59) de la siguiente forma :
Private Sub Separar_Campos()
I= 1
J = 0
L = 0
For L = 1 To 5
J = InStr(I, Registro, Chr(59), 1)
If J > I Then
Campos(L) = Mid(Registro, I, (J - I))
End If
I = J + 1
Next L
Text1 = Campos(1)
Text2 = Campos(2)
Text3 = Campos(3)
Text4 = Campos(4)
Text5 = Campos(5)
End Sub
Si él quinto campo no termina en ";" entonces habría que preguntar por el salto de línea CHR(13)
Suerte !
