Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Text einlesen
Autor: Atlan
Datum: 06.01.02 17:26
moin moin @ll, habe da ein Problem mit dem Einlesen. Ich möchte das wenn ich in dem Suchfenster einen Eintrag gefunden habe, das alle dazugehörenden Einträge in den Textboxen von txt1.Text bis txt13.Text erscheinen. Was kann ich da einbauen das es funktioniert ??? '<-------ANFANG CODE-----> ' Eine Form, mit dem Namen "Form1" und eine Textdatei mit Namen _ ' "Adressen.txt" im gleichen Verzeichnis ! Private Declare Function SendMessageStr Lib "user32" Alias "SendMessageA" (ByVal hwnd As Long, ByVal wMsg As Long, ByVal wParam As Long, ByVal lParam As String) As Long Private Const LB_ERR = (-1) Private Function ListFindText(lstListBox As ListBox, strFindText As String, Optional ByVal intFromIndex As Long = -1, Optional ByVal blnSelect As Boolean = True) As Long Dim lngMsg As Long Dim lngIndex As Long Dim blnExact As Boolean Const LB_FINDSTRING = &H18F Const LB_SELECTSTRING = &H18C Const LB_FINDSTRINGEXACT = &H1A2 Select Case blnExact Case False Select Case blnSelect Case True lngMsg = LB_SELECTSTRING Case False lngMsg = LB_FINDSTRING End Select ListFindText = SendMessageStr(lstListBox.hwnd, lngMsg, intFromIndex, strFindText) Case True With lstListBox lngIndex = SendMessageStr(.hwnd, LB_FINDSTRINGEXACT, intFromIndex, strFindText) If blnSelect Then .ListIndex = lngIndex End If End With ListFindText = lngIndex End Select End Function Private Sub txtSuchen_Change() Call ListFindText(List1, txtSuchen.Text, -1, True) End Sub Private Sub ChangeColor(x As Control) x.Enabled = True x.BackColor = &HC0FFFF x.SetFocus End Sub Sub txtSuchen_GotFocus() txtSuchen.SelStart = 0 txtSuchen.SelLength = Len(txtSuchen.Text) Call ChangeColor(txtSuchen) End Sub Private Sub cmdSpeichern_Click() Open "Adressen.txt" For Append As #1 Print #1, txt1.Text, txt2.Text, txt3.Text, txt4.Text, txt5.Text, txt6.Text, txt7.Text, txt8.Text, txt9.Text, txt10.Text, txt11.Text, txt12.Text, txt13.Text txt1.Text = "" txt2.Text = "" txt3.Text = "" txt4.Text = "" txt5.Text = "" txt6.Text = "" txt7.Text = "" txt8.Text = "" txt9.Text = "" txt10.Text = "" txt11.Text = "" txt12.Text = "" txt13.Text = "" Close #1 End Sub Private Sub Form_Load() On Error GoTo Error Dim Text, Pfad Pfad = "Adressen.txt" Open Pfad For Input As #1 While Not EOF(1) Line Input #1, Text If InStr(1, Text, "") Then List1.AddItem Text Wend Close #1 txt1.Text = "" txt2.Text = "" txt3.Text = "" txt4.Text = "" txt5.Text = "" txt6.Text = "" txt7.Text = "" txt8.Text = "" txt9.Text = "" txt10.Text = "" txt11.Text = "" txt12.Text = "" txt13.Text = "" txtSuchen = "Suchfunktion:" Exit Sub Error: MsgBox "Die Datei >Adressen.txt< wurde nicht gefunden, bitte Pfad überprüfen !", 48, "Fehler" End Sub '<-------ENDE CODE-----> gruß Atlan

Text einlesen	82	Atlan	06.01.02 17:26
Re: Text einlesen	267	Dieter	06.01.02 17:33
Re: Text einlesen	40	Atlan	06.01.02 21:29
Re: Text einlesen	260	Dieter	07.01.02 00:54
Re: Text einlesen	39	Atlan	07.01.02 18:33
Re: Text einlesen	38	Atlan	11.01.02 23:24

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