Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190

Warning: Illegal string offset 'status' in /home2/icentarb/public_html/icentar/print.php on line 190
iCentar » Racunari i oprema » Programirannje i baze podataka » Vb/Vbnet » VB6 open binary file
zxz 09.02.2015 13:07
Predmet: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.

zxz 09.02.2015 13:12
Predmet:Re: VB6 open binary file

Pa cekaj to sto si zakacio je samo moj primjer a gdje je tvoje.
Zakaci svoje i exel fajlove.

zxz 10.02.2015 10:59
Predmet:Re: VB6 open binary file

Ako treba pojasnjenje nekog dijela moga koda i to napisi.

Avko 10.02.2015 12:05
Predmet:Re: VB6 open binary file

proba bin out
Prilozi:
proba out(1).zip (Velicina datoteke:20.14 KB)

zxz 10.02.2015 12:28
Predmet: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.

Avko 10.02.2015 13:00
Predmet:Re: VB6 open binary file

Citiraj 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

zxz 10.02.2015 18:42
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

zxz 10.02.2015 21:21
Predmet:Re: VB6 open binary file

e ovo je za ono stihove.
Evo i binarni zapis.
PreuzmiIzvorni kôd (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

zxz 11.02.2015 12:58
Predmet:Re: VB6 open binary file

immediate:
Kada si u vb modulu u meniju imas:
View--->immediate window ili jednostavno ctrl+G i dole na dnu ispod prozora modula pojavit ce se immediate prozor.
U njemu kucas kako sam naveo da bi ucitao podatke iz baze i to po odredjenom redu.
Ukucas koji red hoce i to je to.

Nekada prije se vecinu malih baza radilo kao tekstualne dok nije dosla dbf baza.
U paskalu kobolu itd..
Kada oces napraviti neku tekstulnu batu onda si prvo trebao napraviti strukturu baze.
Puno je to posla kada sad imamo mdb dbf i tps i jos njih.

Samo citaj knjige ima tamo svasta.
Imas i na forumu knjiga u pdf formatu.
Samo nemoj da pretjeras pa da ti se ogadi.
Ja licno misliim da ti znas mnogo vise nego sto zelis da pokazes.

Avko 11.02.2015 11:37
Predmet: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