' 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
'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
No hay comentarios.:
Publicar un comentario