Textdatei nach Begriff durchsuchen und Kopieren
17.04.2014 13:33:38
Matterhorn
Danke erst mal an den Oberschlumpf dein Tipp mit dem Leerzeichen war gut =).
So jetzt zu meiner Frage:
Ich habe mehrere Textdateien und durchsuche die nach nur einem begriff.
Wenn der begriff gefunden wird soll der begriff in die Zelle B2 kopiert werden und nicht die ganze zeile.
Desweiteren steht eine zeile weiter unten das datum und dadrunter auch noch die zeit die beiden werten sollen auch kopiert werden. Das datum in C2 und die Zeit in D2.
Ich habe jetzt etwas rum gespielt und mich daran versucht aber ich bekomme nur fehlermeldungen raus oder die zellen bleiben leer.
Ich dachte mir das man das einfach erweitern kann. Scheint aber nicht so ich wäre euch für tipps oder so echt dankbar. Grüße
Code:
Sub findWordinTXT()
Dim sWord As String, sPath As String, sSearchPath As String, FileName As String, InputData, _
_
InputDate as String, InputTime as String
Dim AnzFound As Integer
AnzFound = 0
'Wort nach dem gesucht werden soll
sWord = "Hase "
'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
Anzeige