Søge efter karakter i fil
Mangler noget kode til at lede i en fil om en given karakter eksisterer. Så snart første forekomst er fundet, skal funktionen afsluttes og returnere til kaldende funktion.Function FindCharacterInFile(objFile As Variant, chrKarakter As String) as boolean
dim fnum as integer
fnum = FreeFile
Open objFile For Input As fnum
'Find første forekomst af karakteren chrKarakter
Close fnum
End Function