Predmet:Re: Struktura na fajl
Gledaj sto se tice ovog idetifikacionog fajla i tvoga fajla koji si napravio oni su potpuno isti.
Provjerio sam ih i binarno.
Znaci da postoji igdje ikakva razlika binarno bi javio.
Ako imas total comander mozes to provjeriti a imam ja i kod za provjeru.
PreuzmiIzvorni kôd (Visual Basic):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
samo jos jedno pitanje ako moze.
Kada stampas ovaj svoj tj. smetka.IN, jel oštampa prazan papir ili ostampa nule.
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.