[es] - Visual Basic & XML

batezzv
Nenad Ivanovic
student
Beograd

Član broj: 205265
Poruke: 5
*.xdsl.beograd.com.

Profil

^{17.02.2009. u 12:28 - pre 184 meseci}

Pozdrav svima ovoga sajta.
Skoro sam poceo da se bavim programiranjem(jos sam pocetnik) ali odnedavno sam cuo za ovaj sajt i mogu vam reci da pruza mnogo informacija i pomoci u vezi programiranja.
Moje pitanje koje je vezano za zadatak glasi:
Da li mogu da napravim aplikaciju u VB 6 koja bi citala dva ili vise xml fajla i spajala ih u jedan.
Npr.aplikacija bi sadrzala:jedan txtbox ili labelu(u njemu bi bila ispisana putanja do foldera datog xml fajla),
zatim tri dugmeta:npr dugme"izaberi folder" koji bi se pritiskom na njega otvorio brows for folder prozor(za odabir datog foldera),a ta putanja bi bila naravno ispisana u txtbox-u,dugme "spoji xml fajlove" bi bila glava programa,ono bi spajala sve odabrane xml fajlove u jedan i snimala ga u neki direktorijum na disku i na kraju dugme "zatvori" za kraj i izlazenje iz programa.
Eto otprilike bi tako izgledala aplikacija,ako slucajno neko zna bolje resenje kako bi aplikacija izgledala neka mi javi jer svaka pomoc je dobro dosla u bilo kom formatu,hvala unapred,pozdrav!!!

Odgovor na temu

dava
Banja Luka

Član broj: 27208
Poruke: 893

+384 Profil

Re: Visual Basic & XML

^{18.02.2009. u 07:58 - pre 184 meseci}

Odgovor na pitanje da li je moguce je: naravno da jeste.
Pocni realizovati to rjesenje pa gdje zapnes, objasni ovdje detaljno problem (najbolje bi bilo uz prikacen kod) i mozes ocekivati pomoc.
Pozdrav

SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'

Odgovor na temu

batezzv
Nenad Ivanovic
student
Beograd

Član broj: 205265
Poruke: 5
*.xdsl.beograd.com.

Profil

Re: Visual Basic & XML

^{18.02.2009. u 10:41 - pre 184 meseci}

Hvala ti druze na pomoci ali ne znam kako da pocnem,totalna mi je blokada nastala.
Da li mozda mozes da mi ukazes na neki sajt sa slicnim primerom,kako bi bilo sta poceo,pozdrav!!!

Odgovor na temu

dava
Banja Luka

Član broj: 27208
Poruke: 893

+384 Profil

Re: Visual Basic & XML

^{18.02.2009. u 12:57 - pre 184 meseci}

Citat:

batezzv: totalna mi je blokada nastala.

A sta je problem reci: ne znam.
Pocinje se tako sto se otvori novi projekat, a linkove ces naci tako sto u naseg druga google -a otkucas "read xml vb6" ;)

SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'

Odgovor na temu

batezzv
Nenad Ivanovic
student
Beograd

Član broj: 205265
Poruke: 5
*.xdsl.beograd.com.

Profil

Re: Visual Basic & XML

^{19.02.2009. u 13:10 - pre 184 meseci}

Pozdrav druze!
Evo ovako krenuo sam sa jednostavnim primerom ali mi javlja gresku

Code:
Private Sub Form_Load()
Dim doc As New DOMDocument30
    doc.async = False
    doc.validateOnParse = False
    doc.resolveExternals = False

    Path = App.Path + "\moje.xml"  'putanja moga xml fajla
    doc.Load Path
    MsgBox "doc: " + doc.xml

End Sub

Greska je u tome sto varijabla Path nije definisana (variable not defined).
Pre toga sam podesio referencu na projektu (Microsoft XML v6.0) i napravio svoj xml fajl i ubacio ga u folder gde sam snimo projekat.Sta da radim zemljace?

