Sie sind aktuell nicht angemeldet.

Funktionen: Einloggen  |  Neu registrieren  |  Suchen

Hilfe !
Autor: Chris
Datum: 16.09.01 19:19
Hi ! ! ! Dieter hat mir den VB-Code für "jede 2. Zeile des Verzeichnisses auf das Wort Hallo durchsuchen" gegeben. Der Code bewirkt, das von allen Dateien die sich im Verzeichniss "C:Eigene Dateien\" befinden die zweite Zeile nach dem Wort "Hallo" durchsucht werden. Alle Dateien die in der zweiten Zeile das Wort "Hallo" enthalten werden dann zu einer Listbox hinzugefügt, und hier einmal der Code: Private Sub Command1_Click() Dim DirName As String Dim F As Integer Dim sLine As String Dim sPfad As String ' ListBox löschen List1.Clear sPfad = "c:Eigene Dateien\" DirName = Dir(sPfad + "*.*", vbNormal) While DirName <> "" If DirName <> "." And DirName <> ".." Then ' Datei öffnen und zweite Zeile auslesen F = FreeFile Open sPfad + DirName For Input As #F If LOF(F) > 0 Then Line Input #F, sLine If Not EOF(F) Then Line Input #F, sLine If InStr(LCase$(sLine), "Hallo") > 0 Then ' Wenn Hallo in der 2. Zeile vorhanden ' Dateinamen zur ListBox hinzufügen List1.AddItem DirName End If End If End If Close #F End If DirName = Dir Wend End Sub Und jetzt möchte ich, das nicht mehr das alle Dateien die in der zwieten Zeile das Wort "Hallo" enthalten zu der Listbox hinzufügen, sondern jetzt möchte ich das alle Dateien die in der zweiten Zeile das Wort "Hallo" und die in der dritten Zeile das Wort "Hallo2" enthalten sollen jetzt zu der Listbox hinzugefügt werden. Und hierbei interessiert mich wie man die zu durchsuchenden Zeilen(2 und 3) angibt. Danke !!!!!!!und BITTE Hilfe MfG Chris

Hilfe !

35

Chris

16.09.01 19:19

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