Imprimir Página - Problemas al guardar y abrir archivos .dat

Hola a todos estoy renegando con los archivos .dat. primero les doy el codigo que uso y luego le esplico lo que me sucede.

Para abriri los archivos *.dat:

Código:

On Error Resume Next
Dim foo As Integer
    foo = FreeFile
    Open "C:\user.dat" For Input As #foo
       Form2.Text1.Text = Input(LOF(foo), #foo)
Close #foo

Para guardar los archivos *.dat

Código:

On Error Resume Next
Open "C:\user.dat" For Output As #1
Print #1, Text1.Text
Close #1

bueno ahora el problema es que cuando yo guardo los datos y cierro el programa y luego lu buelvo abrir en el text1.text me sale lo que yo abia guardado repetido o con espacios.

Espero que me puedan expicar por que sucede este fenomeno.

Saludos KaiNets.

Foro de elhacker.net

Programación => Programación Visual Basic => Mensaje iniciado por: kakinets en 16 Marzo 2006, 02:10 am