Visual Basic - Error al abrir txt raro

Life is soft - evento anual de software empresarial
 
Vista:

Error al abrir txt raro

Publicado por pedrok (155 intervenciones) el 11/07/2007 23:48:56
Hola foreros

Resulta que tengo una aplicacion desarrollada que abre archivos txt, toma cada registro y va levantando los datos de alli, esta probada con archivos txt creados en varias maquinas con Xp y funciona sin problemas... pero hace poco nos enviaron archivos txt creados creo que con fox para dos y no puedo abrirlos con el sistema, sin embargo con el notepad lo abre sin dramas y si copio en contenido en un archivo nuevo el sistema funciona bien...

Es por lo que llego a la conclusion que el txt generado en DOS es el problema...

Les muestro la rutina que uso para abrir y procesar:

Dim fso As Scripting.FileSystemObject
Dim TxtStm As Scripting.TextStream
Dim Registro As String 'es cada renglon leido
Dim Resultado As Boolean

Set fso = New FileSystemObject

'Abre el archivo de texto, si no existe lo crea
Set TxtStm = fso.OpenTextFile(RutaArchivo, ForReading, True)

While Not TxtStm.AtEndOfStream
Registro = Trim(TxtStm.ReadLine) 'Lee una linea y saco los valores que necesito
....
Wend

'Cierro el stream
TxtStm.Close
Set TxtStm = Nothing
Set fso = Nothing


Espero que puedan ayudarme con esto.
Gracias y Saludos
Pedrok
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:Error al abrir txt raro

Publicado por Cecilia Colalongo (3117 intervenciones) el 12/07/2007 13:29:41
Seguramente tendrás problemas con la tabla de códigos que se utiliza para guardar el archivo TXT, fijate de ésta forma que ocurre:

Dim Lineas As Variant, i As Integer

Lineas = Split(FileToString(App.Path & "\MiArchivo.txt"), vbCrLf)

For i = LBound(Lineas) To UBound(Lineas)
Debug.Print Lineas(i)
Next i

Public Function FileToString(FileName As String) As String
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
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:Error al abrir txt raro

Publicado por pedrok (155 intervenciones) el 13/07/2007 22:59:25
Cecilia, gracias por responder...

Probe con el codigo que me distes y funciona bien... que es esto de los problemas con la tabla de códigos que me mencionastes?
Se podra solucinar a partir de codigo que ya tengo implementado? o debo modificarlo?

Te agradezco mucho la colaboracion que me estas dando.
Saludos
Pedrok
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