Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Re: Hilfe
Autor: cromec
Datum: 03.12.01 07:58
Das ist der code von dir: Dim F As Integer Dim strLine As String Dim strFilename As String Dim strSuch As String Dim lngCount As Long ' Textdatei strFilename = "DeineTextdatei.txt" ' gesuchter Text strSuch = "keine Ahnung" ' Textdatei öffnen und zeilenweise auslesen ' alle Zeilen, in denen der Suchstring vorkommt in eine ' ListBox schreiben lngCount = 0: List1.Clear F = FreeFile Open strFilename For Input As #F While Not Eof(F) ' Zeile einlesen lngCount = lngCount + 1 Line Input #F, strLine ' Prüfen, ob Suchstring vorhanden ' Groß-/Kleinschreibung ignorieren If strLine LIKE "*" & strSuch & "*" Then ' Gefunden! Ab in die ListBox List1.AddItem "Zeile " & CStr(lngCount) & ": " & strLine End If Wend Close #F cu cromec

String aus Datei auslesen	90	cromec	01.12.01 23:09
Re: String aus Datei auslesen	286	unbekannt	01.12.01 23:19
Re: String aus Datei auslesen	51	cromec	02.12.01 00:19
Re: String aus Datei auslesen	274	Dieter	02.12.01 10:42
Vielen dank	46	cromec	02.12.01 11:18
Es gibt da ein Problem	47	cromec	02.12.01 17:04
Re: Es gibt da ein Problem	248	unbekannt	02.12.01 17:33
Re: Es gibt da ein Problem	46	cromec	02.12.01 18:36
Re: Es gibt da ein Problem	252	unbekannt	02.12.01 19:00
Re: Es gibt da ein Problem	42	cromec	02.12.01 19:12
Hilfe	46	cromec	02.12.01 19:48
Re: Hilfe	251	Dieter	02.12.01 20:25
Re: Hilfe	41	cromec	03.12.01 07:58
Re: Hilfe	250	Dieter	03.12.01 09:37
Re: Hilfe	42	cromec	03.12.01 17:05
Re: Hilfe	42	Henryk	04.12.01 22:40
Danke.	45	cromec	05.12.01 08:27
Problem	36	cromec	05.12.01 19:20
Re: Problem	34	Henryk	05.12.01 20:05

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