Function RedFajla(Putanja As String, BrojReda As Integer) As String '******************************************************* 'Ime: RedFajla (Function) 'Sadrzaj:Iscitava jedan red podataka iz fajla 'Autor: zxz 'Datum: 01.09.2013, 01:58:32 'Adresa: Tuzla BiH 'EMail: zxz@icentar.ba 'www: icentar.ba 'Ulazni parametri:Putanja sa imenom i broj reda 'Izlazni parametri:Sting reda fajla '****************************************************** On Error GoTo Greska Dim Temp As String Dim BrojFajla As Integer Dim i As Integer BrojFajla = FreeFile Open Putanja For Input As #BrojFajla For i = 1 To BrojReda Line Input #BrojFajla, Temp Next i RedFajla = Temp Close #BrojFajla Exit Function Greska: RedFajla = "False" End Function Function ProvjeriBIN() Dim Fajl1 As String Dim Fajl2 As String Dim temp1 As String Dim temp2 As String Dim i As Integer Dim R Fajl1 = "Putanjadofilea" & "\smetka.in"' ispravi putanju Fajl2 = PutanjaDoFilea"\Obrada\PF500.IN" 'ispravi putanju. For i = 1 To 11 temp1 = RedFajla(Fajl1, i) temp2 = RedFajla(Fajl2, i) R = InStr(1, temp1, temp2, vbBinaryCompare) If R = 0 Then MsgBox "Red: " & i & " nije isti" End If Next i End Function