Bosna i Hercegovina



zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,293


Subject: Re: VB6 open binary file
@avko
Citat:
zasto se koriste moduli, jeli se moglo staviti sve u jednu stranu, zapravo meni se dogadalo da neke varijable izgube vrijednost kada odem na modul pa sam iz toga razloga cijeli kod pisao samo na jednoj stran

Postavi novu temu za ovo o variablama i modulima.
@Gjoreski
http://www.icentar.ba/...&id=19980
Pozdrav
↑  ↓

Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,159


Subject: Re: VB6 open binary file
Ako e sugestija deka ovie bin fajlovi ne se koristat za kriptirajne go razbrav toa,jas rekov deka ke go probam na mesto kade sto koristam nekoi teks dokumenti za zapis na poveke podatoci. Toa so zapis vo teks fajl go koristam pred da izbrisam nekoi podatoci vo slucaj da mi pritrebat da gi vratam
↑  ↓

Avko Offline
Super Moderator
Registrovan/a od: 28.05.2014-09:21
Komentari: 2,373


Subject: Re: VB6 open binary file
evo fajl, nesto mi bas i ne radi

http://speedy.sh/UZQKK/vb6-binarni-fajl.rar
[url=http://speedy.sh/UZQKK/vb6-binarni-fajl.rar]binari_fajl[/url]

eto neznam kako staviti prilog , valjda ce raditi
kopirao sam novi popis.bin u dir gdje je kod
evo sto dobijem
[img][/img]
Newton laže! Lake padaju brže!
↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,293


Subject: Re: VB6 open binary file
Najbolje bi bilo da cio primjer zakacis kao i xls fajlove iz kojih citas.
Znam da sa tvojim kodom nemozes dobiti to sto zelis jer upisujes i duzinu stringa sto nema potrebe.
Na ovoj slici ne vidim bas puno a linkove jos nisam ni pogledao.
Ako ti podaci sta znace onda ih malo izmijenjaj pša sve to prikaci na forum i rijesit cemo to.
Pozdrav
↑  ↓

Gjoreski Offline
Super Moderator
Registrovan/a od: 02.02.2009-22:24
Komentari: 1,159


Subject: Re: VB6 open binary file
ova kaj mene raboti
↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,293


Subject: Re: VB6 open binary file
Uf pa jqa nisam ni vidio da je on zakacio fajlove.
Znaci opet mu nije ovdje uspjelo.
za @avko
Kada ti se otvori onaj treci prozor u opisu tada klikas na taster dole i ucitas fajlove 1 2 ili 3 vise ne moze.
Kada ti se ispod toga pojavi ime ili imena fajlova znaci da su ucitani.
Poslije toga netrebas nista raditi sem zatvoriti taj prozor.
Probaj opet slobodno, ako neces ovdje mozes u test forumu.

Sada cu pogledati ovaj tvoj rad.
Pozdrav
↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,293


Subject: Re: VB6 open binary file
Pa cekaj to sto si zakacio je samo moj primjer a gdje je tvoje.
Zakaci svoje i exel fajlove.
Pozdrav
↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,293


Subject: Re: VB6 open binary file
Ako treba pojasnjenje nekog dijela moga koda i to napisi.
Pozdrav
↑  ↓

Avko Offline
Super Moderator
Registrovan/a od: 28.05.2014-09:21
Komentari: 2,373


Subject: Re: VB6 open binary file
proba bin out

Prilozi:
Informacije o fajlu: zip  proba out(1).zip
Preuzimanja: 11
Veličina: 20.14 KB


Newton laže! Lake padaju brže!
Ovaj komentar je mijenjan 1 puta. zadnja izmjena 10.02.2015-12:06 od strane Avko. ↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,293


Subject: Re: VB6 open binary file
Napisao sam ti gore.
Kada izvrsis upload netrebas nista pritiskati vise nego jednostavno zatvoriti prozor.
Znaci kada u onom prozoru kliknes na taster odaberi i pojavi de dialog box za odabir fajla te ga odabere i kliknes na open. I to je sve sada samo zatvoris prozor za upload.
Netrebas klikati na potvrdi niti na bilo sta samo zatvori prozor.
Pozdrav
↑  ↓

Avko Offline
Super Moderator
Registrovan/a od: 28.05.2014-09:21
Komentari: 2,373


Subject: Re: VB6 open binary file
Citat od zxz:
Napisao sam ti gore.
Kada izvrsis upload netrebas nista pritiskati vise nego jednostavno zatvoriti prozor.
Znaci kada u onom prozoru kliknes na taster odaberi i pojavi de dialog box za odabir fajla te ga odabere i kliknes na open. I to je sve sada samo zatvoris prozor za upload.
Netrebas klikati na potvrdi niti na bilo sta samo zatvori prozor.

evo sada sam naucio zakaciti fajl. svakoga dana u svakom pogledu sve vise napredujem Grinning
sada mozemo razvijati vb aplikaciju
malo ja
vise ti
vise ti nego ja
pa cemo se druziti Grinning
Newton laže! Lake padaju brže!
↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,293


Subject: 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)
DownloadIzvorni kod (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

Pozdrav
↑  ↓

zxz Offline
Administrator
Registrovan/a od: 03.02.2009-16:22
Komentari: 9,293


Subject: Re: VB6 open binary file
e ovo je za ono stihove.
Evo i binarni zapis.
DownloadIzvorni kod (Visual Basic):
  1. Type osoba
  2.     maticniBr As String
  3.     ime As String
  4.     prezime As String
  5.     datumR As String
  6.     adresa As String
  7.     telefon As String
  8. End Type
  9. Type binar
  10.     maticniBr() As Byte
  11.     ime() As Byte
  12.     prezime() As Byte
  13.     datumR() As Byte
  14.     adresa() As Byte
  15.     telefon() As Byte
  16. End Type
  17.  
  18. Function saveBinFile()
  19.     Dim O As osoba
  20.     Dim B As binar
  21.     Dim maticni As Long 'vrijednost kucice
  22.    Dim strSize As Long
  23.     Dim tmp() As Byte
  24.  
  25.     Open "c:\popis.bin" For Binary As #1 'Len = Len(O)
  26.    For f = 1 To 50
  27.         Worksheets("list1").Select
  28.         maticni = Cells(f + 1, 1)
  29.         O.maticniBr = maticni
  30.         O.ime = Cells(f + 1, 2)
  31.         O.prezime = Cells(f + 1, 3)
  32.         O.datumR = Cells(f + 1, 4)
  33.         Worksheets("list2").Select
  34.         O.adresa = Application.WorksheetFunction.VLookup(maticni, Range("A2:e51"), 4, False)
  35.         O.telefon = Str(Application.WorksheetFunction.VLookup(maticni, Range("A2:e51"), 5, False))
  36.         B.adresa = O.adresa
  37.         B.maticniBr = O.maticniBr
  38.         B.ime = O.ime
  39.         B.prezime = O.prezime
  40.         B.datumR = O.datumR
  41.         B.telefon = O.telefon
  42.         Put 1, , B
  43.     Next f 'sljedeci red
  44.    Close 1 'zatvorimo datoteku
  45. End Function
  46.  
  47. Function UcitajRed(KojiRed As Integer)
  48.   Dim RedP As binar 'red podataka za ososubu
  49.  Dim t As osoba
  50.   Dim temp
  51.   Dim I As Integer
  52.  
  53.   Open "c:\popis.bin" For Binary As #1
  54.   For I = 1 To KojiRed
  55.     Get #1, , RedP
  56.   Next I
  57.  temp = Trim(RedP.ime) & " " & Trim(RedP.prezime) & vbCr & "Rodjen: " & Trim(RedP.datumR) _
  58.  & vbCr & "Adresa:" & Trim(RedP.adresa) _
  59.  & vbCr & "Matcini br:" & Trim(RedP.maticniBr) & vbCr & "Tel:" & Trim(RedP.telefon)
  60.   Close #1
  61.   MsgBox temp
  62. End Function

Pozdrav
↑  ↓

Avko Offline
Super Moderator
Registrovan/a od: 28.05.2014-09:21
Komentari: 2,373


Subject: Re: VB6 open binary file
ockej
malo cu to isprobavati pa se javim ako gdje zapnem
lp
Newton laže! Lake padaju brže!
↑  ↓

Avko Offline
Super Moderator
Registrovan/a od: 28.05.2014-09:21
Komentari: 2,373


Subject: Re: VB6 open binary file
u ovome prvome slucaju gdje koristis random tj snimanje valjda u klasicni txt fajl velicina fajla je 5,22kb
onom drugom metodom gdje koristis binari velicina je 7,84kb, a ona moja prva metoda snimanja u binari obliku tamo gdje ubacujem velicinu stringa pa svaki pojedinacno snimam dakle:

strSize = Len(O.ime)
Put 1, , strSize
Put 1, , O.ime
ta na kraju datoteka zauzima 2,89kb
valjda stedi na taj nacin sto odredujem unapred koliko ce zauzeti mjesta, neznam nisam bas neki strucnjak

(neznam dio teksta citirati pa sam prepisao)
zxz citat: To moze isprobati ako u immediate ukucas:

e taj imedidate neznam sto je ni gdje se nalazi, ali mi se svida ono sa function, to si napravio pa poslje mozemo pozivati valjda prema potrebi,
uff uff uff pomalo me glava pocela boliti od svega ovoga
idem uzeti malo neke knjige pa vidjeti ako ima sta o funkcijama i modulima pa se javim navece.
kupio na rasprodaji vbnet, vb6, vbdatabase. bilo jeftino pa sve sto imalo ime vb u sebi i ja uzeo Smiling
Newton laže! Lake padaju brže!
↑  ↓

 Podijeli  Dodaj odgovor Stranice (3): 1, 2, 3


All times are GMT +01:00. Current time: 29.04.2017-06:26.