Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.

XML dokument - iscitavanje i export u Excel

[es] :: Visual Basic 6 :: XML dokument - iscitavanje i export u Excel

[ Pregleda: 2812 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

Autor

Pretraga teme: Traži
Markiranje Štampanje RSS

igor-ch
IT

Član broj: 12902
Poruke: 647
*.dclient.hispeed.ch.



+69 Profil

icon XML dokument - iscitavanje i export u Excel22.11.2009. u 15:48 - pre 175 meseci
Posto nisam neki strucnjak za programiranje, moram da vam se obratim za pomoc:
najme, jednom mesecno moram u firmi da iz jednog XML File-a izvucem odredjene podatke i da ih exportiram u Excel tabelu.
To i ne bi bio problem da taj XML dokument nema oko 300 linija i izgleda otprilike ovako (jedan deo):

<Patch name="Works432.CAB" guid="004FAB82-E7FD-4F37-8346-903FF2961E7E" guid_bulletin="894B5ADC-872D-42D5-B195-43A4240F629D" bulletin="MS09-024" state="20" />
<Patch name="ogl.cab" guid="00EDAE9D-6DDC-4F22-B56B-86B697FA2BA9" guid_bulletin="44EF731A-FA66-4AA8-B8D2-D7B9B89269D4" bulletin="MS09-062" state="20" />
<Patch name="EXCEL.CAB" guid="012B6FF5-1DCE-4E1A-B5F2-1C2C2FF8314C" guid_bulletin="359A568E-29F4-4060-BC83-E32556B5FB9D" bulletin="MS06-059" state="20" />

.
.
.

Trebao bih da dobijem sledecu tabelu:

Works432.CAB____MS09-024
ogl.cab__________MS09-062
EXCEL.CAB_______MS06-059

Posto sam ranije malo programirao u VB6 mislim da bi najbolji nacin bio da koristim OLE: Microsoft XML, v6.0, ali dalje nazalost ne ide :-(
Da li neko ima neki primer kako bi to moglo da se odradi ili mozda neku ideju?

Hvala unapred!

[Ovu poruku je menjao igor-ch dana 22.11.2009. u 21:05 GMT+1]
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net


+1 Profil

icon Re: XML dokument - iscitavanje i export u Excel22.11.2009. u 18:39 - pre 175 meseci
Evo ti najprostoji nacin :)

Code:
Private Function Obradi(Ulaz As String)
Text1.Text = Replace(Text1.Text, "<Patch name", "")
Text1.Text = Replace(Text1.Text, "guid", "")
Text1.Text = Replace(Text1.Text, "guid_bulletin", "")
Text1.Text = Replace(Text1.Text, "bulletin", "")
Text1.Text = Replace(Text1.Text, "state", "")
Text1.Text = Replace(Text1.Text, "_", "")
Text1.Text = Replace(Text1.Text, "/>", "")
Text1.Text = Replace(Text1.Text, Chr(34), "")
Niz = Split(Text1.Text, "=")
Obradi = Niz(1) & " " & Niz(4)
End Function

Private Sub Command1_Click()
MsgBox Obradi(Text1.Text)
End Sub


Citas taj fajl red po red i parsiras pomocu ovoga :)
 
Odgovor na temu

igor-ch
IT

Član broj: 12902
Poruke: 647
*.dclient.hispeed.ch.



+69 Profil

icon Re: XML dokument - iscitavanje i export u Excel22.11.2009. u 21:20 - pre 175 meseci
Hvala!
Pronasao sam na netu ovaj primer koji ucitava i snima fajl:

E sad, dodao bih mu jos jedan taster kojim bi se moj XML fajl kompletan (svih oko 300 linija) obradio. Da li bi neko mogao da mi jos malo pomogne?





[Ovu poruku je menjao igor-ch dana 23.11.2009. u 10:30 GMT+1]
Prikačeni fajlovi
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net


+1 Profil

icon Re: XML dokument - iscitavanje i export u Excel23.11.2009. u 12:21 - pre 175 meseci
Evo probaj ovo
Prikačeni fajlovi
 
Odgovor na temu

igor-ch
IT

Član broj: 12902
Poruke: 647
*.dclient.hispeed.ch.



+69 Profil

icon Re: XML dokument - iscitavanje i export u Excel23.11.2009. u 18:11 - pre 175 meseci
Citat:
Aleksandar Vasic: Evo probaj ovo

Jos samo dve male sitnice:
1. XML fajl ima na pocetku i kraju zaglavlje, tako da mi prijavljuje gresku:
<BMSSpecialImport>
<PTMPatchStates version="1.0" count="5895">
.
.
.
</PTMPatchStates>
</BMSSpecialImport>

2.Kako da snimim rezultat koji se pojavljuje u List1? Kada ucitam i parsiram fajl i kada ga posle snimim, ne dobijam rezultat vec opet taj ucitani fajl.

 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net


+1 Profil

icon Re: XML dokument - iscitavanje i export u Excel23.11.2009. u 18:40 - pre 175 meseci
Sto se tice prve stavke, dodajes ovo u funkciju Obradi:

Code:
Ulaz = Replace(Ulaz, "<BMSSpecialImport>", "")
Ulaz = Replace(Ulaz, "<PTMPatchStates version=" & Chr(34) & "1.0" & Chr(34) & "count=" & Chr(34) & "5895" & Chr(34) & ">", "")
Ulaz = Replace(Ulaz, "</PTMPatchStates>", "")
Ulaz = Replace(Ulaz, "</BMSSpecialImport>", "")


Fajl iz liste mozes zapamtiti na sledeci nacin:

Code:
For i = 0 to List1.ListCount
Izlaz = List1.List(i) & vbCrLf
Next i
cdlg.ShowSave
SaveText Izlaz, cdlg.FileName & ".txt"


To sto se ucitava isti fajl je zato sto sam ja ubacio u Text1 za svojstvo text, taj tekst. Ukoliko hoces da ti se ucitava fajl koji si poslednji snimio, morao bi u nekom externom fajlu da snimis adresu istog, a zatim sa Form_Load da ucitas
 
Odgovor na temu

igor-ch
IT

Član broj: 12902
Poruke: 647
*.dclient.hispeed.ch.



+69 Profil

icon Re: XML dokument - iscitavanje i export u Excel23.11.2009. u 20:24 - pre 175 meseci
Sve zivo sam probao, ali ne ide :-(
Dizem ruke... u svakom slucaju, hvala ti puno!!!

Pozdrav!

PS. Ako te put nekad dovede u CH, javi se zasluzio si rucak!
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net


+1 Profil

icon Re: XML dokument - iscitavanje i export u Excel24.11.2009. u 01:23 - pre 175 meseci
Nemoj tako lako odustajati, ajd okaci ceo projekat do sada i reci sta ti se javlja sada kao greska :)
 
Odgovor na temu

igor-ch
IT

Član broj: 12902
Poruke: 647
193.246.86.*



+69 Profil

icon Re: XML dokument - iscitavanje i export u Excel24.11.2009. u 07:47 - pre 175 meseci
Ja skoro nikada ne odustajem, ali mi se ne isplati da (ponovo) proucavam VB6 zbog samo jednog programcica...

Ok, evo zakacio sam projekat i evo sta me sve muci:
1. Textbox (Text1) i Listbox (List1) ne trebaju da se prikazu. Znaci, jedino sto treba da se vidi na app su Load, Save i Parsiraj.
2. Fajl koji se ucitava mora biti XML (u principu je uvek slican prikacenom Patch_DE_EN_2009_10.xml)
3. Fajl koji se snima bi trebao da bude EXCEL i da izgleda otpriliko ovako:



Nesto u vezi exporta teksta u excel sam pronasao ovde, ali mi nikako ne ide: http://forums.devx.com/showpost.php?p=423413&postcount=5

Hvala ti unapred!
Prikačeni fajlovi
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net


+1 Profil

icon Re: XML dokument - iscitavanje i export u Excel25.11.2009. u 10:24 - pre 175 meseci
Ok, cim uhvatim malo vremena, sastavicu ti ovo
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net


+1 Profil

icon Re: XML dokument - iscitavanje i export u Excel25.11.2009. u 18:00 - pre 175 meseci
Evo, gotovo, testirano, radi 100%
Prikačeni fajlovi
 
Odgovor na temu

igor-ch
IT

Član broj: 12902
Poruke: 647
193.246.86.*



+69 Profil

icon Re: XML dokument - iscitavanje i export u Excel26.11.2009. u 11:09 - pre 175 meseci
Hvala puno, to je ono sto mi treba!!! Ima samo jedan problemcic:

Sve je uredu dok ne krene sa exportom u EXCEL. Onda mi javlja "Run-time error 9, Subscript out of range",
a greska je u liniji "moWB.Sheets("Sheet1").Cells(i + 1, 1).Value = Izlaz(0)"

Da li je to mozda zbog razlicite EXCEL verzije?
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net


+1 Profil

icon Re: XML dokument - iscitavanje i export u Excel26.11.2009. u 13:59 - pre 175 meseci
Pretpostavka je da si stisnuo Export, pre nego sto si stisnuo Parse
 
Odgovor na temu

igor-ch
IT

Član broj: 12902
Poruke: 647
*.dclient.hispeed.ch.



+69 Profil

icon Re: XML dokument - iscitavanje i export u Excel26.11.2009. u 17:22 - pre 175 meseci
Ma ne , pro sam ucitao Fajl, zatim sa pritisnu Parse, a onda sam kliknuo na Export. Tada se javlja greska...
Nema veze sa EXCEL verzijom, isto se desava i sa OFFICE 2003 i 2007...
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net


+1 Profil

icon Re: XML dokument - iscitavanje i export u Excel26.11.2009. u 17:42 - pre 175 meseci
Jel bi mogao uploadujes taj fajl? :)
 
Odgovor na temu

igor-ch
IT

Član broj: 12902
Poruke: 647
*.dclient.hispeed.ch.



+69 Profil

icon Re: XML dokument - iscitavanje i export u Excel26.11.2009. u 19:02 - pre 175 meseci
To je isti taj xml fajl koji si i ti koristio ( Patch_DE_EN_2009_10.xml ).
 
Odgovor na temu

Aleksandar Vasic
Web Administrator, Uspon d.o.o
Čačak

Član broj: 91692
Poruke: 1226
*.adsl.eunet.rs.

Sajt: www.vasictech.net


+1 Profil

icon Re: XML dokument - iscitavanje i export u Excel26.11.2009. u 23:43 - pre 175 meseci
Meni ne izbacuje nikakvu gresku...ne znam zasto tebi izbacuje...
 
Odgovor na temu

[es] :: Visual Basic 6 :: XML dokument - iscitavanje i export u Excel

[ Pregleda: 2812 | Odgovora: 16 ] > FB > Twit

Postavi temu Odgovori

Navigacija
Lista poslednjih: 16, 32, 64, 128 poruka.