Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Text box Speichern und Auslesen
Autor: Dreamini
Datum: 22.11.05 04:24
Hallo vieleicht kann mir jemand zu meinem Problem helfen. Ich möchte gerne mehrere texte die in die textboxen eingetragen werden speichern und einlesen. 1.Wenn ich auf löschen klicke löscht es mir alle 4 textbox einträge das ist richtig 2.Wenn ich was reinschreibe in die boxen und dann auf speichere klicke erstelt das prog. mir eine textdatei namens Versuch.txt mit volgenden einträgen. "Versuch1 " "Versuch2 " "Versuch3 " "Versuch4 " Jetzt zum Problem wenn ich auf einlesen klicke erscheint in allen 4 textboxen volgender eintrag. Versuch1 "II"Versuch2 "II"Versuch3 "II"Versuch4 " kann mir jemand helfen das das prog beim einlesen zeile1 in die textbox1 einträgt und Zeile zwei in textbox2..... Option Explicit Private m_strFileName As String Private Sub Form_Load() Dim strAppPath As String strAppPath = ApplicationPath m_strFileName = strAppPath & "Versuch.txt" Text1.Text = "Versuch1 " Text2.Text = "Versuch2 " Text3.Text = "Versuch3 " Text4.Text = "Versuch4 " End Sub Private Sub cmdOpen_Click() 'TextBox-Inhalt aus Datei einlesen Dim FN As Integer Dim strText As String On Error GoTo err_Log FN = FreeFile() Open m_strFileName For Input As #FN strText = Input(LOF(FN), 1) Close #FN Text1.Text = Mid$(strText, 2, Len(strText) - 4) Text2.Text = Mid$(strText, 2, Len(strText) - 4) Text3.Text = Mid$(strText, 2, Len(strText) - 4) Text4.Text = Mid$(strText, 2, Len(strText) - 4) Exit Sub err_Log: MsgBox "Die Datei " & m_strFileName & " wurde nicht gefunden !", _ vbOKOnly + vbInformation, Me.Caption End Sub Private Sub cmdSave_Click() 'TextBox-Inhalt in Text-Datei speichern Dim FN As Integer FN = FreeFile() Open m_strFileName For Output As #FN Write #FN, Text1.Text Write #FN, Text2.Text Write #FN, Text3.Text Write #FN, Text4.Text Close #FN End Sub Private Sub cmdDelete_Click() 'TextBox-Inhalt löschen Text1.Text = "" Text2.Text = "" Text3.Text = "" Text4.Text = "" End Sub Private Function ApplicationPath() As String Dim strPath As String strPath = App.Path If Right$(strPath, 1) <> "\" Then strPath = strPath & "\" ApplicationPath = strPath End Function Private Sub cmdBeenden_Click() Unload Me End End Sub Gruß Dreamini

Text box Speichern und Auslesen	658	Dreamini	22.11.05 04:24
Re: Text box Speichern und Auslesen	440	Dieter	22.11.05 08:10
Re: Text box Speichern und Auslesen	432	Dreamini	22.11.05 13:27
Re: Text box Speichern und Auslesen	481	Desatrous	22.11.05 08:26
Re: Text box Speichern und Auslesen	403	Dreamini	22.11.05 13:29

Sie sind nicht angemeldet! Um auf diesen Beitrag zu antworten oder neue Beiträge schreiben zu können, müssen Sie sich zunächst anmelden. Einloggen  |  Neu registrieren

Funktionen:  Zum Thema  |  Gesamtübersicht

Suchen