_{[Ovu poruku je menjao Aleksandar Vasic dana 20.02.2009. u 00:23 GMT+1]}

Odgovor na temu

dava
Banja Luka

Član broj: 27208
Poruke: 893

+384 Profil

Re: Visual Basic & XML

^{19.02.2009. u 14:59 - pre 184 meseci}

Moras definisati varijablu Path.

Stavi ispod form_load:

Code:
Dim Path as string

SELECT * FROM หน่วยงานหลัก WHERE ยสันติ LIKE 'โดย%'

Odgovor na temu

batezzv
Nenad Ivanovic
student
Beograd

Član broj: 205265
Poruke: 5
*.xdsl.beograd.com.

Profil

Re: Visual Basic & XML

^{19.02.2009. u 15:35 - pre 184 meseci}

Hvala druze sad sam video gde je greska(kakav sam ja glupan),hvala ziv bio!!!

Odgovor na temu

batezzv
Nenad Ivanovic
student
Beograd

Član broj: 205265
Poruke: 5
*.xdsl.beograd.com.

Profil

Re: Visual Basic & XML

^{20.02.2009. u 13:08 - pre 184 meseci}

e sad je na red doslo ono najteze...
uradio sam program koji spaja dva xml fajla u jedan ali ne na onaj nacin koji ja zelim...

Private Sub Form_Load()
Dim dom1
Dim Path

Set dom1 = New DOMDocument30
dom1.async = False
dom1.resolveExternals = False
Path = App.Path + "\moje.xml"
dom1.Load Path

Dim dom2 As New DOMDocument30
dom2.async = False
dom2.resolveExternals = False
Path = App.Path + "\test.xml"
dom2.Load Path

txtFile.Text = dom1.xml + dom2.xml

End Sub

resenje ovog programcica npr. izgleda odprilike ovako:
<?xml version="1.0"?>
<Faktura>
<Ustanova>
<VerFor>10.03</VerFor>
<SifUst>17669656</SifUst>
<PIB>104888494</PIB>
<VrsFak>10</VrsFak>
<PerOd>01.01.2009</PerOd>
<PerDo>31.01.2009</PerDo>
<DatFak>31.01.2009</DatFak>
<Izn>2242,88</Izn>
<StrBrDok></StrBrDok>
</Ustanova>
<Osiguranik>
<Prez>RAKIĆ</Prez>
<Ime>BRANKO</Ime>
<LBO>27100035313</LBO>
<JMBG>1404981772021</JMBG>
<BZK>10073459116</BZK>
</Osiguranik>
</Faktura>
<?xml version="1.0"?>
<Faktura>
<Ustanova>
<VerFor>10.03</VerFor>
<SifUst>17669656</SifUst>
<PIB>104888494</PIB>
<VrsFak>10</VrsFak>
<PerOd>01.01.2009</PerOd>
<PerDo>31.01.2009</PerDo>
<DatFak>31.01.2009</DatFak>
<Izn>2242,88</Izn>
<StrBrDok></StrBrDok>
</Ustanova>
<Osiguranik>
<Prez>MEKIĆ</Prez>
<Ime>MARKO</Ime>
<LBO>27100046313</LBO>
<JMBG>1406981572022</JMBG>
<BZK>10083459216</BZK>
</Osiguranik>
</Faktura>

Ono sto meni treba je da se xml objedini u jedan,na takav nacin da se samo dodaju novi podaci u tagu Osiguranik(ime,prezime,jmbg...) ali da Ustanova (podaci u njoj) ostane zajednicka za sve posto je ona jedinstvena.
Ne znam da li sam dobro objasnio ali pokusacu ponovo.Ja npr. dobijam vise xml fajlova od neke ustanove,ustanova je ista za sve ali samo se osiguranici menjaju tj njih samo treba da nadovezujem u taj jedinstveni xml fajl.
Ne znam kako to da uradim,svaka pomoc je dobro dosla,hvala unapred,pozdrav!!!

Odgovor na temu