hur bär jag mig åt om jag vill söka igenom ett antal text filer på samma gång? Hej principlösningsöka igenom många textfiler?
alltså jag 10 st texter filer i en mapp.
och jag söker efter ordet "hejsan"
då vill jag att det ska komma upp i vilka textfiler det ordet finns i.
hoppas att ni fattar vad jag menar.
/larssonSv: söka igenom många textfiler?
Du börjar med att lägga upp en FileListBox
med DirPath satt till din App.Path och Pattern satt till *.txt
FileListBoxen kan vara liten och Visible = False.
Sedan får du plocka fil efter fil från denna lista med en ForSats
Och göra:
<code>
Dim FileNum As FreeFile
For i = 0 To File1.ListCount - 1
FileNum = FreeFile
Open App.Path & "\" & File1.List(i) For Input As #FileNum
Do Until EOF(FileNum)
Line Input #FileNum,tmpStr
If InStr(tmpStr,"hejsan") Then
'gör något med resultatet
End If
Loop
Close #FileNum
FileNum = FreeFile
Nästa Open osv. osv.
Next ' i
</code>
'/Sven