 |
Zabijanje časa
Namenjen zabijanju časa, kaj pa drugega.
|
| Poglej prejšnjo temo :: Poglej naslednjo temo |
| Avtor |
Sporočilo |
chazzjazz
Batina
Pridružen/-a: 27.01. 2009, 22:08
Prispevkov: 6102
Kraj: Tukaj
|
 Objavljeno: 17 Nov 2009 16:02 Naslov sporočila: Excel in Visual Basic |
 |
|
A se kdo razume v to čudo?
Vidva itija, dejmo mal pomoči.
Gre pa za tole, mam excel file, v vsaki vrstici to podatki (6 kolon). Iz vsake vrstice moram narediti XML file. Kako narediti xml mi je že jasno, samo mi vse vrstice zmeče v en file, ne vsako vrstico v svojega.
Skripta do sedaj izgleda takole:
| Koda: |
Sub Geo_XML()
mojaDatoteka = "geologija.xml"
fnum = FreeFile()
Open "geologija.XML" For Output As fnum
For n = 1 To 675
Print #fnum, "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes"" ?>"
Print #fnum, "<clanek xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"">"
Print #fnum, "<creator>"; Cells(n, 3); "</creator>"
Print #fnum, "<title>"; Cells(n, 4); "</title>"
Print #fnum, "<date>"; Cells(n, 5); "</date>"
Print #fnum, "<language>"; Cells(n, 6); "</language>"
Print #fnum, "<identifier>"; Cells(n, 7); "</identifier>"
Next n
Close #fnum
End Sub |
Manjka mi komanda, da bi delal ena vrstica - en file.
_________________
If women are so good at multitasking, how come they can't have a headache and sex at the same time? |
|
| Nazaj na vrh |
|
 |
