Fråga : Skriva till information om extraktet från xml, och flyttningen sparar

Hi all förmiddag för

I hoppar någon, kan hjälpa mig med detta. förmiddagen för
I söker efter en skriva, som kan köras från någon fönsterPC, som kan extraktet ”diagramIDet” i en xml spara och därefter kopiera alla, sparar med namnger av det grafiska IDet från ett arkiv in i ett annat arkiv. När alla sparar, har kopierats det måste se till att alla sparar finns i destinationsarkivet innan du tog dem bort från det första arkivet. Stundom den grafiska styrkan inte finns i källarkivet men ska finns i destinationsarkivet, eller, om det grafiskt är saknat fullständigt, den måste e-posten som jag med saknaden id.

I att ha fäst en exempelxml sparar.  tack för

Many i advance Attachments: för >
<-/div> filenamen " för class= för >test.XML " fileSize " > (3 KB) " javascript för href= " för <-/span> <-/div>
för >
<-/div> " klar "

Svar : Skriva till information om extraktet från xml, och flyttningen sparar

TazEE,

Jag ska ser vad jag kan göra för att hjälpa.  Du postade tar prov xml sparar är en ogiltig xml sparar, som den är saknade flera bokslut märker.  Jag har försökt att justera och fungera med den.  Nedanfört är ett justerat skrivar som bör hjälpa dig längs ditt långt.  Jag har försökt att sätta några kommentarer in till hjälp.

För dig som är omgående utfärdar av mer, än one som är grafisk, dig behöver att kretsa till och med knutpunkten listar att du får.  Högert nu du griper endast första funnen.  Också jag föreslår att du kontrollen som ser till den har en grafisk LEGITIMATION, som ditt ta prov hade några ANNONSknutpunkter utan en grafisk LEGITIMATION.  Låt mig veta, om du har ifrågasätter, som du fungerar till och med skriva.

I stället för handstil ut till en spara I höll precis alla grafiska IDs i en strängasamling i minnet (strGraphicListen)

- Björn
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:

Dunkel fso, outfile som är grafisk, Elem
Dunkel strFromDir, strToDir, strGraphicList (), I
Fastställd fso = CreateObject (”Scripting.FileSystemObject”)

'**** Uppsättningen ditt arkiv värderar här ****,
strFromDir = ”C:\Original”,
strToDir = ”C:\New”,
i = 0

Fastställd xmlDoc = CreateObject (”Msxml2.DOMDocument”)
xmlDoc.load (”C:\test\test.XML”)

Fastställda ElemList = xmlDoc.getElementsByTagName (”annons”)

'ElemList.Length ska show dig hur många ANNONSknutpunkter som du grundar
'msgbox ElemList.Length

'Kretsa till och med din knutpunkt listar
För varje Elem i ElemList

	'Kontrollera för att se, om denna knutpunkt har ett attribut som namnges Grafisk
	Om inte Elem.getAttribute (”grafiskt”) därefter
		'Se till att samlingen är rätten storleksanpassar
		Redim syltstrGraphicList (I)
		
		'Om så, tilldela attributen värderar till en samling,
		strGraphicList (I) = Elem.getAttribute (”grafiskt”)
		
		'Öka kontra
		i = I + 1
	Avsluta om
Därefter


'Kretsa till och med samlingen
För I = 0 till Ubound (strGraphicList) - 1
	'Se till att original att spara finns i källan
	Om fso.FileExists (sstrFromDir & ”\” & strGraphicList (I)) Därefter
		'Grunda spara - kopiera till destinationen
		fso.CopyFile-strFromDir & ”\” & strGraphicList (I), strToDir & ”\”,
	Avsluta om
Därefter
		
'Validera att allt sparar går ut i destination
För I = 0 till Ubound (strGraphicList) - 1
	'Se till att original att spara finns i källan
	Om INTE fso.FileExists (strToDir & ”\” & strGraphicList (I)) Därefter
		'Funnit INTE funnit
		msgbox ”grafisk LEGITIMATION” & strGraphicList (I) & ”fanns inte”,
	Avsluta om
Därefter
		
”gjord” msgbox,
Andra lösningar  
 
programming4us programming4us