sub Einlesen()
 
Dim sInhalt As String
Dim F As Integer
 
If Dir$(App.Path & "\dos-scan.log", vbNormal) <> "" Then
' Beliebige Datei auslesen und Inhalt als String zurückgeben
' Datei im Binärmodus öffnen
 F = FreeFile: Open App.Path & "\Dos-Scan.log" For Binary As #F
' Größe ermitteln und Variable entsprechend mit Leerzeichen füllen
 sInhalt = Space$(LOF(F))
' Gesamten Inhalt in einem "Rutsch" einlesen
'Hier werden Umlaute konvertiert!!!!!
 Get #F, , sInhalt
' Datei schliessen
 Close #F
call suchen(sInhalt)
end sub

sub Suchen(byVal Eingabe)
 
dim Suchstring as string
dim Inhalt as variant
dim Startwert as integer
 
 
suchstring=txt_eingabe.text
 
'die eingelesenen Daten aufsplitten
Inhalt = Split(sInhalt, vbCrLf)
 
startwert=1
 
for i = 0 to ubound(inhalt)-1
if instr(startwert,inhalt,suchstring)<>0 then
lst_ausgabe.additem (inhalt(i))
endif
startwert=startwert+len(suchstring)
next i
 
end sub