Visual Basic - lectura de fichero de texto

Life is soft - evento anual de software empresarial
 
Vista:

lectura de fichero de texto

Publicado por karl (10 intervenciones) el 19/09/2006 12:31:53
hola me gustaria leer de un fichero txt datos...

jose 120 12/12/05

luis 140 11/11/05

....

pero cada campo no esta separado por coma, entonces quiero estraer cada campo para luego meter en una tabla de access los datos de cada campo pero teniendo en cuenta el formato.

dim nombre as string
dim precio as long
dim fecha as date
Open ("c:prueba.text") For Input As #1
Do While Not EOF(nFic)
Input #1, nombre
Input #1, precio
Input #1, fecha
loop
....
... el problemas es q por cada input me lee una linea entera.

gracias
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:lectura de fichero de texto

Publicado por Fuentes (16 intervenciones) el 19/09/2006 13:36:27
Hola
Open path_txt For Input As #fileno

Do while not eof(fileno)
input #fileno, nombre, precio, fecha
Loop

Close #fileno

así te lee tres variables separadas por tabulador, por comas o por espacio en blanco.

Saludos
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:lectura de fichero de texto

Publicado por Jasall (60 intervenciones) el 19/09/2006 15:34:29
Buenas, si el fichero de texto NO esta separado por comas deberas utilizar la funcion split(cadena,separador) lo que hace es meter en un Array el contenido de la cadena.

'
Dim Precio As Long
Dim Fecha As String
Dim FileNo As Integer
Dim Path_Txt As String, Linea As String, Datos() As String

Path_Txt = App.Path + "\Prueba.Txt"
FileNo = FreeFile

Open Path_Txt For Input As #FileNo

With Data1.Recordset
Do While Not EOF(FileNo)
Line Input #FileNo, Linea
Datos() = Split(Linea, " ") ' separamos los datos segun el separador

.AddNew
!Nombre = Datos(0) ' guardamos el 1 elemento del array
!Precio = Datos(1)
!Fecha = CDate(Datos(2))
.Update
Loop

Close #FileNo

End With
'

Saludos
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