zxz | 24.07.2011 17:38 |
---|---|
Predmet:Re: XML i access 2003 Citat: Jeli i da zatvori poslije Parametar? A treablo bi mi prije <Parametar> da otvori novi element koji se zove <Parametri>... |
EmirSuvalic | 24.07.2011 19:57 |
---|---|
Predmet:Re: XML i access 2003 zakatit cu bazu i Å¡emu i xml primjer |
|
Prilozi: POS.zip (Velicina datoteke:26.33 KB) |
zxz | 24.07.2011 21:09 |
---|---|
Predmet:Re: XML i access 2003 Evo probaj ovo. Mozda bude koja greskica jer sam kucao direktno ovdje. Vidi jeli to to sto ti treba. PreuzmiIzvorni kôd (Visual Basic):
|
EmirSuvalic | 24.07.2011 22:04 |
---|---|
Predmet:Re: XML i access 2003 To je to druže, ti si kralj |
zxz | 24.07.2011 23:16 |
---|---|
Predmet:Re: XML i access 2003 E sad to sve provjeri je li dobro, da nebi opanke derao djaba. Mozes provjeriti ovdje... |
EmirSuvalic | 24.07.2011 23:26 |
---|---|
Predmet:Re: XML i access 2003 Ako moze još jedno pitanje i necu vise obecavam, može li komentar ovih linija koda If Left(Temp, 11)="<Parametar>" Then Print #2, "<Parametri>" end if Print #2, Temp If Left(Temp, 12)="</Parametar>" Then Print #2, "</Parametri>" end if[list=ol][/list] |
zxz | 24.07.2011 23:38 |
---|---|
Predmet:Re: XML i access 2003 Forum sluzi za to da se postavljaju pitanja i naravno ako naravno ako nesto mislis da znas sto drugi mozda neznaju da napises. U temp se ucitava jedan red podataka If Left(Temp, 11)="<Parametar>" Then' ako je lijevo 11 karaktera u tempu jednako "<Parametar>" tada uradi sledece Print #2, "<Parametri>" upisi u fajl 2 "<Parametri>" end if Print #2, Temp ' upisi u fajl 2 iz memorijske temp koja cita iz fajla 1 tj iz sys.dll If Left(Temp, 12)="</Parametar>" Then -ovo dole ostalo je isto samo drugi uslov Print #2, "</Parametri>" end if[list=ol][/list] |
EmirSuvalic | 25.07.2011 00:11 |
---|---|
Predmet:Re: XML i access 2003 Kako sam ja skonato onaj tvoj prethodni kod ja sada kada dodajem nove linije samo prepravljam sta mi gdje pase evo primjer koji sam ja probao: If Left(Temp, 9) = "<artikal>" Then Print #3, "<RacunStavka>" End If Print #3, Temp If Left(Temp, 10) = "</artikal>" Then Print #3, "</RacunStavka>" End If |
zxz | 25.07.2011 00:33 |
---|---|
Predmet:Re: XML i access 2003 Objasnjenje cijele procedure Zapisixml PreuzmiIzvorni kôd (Visual Basic):
kako vidis fajl 3 ne postoji i javit ce ti gresku. Broj 1 i 2 su brojevi za otvorene fajlove |
Branestan | 20.11.2021 00:04 |
---|---|
Predmet:Re:XML i access 2003 Pozdrav! Iskoristio sam postojeći kod i prilagodio svojim tabelama ali nikako ne uspijevam dodati podatke iz druge tabele (a trebam dodati i drugu i treću - OBAVEZE i DL1). Dobijem ovo: <?xml version="1.0" encoding="UTF-8"?> <PRIJAVA_1002> <ZAGLAVLJE> <VRSTA_PRIJAVE>MPO1</VRSTA_PRIJAVE> <TIP_PRIJAVE>O</TIP_PRIJAVE> <JIB>4401295880006</JIB> <SIFRA_OPSTINE>028</SIFRA_OPSTINE> <PORESKI_PERIOD_OD>01.09.2021</PORESKI_PERIOD_OD> <PORESKI_PERIOD_DO>30.09.2021</PORESKI_PERIOD_DO> <ISPLATNI_PERIOD_OD>01.09.2021</ISPLATNI_PERIOD_OD> <ISPLATNI_PERIOD_DO>30.09.2021</ISPLATNI_PERIOD_DO> <POSLODAVAC_KTI/> <NAMJENA_PRIJAVE>2</NAMJENA_PRIJAVE> <ISPLATA_PRIMANJA>1</ISPLATA_PRIMANJA> <NACIN_OBAVLJANJA_SDJELATNOSTI/> <PO_NALOGU_INSPEKTORA>0</PO_NALOGU_INSPEKTORA> </ZAGLAVLJE> </PRIJAVA_1002> A treba da izgleda ovako: <?xml version="1.0" encoding="UTF-8"?> <PRIJAVA_1002> <ZAGLAVLJE> <VRSTA_PRIJAVE>MPO1</VRSTA_PRIJAVE> <TIP_PRIJAVE>O</TIP_PRIJAVE> <JIB>4401295880006</JIB> <SIFRA_OPSTINE>028</SIFRA_OPSTINE> <PORESKI_PERIOD_OD>01.09.2021</PORESKI_PERIOD_OD> <PORESKI_PERIOD_DO>30.09.2021</PORESKI_PERIOD_DO> <ISPLATNI_PERIOD_OD>01.09.2021</ISPLATNI_PERIOD_OD> <ISPLATNI_PERIOD_DO>30.09.2021</ISPLATNI_PERIOD_DO> <POSLODAVAC_KTI/> <NAMJENA_PRIJAVE>2</NAMJENA_PRIJAVE> <ISPLATA_PRIMANJA>1</ISPLATA_PRIMANJA> <NACIN_OBAVLJANJA_SDJELATNOSTI/> <PO_NALOGU_INSPEKTORA>0</PO_NALOGU_INSPEKTORA> </ZAGLAVLJE> <OBAVEZA> podaci iz tabele OBAVEZE </OBAVEZA> <DL1> podaci iz tabele DL1 </DL1> </PRIJAVA_1002> Zamolio bih ako neko bude u prilici da pogleda Å¡ta nedostaje u kodu, pa da me usmjeri. |
|
Prilozi: POS_1.rar (Velicina datoteke:32.61 KB) |