Prikazi cijelu temu 08.02.2015 19:35
zxz Van mreze
Administrator
Registrovan od:03.02.2009
Lokacija:Tuzla


Predmet:Re: VB6 open binary file
evo probaj ovako:

Type osoba
maticniBr As Long
ime As String
prezime As String
datumR As Date
adresa As String
telefon As Double
End Type

Sub saveBinFile()
Dim O As osoba
Dim maticni As Long 'vrijednost kucice
Dim strSize As Long

'stvoriti novu datoteku i otvoriti ju za binarni pristup
Open "c:\popis.bin" For Binary Lock Read Write As 1

'idemo od prvog zapisa do zadnjeg
'ovdje bi mogli odrediti zadnji zapis sa redEnd=(Cells(1, Columns.Count).End(xlToLeft).Column
For f = 1 To 50
'aktiviramo prvi list na kojem imamo maticni, ime, prezime i datum rod
Worksheets("list1").Select
maticni = Cells(f + 1, 1)
O.maticniBr = maticni
O.ime = Cells(f + 1, 2)
O.prezime = Cells(f + 1, 3)
O.datumR = Cells(f + 1, 4)

'aktiviramo drugi list na kojem imamo adresu i telefon nademo uz pomoc naredbe vlookup i maticnog broja
Worksheets("list2").Select
O.adresa = Application.WorksheetFunction.VLookup(maticni, Range("A2:e51"), 4, False)
O.telefon = Application.WorksheetFunction.VLookup(maticni, Range("A2:e51"), 5, False)

put 1,f,o

Next f 'sljedeci red
Close 1 'zatvorimo datoteku
End Sub

'put brojSekvencialnogfajla, brojrekorda, podatakzaunos
Podrška samo putem foruma, jer samo tako i ostali imaju koristi od toga.