Vraag : Manuscript om informatie te halen uit xml en dossiers te bewegen

Hallo kan Al

I am hoppen iemand me met dit helpen.
I am die een manuscript zoeken dat van om het even welke venstersPC kan worden in werking gesteld die „grafiekidentiteitskaart“ in een xmldossier kan halen en dan alle dossiers met de namen van grafische identiteitskaart kopiëren van één folder in een andere folder. Zodra alle dossiers zijn gekopi�ërd moet het ervoor zorgen alle dossiers in de bestemmingsfolder alvorens hen van de eerste folder te schrappen bestaan. Af en toe zou grafisch niet bestaat in de bronfolder maar zal bestaan in de bestemmingsfolder kunnen of als grafisch volledig het moet me met het missen id.

I mist met de elektronische post versturen een voorbeeld xml dossier hebben vastgemaakt.  

Many dankt vooraf
Attachments:
van
test.XML (3 KB) example XML

Antwoord : Manuscript om informatie te halen uit xml en dossiers te bewegen

TazEE,

Ik zal zien wat ik kan doen bijwonen.  U postte steekproef xml dossier bent een ongeldig xmldossier aangezien het verscheidene sluitende markeringen mist.  Ik heb om met het geprobeerd aan te passen en te werken.  Hieronder is een aangepast manuscript dat u langs uw manier zou moeten helpen.  Ik heb geprobeerd om sommige bij te staan commentaren aan te brengen.

Voor u vereisen de directe kwesties van grafisch meer dan één, u aan lijn door de Lijst van de Knoop die u krijgt.  Op dit ogenblik grijpt u slechts eerste gevonden.  Ook, stel voor ik u om controleert ervoor te zorgen het een grafische identiteitskaart heeft aangezien uw steekproef sommige knopen van de ADVERTENTIE zonder een grafische identiteitskaart had.  Laat me weten of hebt u vragen aangezien u door het manuscript werkt.

In plaats van uitschrijving aan een dossier hield ik enkel al grafische IDs in een koordserie in geheugen (strGraphicList)

- Draag
1:
2:
3:
4:
5:
6:
7:
8:
9:
10:
11:
12:
13:
14:
15:
16:
17:
18:
19:
20:
21:
22:
23:
24:
25:
26:
27:
28:
29:
30:
31:
32:
33:
34:
35:
36:
37:
38:
39:
40:
41:
42:
43:
44:
45:
46:
47:
48:
49:
50:
51:
52:
53:

Schemerige Grafische fso, outfile, Elem
Schemerige strFromDir, strToDir, strGraphicList (), I
Vastgestelde fso = CreateObject („Scripting.FileSystemObject“)

'**** Plaatste hier uw Waarden **** van de Folder
strFromDir = „C:\Original“
strToDir = „C:\New“
i = 0

Reeks xmlDoc = CreateObject („Msxml2.DOMDocument“)
xmlDoc.load („C:\test\test.XML“)

Vastgestelde ElemList = xmlDoc.getElementsByTagName („Advertentie“)

'ElemList.Length zal u tonen hoeveel knopen van de ADVERTENTIE u vond
'msgbox ElemList.Length

'Lijn door uw Lijst van de Knoop
Voor Elke Elem in ElemList

	De 'controle om te zien of heeft deze Knoop een Attribuut noemde Grafisch
	Als niet Elem.getAttribute („Grafisch“) toen
		'Zorg ervoor de Serie de juiste Grootte is
		strGraphicList van het Domein van Redim (I)
		
		'Als zo, wijs de attributenwaarde aan een Serie toe
		strGraphicList (I) = Elem.getAttribute („Grafisch“)
		
		'Toename de teller
		i = I + 1
	Eind als
Daarna


'Lijn door de Serie
Voor I = 0 aan Ubound (strGraphicList) - 1
	'Zorg ervoor het oorspronkelijke Dossier in de Bron bestaat
	Als fso.FileExists (sstrFromDir & „\“ & strGraphicList (I)) Dan
		'Vond het Dossier - kopi�ër aan Bestemming
		fso.CopyFile strFromDir & „\“ & strGraphicList (I), strToDir & „\“
	Eind als
Daarna
		
'Bevestig dat Alle Dossiers in Bestemming weggaan
Voor I = 0 aan Ubound (strGraphicList) - 1
	'Zorg ervoor het oorspronkelijke Dossier in de Bron bestaat
	Als NIET fso.FileExists (strToDir & „\“ & strGraphicList (I)) Dan
		'Vond Gevonden niet
		msgbox „Grafische identiteitskaart“ & strGraphicList (I) werden & „niet gevonden“
	Beëindig als
Daarna
		
msgbox „Gedaan“
Andere oplossingen  
 
programming4us programming4us