title image


Smiley Re: TXT.Dateien durchsuchen
Hallo Karmen,



hier ein Ausschitt aus einen Code den ich verwende (Liest allerdings Zeilenweise ein -> höhere Laufzeit).



Gruß, Bastian





Function dateilesen()



Dim strlinebuffer As String

Dim dateisuche

Dim prognum As String

Dim i As Integer

Dim gefunden As String



Set dateisuche = Application.FileSearch

Dim prg As String



dateisuche.Lookin = "C:\pinterb\prprog\" 'hier den Pfad eingeben

dateisuche.filename = "*.txt"

For i = 1 To dateisuche.Execute 'schleife über dateien



gefunden = dateisuche.foundfiles(i)



Open gefunden For Input Access Read As #1

Do While Not EOF(1) 'Schleife in Datei

Line Input #1, strlinebuffer



'MsgBox strLineBuffer

If strlinebuffer Like "*irgendwas*" Then 'Suchkriterium

MsgBox "Hat Ihn !"

End If





Loop

Close #1

'MsgBox "Nächste Datei"

Next i

MsgBox "fertig"



End Function





geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: