Prikazi cijelu temu 10.02.2015 19:42
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: VB6 open binary file
Hehe dobra ti ta pjesmica.
Ako naucis programirat kao sto mjesme pises bit ces dobar hehehe.
Evo ti tvoj kod.
U exelu sam sve uradio.
E sad ja nisam ni citao ponovo gore a zaboravio sam sta tacno hoces.
Da prvo napisem sta sam napravio.
Prepravio sam tvoju proceduru za upis fajla.
Samo sam prepravio tvoje varijable koje seu bile brojevi u tekst i odredio duzine zapisa u tipu.
Da se razumijemo mogle su one i ostato brojcane bez problema pa ako zelis mozemo oko toga eksperimentisati.
Moze se ovo doraditi da bude i binarni zapis ali koliko se sjecam ti si rekao da te to ne interesuje bar za sada.

Napravio sam ti i proceduru z ucitavanje jednog reda podataka.
To moze isprobati ako u immediate ukucas:
?UcitajRed(brojredakojizelis)
Primjer:
?UcitajRed(7)
PreuzmiIzvorni kôd (Visual Basic):
  1. Type osoba
  2.     maticniBr As String * 13
  3.     ime As String * 25
  4.     prezime As String * 25
  5.     datumR As String * 10
  6.     adresa As String * 25
  7.     telefon As String * 9
  8. End Type
  9.  
  10. Function saveBinFile()
  11.     Dim O As osoba
  12.     Dim maticni As Long 'vrijednost kucice
  13.    Dim strSize As Long
  14.  
  15.     Open "c:\popis.bin" For Random As #1 Len = Len(O)
  16.     For f = 1 To 50
  17.         Worksheets("list1").Select
  18.         maticni = Cells(f + 1, 1)
  19.         O.maticniBr = maticni
  20.         O.ime = Cells(f + 1, 2)
  21.         O.prezime = Cells(f + 1, 3)
  22.         O.datumR = Cells(f + 1, 4)
  23.         Worksheets("list2").Select
  24.         O.adresa = Application.WorksheetFunction.VLookup(maticni, Range("A2:e51"), 4, False)
  25.         O.telefon = Str(Application.WorksheetFunction.VLookup(maticni, Range("A2:e51"), 5, False))
  26.          Put 1, f, O
  27.     Next f 'sljedeci red
  28.    Close 1 'zatvorimo datoteku
  29. End Function
  30.  
  31. Function UcitajRed(KojiRed As Integer)
  32.   Dim RedP As osoba 'red podataka za ososubu
  33.  Dim temp
  34.   Open "c:\popis.bin" For Random As #1 Len = Len(RedP)
  35.     Get #1, KojiRed, RedP
  36.  temp = Trim(RedP.ime) & " " & Trim(RedP.prezime) & vbCr & "Rodjen: " & RedP.datumR _
  37.  & vbCr & "Adresa:" & RedP.adresa _
  38.  & vbCr & "Matcini br:" & RedP.maticniBr & vbCr & "Tel:" & RedP.telefon
  39.   Close #1
  40.   MsgBox temp
  41. End Function
Podrska samo putem foruma, jer samo tako i ostali imaju koristi od toga.