Visual Basic - Archivo de Texto

Life is soft - evento anual de software empresarial
 
Vista:

Archivo de Texto

Publicado por Juan Carlos Mata (26 intervenciones) el 22/01/2005 20:35:25
Hola
Alguien me podria explicar como hacer una lectura a un archivo de texto que tiene las columnas fijas y no esta separada por comas, estoy trabajando con visaual basic....y quiero hacer que un archivo de texto se carge a una tabla de acces......si alguien me puede ayudar se lo agradeceria
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:Archivo de Texto

Publicado por Cecilia Colalongo (3116 intervenciones) el 22/01/2005 20:57:23
Puedes leer el archivo, pasarlo a un String y luego manipularlo por filas y Columnas (longitud fija si es el caso u otro delimitador), por ejemplo:

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

Luego Lineas es un vector que contiene cada fila del archivo, luego si es por longitud fija partes cada Lineas(i) con las funciones de Strings o si es otro delimitador por ejemplo un tabulador puedes hacer:

Columnas = Split(Lineas(i),vbTab)

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