hi,
ich habe ein rießen Problem:
Wie kann ich den Text von einem TXT-Feld speichern und danach auch wieder laden? Ist eigentlich nicht schwer aber was macht man wennd er Text beliebig lang sein soll und der Text eine String Variable sein soll! Jetzt funktioniert der random Modus nicht mehr bei mir. Was kann ich jetzt machen?
Vielen Dank im Voraus!
CU
Sven
Hier ein kleines Bsp, dass die Sache verdeutlichen soll.
Private Sub Command1_Click()
Dim DateiNr As Integer
Dim Temp As String
Temp = Text1.Text
DateiNr = FreeFile
Open „C:\Windows\Desktop\save.txt“ For Random As DateiNr
Put DateiNr, , Temp
Close DateiNr
End Sub
Private Sub Form_Load()
Text1.Text = "1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 1234567890 "
End Sub