Visual Basic - Cómo leer una sola columna de un TXT

Life is soft - evento anual de software empresarial
 
Vista:

Cómo leer una sola columna de un TXT

Publicado por Juan Pablo (46 intervenciones) el 15/03/2006 20:09:34
Hola a todos, mi problema es el siguiente.
No sé cómo se puede leer una columna específica de un archivo.txt que posee varias separadas por espacios.
Por ej:

0 10
1 20
2 30
3 40

Me interesa crear una matriz en Visual Basic que la deje tal cual es y que se guarde en un ListBox.
Bueno, eso sería, muchas gracias de todas formas.
Saludos.
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:Cómo leer una sola columna de un TXT

Publicado por Cecilia Colalongo (3117 intervenciones) el 16/03/2006 14:18:58
Puedes leer el archivo, pasarlo a un String y luego manipularlo por filas y Columnas, por ejemplo:

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

Luego Lineas es un vector que contiene cada fila del archivo, luego si es delimitado por espacios 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

RE:Cómo leer una sola columna de un TXT

Publicado por Juan Pablo (46 intervenciones) el 16/03/2006 17:54:30
Gracias por la ayuda.
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