<br />
<b>Notice</b>:  Undefined offset: 2 in <b>/home2/icentarb/public_html/icentar/classes/class.permissions.php</b> on line <b>735</b><br />
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)
te