VBA Text durchsuchen
08.12.2016 21:33:08
Oliver
ich habe wieder mal ein Problem mit dem ich nicht weiter komme. Ich benutze ein VBA-Skript aus dem Forum um Textdateien in einem Verzeichnis nach Begriffen zu durchsuchen. Die Begriffe passe ich entsprechend an. Das funktioniert auch sehr gut.
Der gesuchte Begriff wird mit dem Dateinamen und der gesamten Zeile in eine Exceltabelle ausgegeben.
Bei bestimmten Begriffen muss nicht nur die Zeile in der sich der Begriff befindet, sondern auch die immer darauffolgende Zeile in der Tabelle in Spalte 3 ausgegeben werden.
Das bekomme ich irgendwie nicht hin. Vielleicht kann ja einer von euch helfen.
Sub findWordinTXT()
Dim sWord As String, sPath As String, sSearchPath As String, FileName As String, InputData
Dim AnzFound As Integer
AnzFound = 0
'Wort nach dem gesucht werden soll
sWord = "Desoxyribonukleinsäuremethylester"
'Suche nach allen Textdateien im Verzeichnis c:\temp\xl
sSearchPath = "c:\temp\xl\*.txt"
sPath = "c:\temp\xl\"
FileName = Dir(sSearchPath)
If FileName "" Then
Do While FileName ""
Open sPath & FileName For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
If InStr(1, InputData, sWord) > 0 Then
'Zeile mit Suchwort gefunden
AnzFound = AnzFound + 1
Sheets("Recherche").Cells(AnzFound, 1) = FileName
Sheets("Recherche").Cells(AnzFound, 2) = InputData
End If
Loop
Close #1
'nächste Datei
FileName = Dir
Loop
End If
End Sub