Visual Basic - Leer fichero TXT y cada 12 car. insertar un return

Life is soft - evento anual de software empresarial
 
Vista:

Leer fichero TXT y cada 12 car. insertar un return

Publicado por Mario. (5 intervenciones) el 20/04/2001 23:11:35
Tengo un archivo de texto de 2 MB. que se compone de un monton de caracteres.
El problema viene que éste fichero lo quiero pasar a Access y no me deja importarlo bien porque no hay ningún "paso de carro" o "return" que delimite cada registro.
Sé que cada 12 caracteres correspondería a un registro y así sucesivamente.
¿Se puede desde VB modificar éste fichero TXT y que puediera recorrerlo e insetándole cada 12 caracteres un return?

MUCHAS 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:Leer fichero TXT y cada 12 car. insertar un ret

Publicado por José Luis (54 intervenciones) el 20/04/2001 23:37:47
Yo haria de la siguiente manera ...

Private Sub Command1_Click()
Dim MyRecord As String * 12
Open "c:\prueba.txt" For Random As #1 Len = Len(MyRecord)
i = 1
Do While Not EOF(1)
Get #1, i, MyRecord
'Aqui el resultado de MyRecord tendrá el valor string que quieras y lo puedes guardar en un archivo o en una tabla de acces ....
Debug.Print MyRecord
i = i + 1
Loop
Close #1
End Sub


Saludos desde México
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:Leer fichero TXT y cada 12 car. insertar un ret

Publicado por Claudio Hernandez (9 intervenciones) el 22/04/2001 23:02:02
Aunque la respuesta enviada anteriormente no es mala, yo te recomiendo que utilizes los procedimientos de la libreria FileSystemObject, pues son mucho más sencillos de utilizar que los métodos antiguos...

saludos desde chile
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:Leer fichero TXT y cada 12 car. insertar un ret

Publicado por Mario. (5 intervenciones) el 25/04/2001 00:18:56
Muchas gracias.
Me he guiado un poco de la solución primera.
Lo que me pasa ahora es que no sé copiar el resultado del myrecord a un fichero TXT.
lo he intentado con un filecopy pero na de na me lo deja en blanco.
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:Leer fichero TXT y cada 12 car. insertar un ret

Publicado por PPU (17 intervenciones) el 23/05/2001 18:35:07
Amo a ve.... Si no te importa, me gustaria que me remitieras si es preferible al foro o si no a mi direccion de correo que yo te diré la solucion del problema.
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