Visual Basic - Separacion con comas

Life is soft - evento anual de software empresarial
 
Vista:

Separacion con comas

Publicado por manuel (1 intervención) el 02/08/2005 15:25:15
Hola a todos. Mi problema es el siguiente, tengo un archivo *.csv, el cual es un archivo secuencial, al leerlo necesito separar cada campo por una coma y ese valor almacenarlo en una variable.

¿Como puedo hacer para separar mi informacion por medio de comas?
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Separacion con comas

Publicado por AFleming (52 intervenciones) el 02/08/2005 15:47:03
cuando imprimas en el archivo usa la funcion Write en lugar del Print, esa funcion te separa las variables con comas y las lee por separado con el Input.

Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar

RE:Separacion con comas

Publicado por Cecilia Colalongo (3117 intervenciones) el 02/08/2005 16:06:22
Puedes leer el archivo, pasarlo a un String y luego manipularlo por filas y Columnas, por ejemplo:

Archivo = FileToString("MiArchivo.csv")
Lineas = Split(Archivo,vbCrLf)

Luego Lineas es un vector que contiene cada fila del archivo, luego si es delimitado por comas puedes hacer:

For i=LBound(Lineas) To UBound(Lineas)
Columnas = Split(Lineas(i),",")
For j=LBound(Columnas) To UBound(Columnas)
Debug.Print Columnas(j)
Next j
Next i

Luego Columnas es un vector que contiene cada campo que delimita cada coma.

La función para pasar un archivo a un String es:

Public Function FileToString(FileName As String) As String
On Error GoTo ErrorHandler

Dim hlngFile As Long, strFile As String

hlngFile = FreeFile

Open FileName For Binary Access Read As hlngFile

FileToString = vbNullString

strFile = String(FileLen(FileName), " ")

Get hlngFile, , strFile

Close hlngFile

FileToString = strFile

Exit Function

ErrorHandler:
FileToString = Empty
End Function
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar