| zxz |
09.02.2015 14: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 14: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 11:59 |
Predmet:Re: VB6 open binary file
Ako treba pojasnjenje nekog dijela moga koda i to napisi. |
| Avko |
10.02.2015 13:05 |
Predmet:Re: VB6 open binary file
proba bin out |
Prilozi:
proba out(1).zip (Velicina datoteke:20.14 KB)
|
| zxz |
10.02.2015 13: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 14: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 
sada mozemo razvijati vb aplikaciju
malo ja
vise ti
vise ti nego ja
pa cemo se druziti |
| zxz |
10.02.2015 19: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):Type osoba maticniBr As String * 13 ime As String * 25 prezime As String * 25 datumR As String * 10 adresa As String * 25 telefon As String * 9 End Type Function saveBinFile() Dim O As osoba Dim maticni As Long 'vrijednost kucice Dim strSize As Long Open "c:\popis.bin" For Random As #1 Len = Len(O) For f = 1 To 50 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) Worksheets("list2").Select O.adresa = Application.WorksheetFunction.VLookup(maticni, Range("A2:e51"), 4, False) O.telefon = Str(Application.WorksheetFunction.VLookup(maticni, Range("A2:e51"), 5, False)) Put 1, f, O Next f 'sljedeci red Close 1 'zatvorimo datoteku End Function Function UcitajRed(KojiRed As Integer) Dim RedP As osoba 'red podataka za ososubu Dim temp Open "c:\popis.bin" For Random As #1 Len = Len(RedP) Get #1, KojiRed, RedP temp = Trim(RedP.ime) & " " & Trim(RedP.prezime) & vbCr & "Rodjen: " & RedP.datumR _ & vbCr & "Adresa:" & RedP.adresa _ & vbCr & "Matcini br:" & RedP.maticniBr & vbCr & "Tel:" & RedP.telefon Close #1 MsgBox temp End Function
|
| zxz |
10.02.2015 22:21 |
Predmet:Re: VB6 open binary file
e ovo je za ono stihove.
Evo i binarni zapis.
PreuzmiIzvorni kôd (Visual Basic):Type osoba maticniBr As String ime As String prezime As String datumR As String adresa As String telefon As String End Type Type binar maticniBr() As Byte ime() As Byte prezime() As Byte datumR() As Byte adresa() As Byte telefon() As Byte End Type Function saveBinFile() Dim O As osoba Dim B As binar Dim maticni As Long 'vrijednost kucice Dim strSize As Long Dim tmp() As Byte Open "c:\popis.bin" For Binary As #1 'Len = Len(O) For f = 1 To 50 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) Worksheets("list2").Select O.adresa = Application.WorksheetFunction.VLookup(maticni, Range("A2:e51"), 4, False) O.telefon = Str(Application.WorksheetFunction.VLookup(maticni, Range("A2:e51"), 5, False)) B.adresa = O.adresa B.maticniBr = O.maticniBr B.ime = O.ime B.prezime = O.prezime B.datumR = O.datumR B.telefon = O.telefon Put 1, , B Next f 'sljedeci red Close 1 'zatvorimo datoteku End Function Function UcitajRed(KojiRed As Integer) Dim RedP As binar 'red podataka za ososubu Dim t As osoba Dim temp Dim I As Integer Open "c:\popis.bin" For Binary As #1 For I = 1 To KojiRed Get #1, , RedP Next I temp = Trim(RedP.ime) & " " & Trim(RedP.prezime) & vbCr & "Rodjen: " & Trim(RedP.datumR) _ & vbCr & "Adresa:" & Trim(RedP.adresa) _ & vbCr & "Matcini br:" & Trim(RedP.maticniBr) & vbCr & "Tel:" & Trim(RedP.telefon) Close #1 MsgBox temp End Function
|
| zxz |
11.02.2015 13: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 12: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  |