Moguće da ni Trtko ni ja nismo najbolje shvatili, ali ako samo želiš da pretražiš fajl i ustanoviš da li se neki tekst nalazi u fajlu možda bi trebalo da koristiš nešto ovako:
Code:
Private Sub Command1_Click
NadjiTekst "d:\racuni\izdati.log", "tralala"
End Sub
Public Sub NadjiiTekst(KojiFile As String, KojiTekst As String)
Dim InputData As String
Dim Nadjeno As Boolean
Open KojiFile For Input As #1
Do While Not EOF(1)
Line Input #1, InputData
If Instr(1, InputData, KojiTekst) > 0 Then
Nadjeno = True
GoTo CloseFile ' Izlazi iz petlje
End If
Loop
CloseFile:
Close #1 ' Close file.
MsgBox "Tekst " & KojiTekst & " " & IIf(Nadjeno, "", "ni") & "je nadjen u datoteci " & KojiFile
End Sub
PS: Trle, tvoj kod iznad ne vraća dobru vrednost za rbr, na početku treba da bude rbr = 0.
Ozbiljan i odgovoran mladić