Ejemplo Temp()

' gambas class file

'by postapase
'http://novatocodegambas.blogspot.com.uy/

Public ArchivoTemporal As File
Public RutaArchivo As String = User.home
Public RutaArchivoTemporal As String
Public Contador As Integer


Public Sub Form_Open()

RutaArchivoTemporal = Temp()
LabRutaTemporal.Text = RutaArchivoTemporal
TextArea1.Clear()
btnGuardarArchivo.Enabled = False

End

Public Sub btnAgregarTexto_Click()

ArchivoTemporal = Open RutaArchivoTemporal For Write Append

Write #ArchivoTemporal, TextBox1.Text & gb.NewLine

Close #ArchivoTemporal

LeerDatosArchivoTemporal()

btnGuardarArchivo.Enabled = True

TextBox1.Clear()
TextBox1.SetFocus()

End

Public Sub LeerDatosArchivoTemporal()
Dim LineaX As String

TextArea1.Clear()

ArchivoTemporal = Open RutaArchivoTemporal For Read

While Not Eof(ArchivoTemporal)
Line Input #ArchivoTemporal, LineaX
TextArea1.Text = LineaX & gb.NewLine & TextArea1.Text
Wend

Close ArchivoTemporal

End

Public Sub Button1_Click()

Form_Open()

End

Public Sub btnGuardarArchivo_Click()

Inc Contador

If Exist(RutaArchivo &/ "EjemploTemp-" & Contador) Then btnGuardarArchivo_Click()

Copy RutaArchivoTemporal To RutaArchivo &/ "EjemploTemp-" & Contador

End

Código fuente: Ejemplo-Temp-0.0.1.tar.gz

Ejemplo de uso de Append

' lo que hace Append es escribir a partir del final del archivo
'si usaramos solo write el archivo se reescribe de cero con la informacion nueva...

' gambas class file

'by postapase
' usando Append
Private RutaX As String = User.Home &/ "Registro_eventos.txt"

Public Sub Form_Open()
Me.Center
TextArea1.Clear
End

Public Sub btnDos_Click()
TextArea1.Clear
AddLog("btnDos_Click")
End

Public Sub btnUno_Click()
TextArea1.Clear
AddLog("btnUno_Click")
TextArea1.Pos = 0
End

Public Sub AddLog(nombre As String)
Dim ArchivoX As File
Dim LineaX As String

ArchivoX = Open RutaX For Write Append ' lo que hace Append es escribir a partir del final del archivo
'si usaramos solo write el archivo se reescribe de cero con la informacion nueva, es decir si guardamos en el
'archivo la palabra "gambas" y despues guardamos otra palabra "libre" el archivo solo contendra la palabra libre
'ahora si usamos el conjunto de comando Write Append veremos gambas en la primera linea y libre en la segunda
'y asi sucesivamente con lo que guardemos en el archivo, aparentemente si el archivo no existe Append lo crea
'Append es ideal para hacer archivos de log por eso hice este ejemplo para que podamos entender
'para que sirve Append y la diferencia con el comando Write si va solo.

Write #ArchivoX, nombre & " - " & Date(Year(Now), Month(Now), Day(Now), Hour(Now), Minute(Now), Second(Now)) & gb.NewLine

Close ArchivoX

LeerArchivo()

End

Public Sub LeerArchivo()
Dim ArchivoX As File
Dim LineaX As String

ArchivoX = Open RutaX For Read

While Not Eof(ArchivoX)
Line Input #ArchivoX, LineaX
TextArea1.Text = LineaX & gb.NewLine & TextArea1.Text
Wend

Close ArchivoX

End

Public Sub btnClear_Click()

If Not Exist(RutaX) Then
Message.Info("Archivo no existe!")
Else
Try Kill RutaX
TextArea1.Clear
Endif

End

Código fuente: append-0.0.1.tar.gz