BladeRunner
Uporabljam že dvajseto tipkovnico
Pridružen/-a: 28.01. 2009, 13:47
Prispevkov: 9628
|
| Objavljeno: 17 Nov 2009 16:41 Naslov sporočila: |
|
|
eno zanko moraš naredit
FOR, REPEAT UNTIL al nekaj takega.
+pazi na poimenovanje.
hint: www.matjazev.net |
|
| Nazaj na vrh |
|
|
pika
PACIENT Z DIAGNOZO
Pridružen/-a: 28.01. 2009, 10:27
Prispevkov: 11508
|
| Objavljeno: 17 Nov 2009 19:31 Naslov sporočila: |
|
|
Kok je dobr, k vse razumem  
_________________
Za vsakega pripeljanega člana lahko enega od obstoječih najamete |
|
| Nazaj na vrh |
|
|
bejbi
Boginja
Pridružen/-a: 28.01. 2009, 08:09
Prispevkov: 8129
|
| Objavljeno: 18 Nov 2009 08:13 Naslov sporočila: |
|
|
Zihr je ok, ker je v zeleni barvi....  Maš zeleno luč za nadaljevanje |
|
| Nazaj na vrh |
|
|
chazzjazz
Batina
Pridružen/-a: 27.01. 2009, 22:08
Prispevkov: 6102
Kraj: Tukaj
|
| Objavljeno: 18 Nov 2009 08:59 Naslov sporočila: |
|
|
Babe trapaste, to so resne reči, ni se norca za delat. 
Bejbi moja, tist v zeleni že dela, samo naprej ne znam. 
_________________
If women are so good at multitasking, how come they can't have a headache and sex at the same time? |
|
| Nazaj na vrh |
|
|
BladeRunner
Uporabljam že dvajseto tipkovnico
Pridružen/-a: 28.01. 2009, 13:47
Prispevkov: 9628
|
| Objavljeno: 18 Nov 2009 09:34 Naslov sporočila: |
|
|
| če prav zastopim...generirati hočeš 675 XML fajlov ? |
|
| Nazaj na vrh |
|
|
chazzjazz
Batina
Pridružen/-a: 27.01. 2009, 22:08
Prispevkov: 6102
Kraj: Tukaj
|
| Objavljeno: 18 Nov 2009 09:38 Naslov sporočila: |
|
|
| BladeRunner je napisal/a: |
| če prav zastopim...generirati hočeš 675 XML fajlov ? |
Natanko tako.
_________________
If women are so good at multitasking, how come they can't have a headache and sex at the same time? |
|
| Nazaj na vrh |
|
|
pob
ČIST´ SE JE RAZGOVORIL/A
Pridružen/-a: 29.01. 2009, 12:29
Prispevkov: 957
|
| Objavljeno: 18 Nov 2009 09:49 Naslov sporočila: |
|
|
jp. treba je narediti zanko. :)
najlažje po pomoje WHILE zanko uporabit. in sicer...
| Koda: |
Sub Geo_XML()
Dim I As Integer
I = 1
Do While Not excel_datoteka.EOF ' dokler ni konec excel datoteke (EOF-End Of File)
mojaDatoteka = "geologija " & I & ".xml" 'generira novo ime za XML datoteko - po zaporedni številki
fnum = FreeFile()
Open mojaDatoteka For Output As fnum ' odpre XML datoteko za vnos - vsaj sklepam, da jo... :D
Print #fnum, "<?xml version=""1.0"" encoding=""UTF-8"" standalone=""yes"" ?>"
Print #fnum, "<clanek xmlns:xsi=""http://www.w3.org/2001/XMLSchema-instance"">"
Print #fnum, "<creator>"; Cells(n, 3); "</creator>"
Print #fnum, "<title>"; Cells(n, 4); "</title>"
Print #fnum, "<date>"; Cells(n, 5); "</date>"
Print #fnum, "<language>"; Cells(n, 6); "</language>"
Print #fnum, "<identifier>"; Cells(n, 7); "</identifier>"
Close #fnum ' zapre XML
I = I + 1 'poveča števec za 1
'manjka ukaz, da kazalec skoči na naslednjo vrstico v Excel datoteki
Loop
End Sub |
za kej več, bi se pa mogu poglobit v zadevo oz. zvedet še kak podatek o tem. :D
_________________
Podpis:
Podpis je besedilo, ki se samodejno doda na koncu vsake vaše objave. Dolžina besedila je omejena na 255 črk |
|
| Nazaj na vrh |
|
|
chazzjazz
Batina
Pridružen/-a: 27.01. 2009, 22:08
Prispevkov: 6102
Kraj: Tukaj
|
| Objavljeno: 18 Nov 2009 09:52 Naslov sporočila: |
|
|
Evo super, se grem poigrat, bom probal najti manjkajoče ukaze.
_________________
If women are so good at multitasking, how come they can't have a headache and sex at the same time? |
|
| Nazaj na vrh |
|
|
BladeRunner
Uporabljam že dvajseto tipkovnico
Pridružen/-a: 28.01. 2009, 13:47
Prispevkov: 9628
|
| Objavljeno: 18 Nov 2009 10:02 Naslov sporočila: |
|
|
mislim, da ti je pob rešil zadevo 
zgleda super  |
|
| Nazaj na vrh |
|
|
pob
ČIST´ SE JE RAZGOVORIL/A
Pridružen/-a: 29.01. 2009, 12:29
Prispevkov: 957
|
| Objavljeno: 18 Nov 2009 10:04 Naslov sporočila: |
|
|
hja, glede na to, da je to moja kruha... pol bi skor da lahko kej pomagal. 
_________________
Podpis:
Podpis je besedilo, ki se samodejno doda na koncu vsake vaše objave. Dolžina besedila je omejena na 255 črk |
|
| Nazaj na vrh |
|
|
chazzjazz
Batina
Pridružen/-a: 27.01. 2009, 22:08
Prispevkov: 6102
Kraj: Tukaj
|
| Objavljeno: 18 Nov 2009 10:10 Naslov sporočila: |
|
|
| pob je napisal/a: |
| hja, glede na to, da je to moja kruha... pol bi skor da lahko kej pomagal. |
Saj na tole kruho sem mal računal.
_________________
If women are so good at multitasking, how come they can't have a headache and sex at the same time? |
|
| Nazaj na vrh |
|
|
BladeRunner
Uporabljam že dvajseto tipkovnico
Pridružen/-a: 28.01. 2009, 13:47
Prispevkov: 9628
|
| Objavljeno: 18 Nov 2009 10:18 Naslov sporočila: |
|
|
samo...kaj boš s tolko fajli ? 
vsak podatek svoj...neavemno |
|
| Nazaj na vrh |
|
|
pob
ČIST´ SE JE RAZGOVORIL/A
Pridružen/-a: 29.01. 2009, 12:29
Prispevkov: 957
|
| Objavljeno: 18 Nov 2009 10:20 Naslov sporočila: |
|
|
ma ja, mal smešno se mi zdi, ampak dobr, ziher je kul.
_________________
Podpis:
Podpis je besedilo, ki se samodejno doda na koncu vsake vaše objave. Dolžina besedila je omejena na 255 črk |
|
| Nazaj na vrh |
|
|
chazzjazz
Batina
Pridružen/-a: 27.01. 2009, 22:08
Prispevkov: 6102
Kraj: Tukaj
|
| Objavljeno: 18 Nov 2009 10:30 Naslov sporočila: |
|
|
Tole vzemita pot prostovoljen prispevek k širjenju slovenske pisane besede v širjave interneta.
www.dlib.si
PS: BR, to bi moral tvoj sošolec delat pa so ga povišali in sedaj samo še strežnike in switche boža.
_________________
If women are so good at multitasking, how come they can't have a headache and sex at the same time? |
|
| Nazaj na vrh |
|
|
pob
ČIST´ SE JE RAZGOVORIL/A
Pridružen/-a: 29.01. 2009, 12:29
Prispevkov: 957
|
| Objavljeno: 18 Nov 2009 10:41 Naslov sporočila: |
|
|
in kaj ima ta "www.dlib.si" veze z konjskimi dirkami oz. 675 fajli?
_________________
Podpis:
Podpis je besedilo, ki se samodejno doda na koncu vsake vaše objave. Dolžina besedila je omejena na 255 črk |
|
| Nazaj na vrh |
|
|
pob
ČIST´ SE JE RAZGOVORIL/A
Pridružen/-a: 29.01. 2009, 12:29
Prispevkov: 957
|
| Objavljeno: 19 Nov 2009 12:03 Naslov sporočila: |
|
|
chaz, nč ne javiš, če ti je ratalo tisto usposobit pol? :P
_________________
Podpis:
Podpis je besedilo, ki se samodejno doda na koncu vsake vaše objave. Dolžina besedila je omejena na 255 črk |
|
| Nazaj na vrh |
|
|
chazzjazz
Batina
Pridružen/-a: 27.01. 2009, 22:08
Prispevkov: 6102
Kraj: Tukaj
|
| Objavljeno: 19 Nov 2009 12:42 Naslov sporočila: |
|
|
| pob je napisal/a: |
| chaz, nč ne javiš, če ti je ratalo tisto usposobit pol? :P |
Danes se bom lotil.
_________________
If women are so good at multitasking, how come they can't have a headache and sex at the same time? |
|
| Nazaj na vrh |
|
|
|
|
Ne, ne moreš dodajati novih tem v tem forumu
Ne, ne moreš odgovarjati na teme v tem forumu
Ne, ne moreš urejati svojih prispevkov v tem forumu
Ne, ne moreš brisati svojih prispevkov v tem forumu
Ne ne moreš glasovati v anketi v tem forumu
|
|
Pogosta vprašanja
Išči
Seznam članov
Skupine uporabnikov
RSS Feed
Registriraj se
Tvoj profil
Zasebna sporočila
Prijava
