Prikazi cijelu temu 15.02.2015 11:57
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


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):
  1. Function RedFajla(Putanja As String, BrojReda As Integer) As String
  2. '*******************************************************
  3. 'Ime:      RedFajla (Function)
  4. 'Sadrzaj:Iscitava jedan red podataka iz fajla
  5. 'Autor: zxz
  6. 'Datum: 01.09.2013, 01:58:32
  7. 'Adresa: Tuzla BiH
  8. 'EMail: zxz@icentar.ba
  9. 'www: icentar.ba
  10. 'Ulazni parametri:Putanja sa imenom i broj reda
  11. 'Izlazni parametri:Sting reda fajla
  12. '******************************************************
  13.  
  14. On Error GoTo Greska
  15.        Dim Temp As String
  16.        Dim BrojFajla As Integer
  17.        Dim i As Integer
  18.  
  19.        BrojFajla = FreeFile
  20.        Open Putanja For Input As #BrojFajla
  21.        For i = 1 To BrojReda
  22.        Line Input #BrojFajla, Temp
  23.        Next i
  24.        RedFajla = Temp
  25.        Close #BrojFajla
  26.        
  27. Exit Function
  28. Greska:
  29. RedFajla = "False"
  30. End Function
  31. Function ProvjeriBIN()
  32. Dim Fajl1 As String
  33. Dim Fajl2 As String
  34. Dim temp1 As String
  35. Dim temp2 As String
  36. Dim i As Integer
  37. Dim R
  38.  
  39.  
  40. Fajl1 = "Putanjadofilea" & "\smetka.in"' ispravi putanju
  41. Fajl2 = PutanjaDoFilea"\Obrada\PF500.IN" 'ispravi putanju.
  42.  
  43. For i = 1 To 11
  44. temp1 = RedFajla(Fajl1, i)
  45. temp2 = RedFajla(Fajl2, i)
  46. R = InStr(1, temp1, temp2, vbBinaryCompare)
  47. If R = 0 Then
  48. MsgBox "Red: " & i & " nije isti"
  49. End If
  50. Next i
  51.  
  52. End Function

samo jos jedno pitanje ako moze.

Kada stampas ovaj svoj tj. smetka.IN, jel oštampa prazan papir ili ostampa nule.
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.