Herbers Excel-Forum - das Archiv
Datensätze in Text-Datei finden
Betrifft: Datensätze in Text-Datei finden
von: Frank
Geschrieben am: 14.10.2003 11:44:07
Hallo Experten,
wie ist es denn möglich, einen Datensatz in einer Text-Datei (ca. 150 000 Datensätze) zu finden, und in ein EXCEL-Arbeitsblatt zu bekommen ???
besten Dank
Betrifft: AW: Datensätze in Text-Datei finden
von: ChrisL
Geschrieben am: 14.10.2003 16:49:01
Hi Frank
Als Ansatz habe ich folgendes Makro von Hans verwendet:
https://www.herber.de/forum/archiv/68to72/t69532.htm
= Hinweis Recherche benutzen ;-)
Das lässt sich dann z.B. wie folgt umbauen...
Option Explicit
Sub TextAuslesen()
Dim txt As String
Open "C:\PFAD\test.txt" For Input As #1
Do Until EOF(1)
Line Input #1, txt
If InStr(txt, "Suchbegriff") Then
MsgBox txt
End If
Loop
Close
End Sub
Sobald der Suchbegriff in einer Zeile gefunden wird, erfolgt die Ausgabe der gesamten Zeile in einer MsgBox.
Gruss
Chris
Betrifft: AW: Datensätze in Text-Datei finden
von: frank
Geschrieben am: 15.10.2003 10:46:39
Danke klappt wunderbar