Pytanie : Pisać scenariusz informacja od xml i kartoteka

Cześć Wszystkie

I am chmielenie to móc z to.
I am dla pismo który móc biegać od jakaś okno komputer osobisty który móc the "grafika id" w xml kartoteka i wtedy kopiować wszystkie the kartoteka z the imię the grafika id od jeden książka telefoniczna w inny książka telefoniczna. Jak Tylko wszystkie the kartoteka kopiować ono musieć wszystkie the kartoteka w the miejsce przeznaczenia książka telefoniczna przed od the pierwszy książka telefoniczna. Czasami the grafika moc nie istnieć w the źródło książka telefoniczna ale istnieć w the miejsce przeznaczenia książka telefoniczna lub jeżeli the grafika brakować całkowicie ono musieć email z the chybianie id.

I przykład xml kartoteka.  

Many dzięki w advance
Attachments:
test.XML (3 KB) (Kartoteka Typ Szczegół)
example XML

Odpowiedź : Pisać scenariusz informacja od xml i kartoteka

TazEE,

I widzieć co I móc.  Ty wysyłać próbka xml kartoteka być nieważny xml kartoteka gdy ono brakować kilka końcowy etykietka.  I próbować i z ono.  Pod być nastawiony pismo który musieć ty wzdłuż twój sposób.  I próbować niektóre komentarz wewnątrz.

Dla ty bezpośredni zagadnienie więcej niż jeden grafika, ty potrzebować przez the Guzek Lista który ty dostawać.  Teraz ty tylko chwytać the pierwszy jeden znajdować.  Także, I sugerować ty czek ono mieć grafika ID gdy twój próbka miewać niektóre REKLAMA guzek bez grafika ID.  Pozwalać jeżeli ty mieć pytanie gdy ty pracować przez the pismo.

Zamiast strGraphicList kartoteka I właśnie utrzymywać wszystkie the graficzny IDs w smyczkowy szyk w pamięć (strGraphicList)

- Niedźwiedź
(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:

Ciemnawy fso, outfile, Graficzny, Elem
Ciemnawy strFromDir, strToDir, strGraphicList (), i
Ustalony fso = CreateObject ("Scripting.FileSystemObject")

'**** Ustawiać twój Adresowy Wartość Tutaj ****
strFromDir = "C:\Original"
strToDir = "C:\New"
i = (0)

Ustalony xmlDoc = CreateObject ("Msxml2.DOMDocument")
xmlDoc.load ("C:\test\test.XML ")

Ustalony ElemList = xmlDoc.getElementsByTagName ("Reklama")

'ElemList.Length pokazywać ty ile REKLAMA guzek ty zakładać
'msgbox ElemList.Length

'Pętla Przez twój Guzek Lista
Dla ElemList Elem w ElemList

	'Sprawdzać jeżeli ten Guzek mieć Atrybut Wymieniać Grafika
	Jeśli nie Elem.getAttribute ("Grafika") Wtedy
		'Upewniać się the Szyk być the prawy Rozmiar
		Redim Prezerwa strGraphicList (i)
		
		'Jeżeli w ten sposób, wyznaczać the atrybut wartość Szyk
		strGraphicList (i) = Elem.getAttribute ("Grafika")
		
		'Przyrost the kontuar
		i = i + (1)
	Kończyć Jeżeli
Następnie


'Pętla Przez the Szyk
Dla i = (0) Ubound (strGraphicList) - (1)
	'Upewniać się the oryginalny Kartoteka Istnieć w the Źródło
	Jeżeli fso.FileExists (sstrFromDir & "\" & strGraphicList (i)) Wtedy
		'Zakładać the Kartoteka - Kopia Miejsce przeznaczenia
		fso.CopyFile strFromDir & "\" & strGraphicList (i), strToDir & "\"
	Kończyć Jeżeli
Następnie
		
'Potwierdzać że Wszystkie Kartoteka wychodzić w Miejsce przeznaczenia
Dla i = (0) Ubound (strGraphicList) - (1)
	'Upewniać się the oryginalny Kartoteka Istnieć w the Źródło
	Jeśli nie fso.FileExists (strToDir & "\" & strGraphicList (i)) Wtedy
		'Znajdować Znajdować
		msgbox "Grafika ID" & strGraphicList (i) & "znajdować"
	Kończyć Jeżeli
Następnie
		
msgbox "Robić"
Inne rozwiązania  
 
programming4us programming4us