domingo, 6 de noviembre de 2016

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