Re: Speichern von Text! Hilfe!!!!!

So kannst Du einen String abspeichern und wieder laden. Der String selber darf aber keinen Zeilenumbruch enthalten, wegen der Funktion "Line Input #".


Dim intFH  As Integer
Dim strBuf As String
'
intFH = FreeFile
Open "c:\Temp\test.dat" For Output Lock Read Write As intFH
Print #intFH, Me.Text1.Text
Close intFH
'
Me.Text1.Text = ""
'
intFH = FreeFile
Open "c:\Temp\test.dat" For Input As intFH
Line Input #intFH, strBuf
Close intFH
Me.Text1.Text = strBuf

Willst Du einen ganzen Text z.B. mit Zeilenumbrüchen speichern und wieder laden so kann man das mit der "Binären-Variante" lösen:


Dim intFH  As Integer
Dim strBuf As String
'
'Datei vorher weglöschen
On Error Resume Next
Call Kill("c:\Temp\test.dat")
On Error GoTo 0
'
'
intFH = FreeFile
Open "c:\Temp\test.dat" For Binary Access Write Lock Read Write As intFH
Put #intFH, , Me.Text1.Text
Close intFH
'
Me.Text1.Text = ""
'
strBuf = Space$(FileLen("c:\Temp\test.dat"))
intFH = FreeFile
Open "c:\Temp\test.dat" For Binary Access Read As intFH
Get #intFH, , strBuf
Close intFH
Me.Text1.Text = strBuf

hope you enjoy
greets from michL (vienna)