CJ
22 de Diciembre del 2003

Digamos que guardo un docum ento tipo .txt en mi disco, claro que co visual basic, pero yo quiero que la informacion que guardo se siga almacenado en el mismo archivo(en el primer archivo creado, este archivo fue creado con OPen... Print.... , Exit...)
Para Ud es pan comido, de antemano agradezco la respuesta.SIe esque pudieran envien el codigo.

sdemingo
22 de Diciembre del 2003

Hola,
Lo que quieres es añadir información a un archivo de texto sin machacar lo que hubiera anteriormente ¿no?
Es decir, un Append.

Te pongo directamente lo que viene en la MSDN

When you open a file for sequential access, you open it to perform one of the following operations:

Input characters from a file (Input)


Output characters to a file (Output)


Append characters to a file (Append)
To open a file for sequential access, use the following syntax for the Open statement:

Open pathname For [Input | Output | Append] As filenumber [Len = buffersize]

Saludos
sdemingo

sdemingo
22 de Diciembre del 2003

Para resumirte...

Debes abrir el fichero txt así

Open "C:archivo.txt" For Append As..............

andru
22 de Diciembre del 2003

Yo no se mucho del tema pero estuve investigando hace poco sobre ese tema no te doy mi opiñon
Porque no se mucho pero te mando algo que consgui cuando estuve investigando es mas omenos lo mismo que te escribio sdemingo .

Modos de accesos


 Output, para ficheros de salida, es decir para guardar los datos. Si el fichero existe, lo borrará (sobrescribirá) y si no existe, lo creará.


 Input, para leer los datos de un fichero ya existente.


Append, como el Output, pero añadiendo la información al final del fichero, si este ya existe.

naveguito
22 de Diciembre del 2003

Hola yo lo hice una vez y me funciono te voy a poner el codigo tal y como lo tengo,despues hazle las modificaciones que creas oportunas:

Private Sub Escribir_Arqueo()
Dim cadena As String
arqueo.RecordSource = "select * from ARQUEO order by TICKET"
arqueo.Refresh
If Dir(App.Path & "Arqueo.txt") = "" Then 'si no existe lo escribimos
Open App.Path & "arqueo.txt" For Output As #1
While Not arqueo.Recordset.EOF
cadena = ""
cadena = cadena + Str(arqueo.Recordset.Fields("TICKET")) + ";"
cadena = cadena + Str(arqueo.Recordset.Fields("LINEA")) + ";"
cadena = cadena + "''" + arqueo.Recordset.Fields("USUARIO") + "''"
cadena = cadena + ";" + Str(arqueo.Recordset.Fields("FECHA")) + ";"
cadena = cadena + Str(arqueo.Recordset.Fields("HORA")) + ";"
cadena = cadena + "''" + arqueo.Recordset.Fields("OPERARIO") + "''" + ","
cadena = cadena + "'" + arqueo.Recordset.Fields("CODART") + "'" + ","
cadena = cadena + "'" + arqueo.Recordset.Fields("EAN") + "'" + ","
cadena = cadena + "'" + arqueo.Recordset.Fields("DESART") + "'"
cadena = cadena + ";" + Str(arqueo.Recordset.Fields("CANTIDAD")) + ";"
cadena = cadena + Str(arqueo.Recordset.Fields("PVP")) + ";"
cadena = cadena + Str(arqueo.Recordset.Fields("SALDOINIC"))
Print #1, cadena & vbCrLf;
arqueo.Recordset.MoveNext
Wend
Close #1
Exit Sub
Else
'*APARTIR DE AQUI ES LO QUE TE INTERESA
arqueo.Recordset.MoveLast
Open App.Path & "Arqueo.txt" For Append As #1
cadena = ""
cadena = cadena + Str(arqueo.Recordset.Fields("TICKET")) + ";"
cadena = cadena + Str(arqueo.Recordset.Fields("LINEA")) + ";"
cadena = cadena + "'" + arqueo.Recordset.Fields("USUARIO") + "'"
cadena = cadena + ";" + Str(arqueo.Recordset.Fields("FECHA")) + ";"
cadena = cadena + Str(arqueo.Recordset.Fields("HORA")) + ";"
cadena = cadena + "'" + arqueo.Recordset.Fields("OPERARIO") + "'" + ","
cadena = cadena + "'" + arqueo.Recordset.Fields("CODART") + "'" + ","
cadena = cadena + "'" + arqueo.Recordset.Fields("EAN") + "'" + ","
cadena = cadena + "'" + arqueo.Recordset.Fields("DESART") + "'"
cadena = cadena + ";" + Str(arqueo.Recordset.Fields("CANTIDAD")) + ";"
cadena = cadena + Str(arqueo.Recordset.Fields("PVP")) + ";"
cadena = cadena + Str(arqueo.Recordset.Fields("SALDOINIC"))
Print #1, cadena & vbCrLf;
Close #1
Exit Sub
End If
End Sub