Cuestión : Script para extraer la información de xml y para mover archivos

Hola toda la lupulización del

I alguien puede ayudarme con esto. el
I que busca una escritura que se pueda funcionar con de cualquier PC de las ventanas que pueda extraer la “identificación de los gráficos” en un archivo del xml y entonces copia todos los archivos con los nombres de la identificación del gráfico a partir de un directorio en otro directorio. Una vez que se han copiado todos los archivos debe cerciorarse de todos los archivos para existir en el directorio de destinación antes de suprimirlos del primer directorio. La fuerza del gráfico no existe en el directorio de fuente pero existirá ocasionalmente en el directorio de destinación o si el gráfico falta totalmente debe enviarme por correo electrónico con el id.

I ha atado un archivo del xml del ejemplo.  gracias por adelantado del

Many class= " lastRow del
>Attachments del " nombre " del class= del class= " valor " del
del >
de la " descripción " del class= del
el class= de
del >
class= del

Respuesta : Script para extraer la información de xml y para mover archivos

TazEE,

Veré lo que puedo hacer para asistir.  Usted fijó el archivo del xml de la muestra es un archivo inválido del xml como está faltando varias etiquetas cerradas.  He intentado ajustar y trabajar con él.  Debajo está una escritura ajustada que debe ayudarle a lo largo de su manera.  He intentado introducir algunos comentarios a la ayuda.

Para usted las aplicaciones inmediatas más de un gráfico, usted necesitan colocar a través de la lista del nodo que usted consigue.  Ahora usted está asiendo solamente primer encontrado.  También, sugiero que usted cheque para cerciorarse de la tenga una identificación del gráfico pues su muestra tenía algunos nodos del ANUNCIO sin una identificación del gráfico.  Dejarme saber si usted tiene preguntas mientras que usted trabaja a través de la escritura.

En vez de poner en escrito a un archivo acabo de mantener todos los IDs gráficos un arsenal de la secuencia en la memoria (el strGraphicList)

- Oso
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:

Fso dévil, outfile, gráfico, Elem
strFromDir dévil, strToDir, strGraphicList (), i
Fijar el fso = CreateObject (“Scripting.FileSystemObject”)

El '**** fijó su **** de los valores del directorio aquí
strFromDir = “C:\Original”
strToDir = “C:\New”
i = 0

Fijar el xmlDoc = CreateObject (“Msxml2.DOMDocument”)
xmlDoc.load (“C:\test\test.XML ")

Fijar ElemList = xmlDoc.getElementsByTagName (el “anuncio”)

'ElemList.Length le demostrará cuántos nodos del ANUNCIO usted encontró
'msgbox ElemList.Length

'Lazo a través de su lista del nodo
Para cada Elem en ElemList

	'Comprobar para ver si este nodo tiene una cualidad nombrada Graphic
	Si no Elem.getAttribute (“gráfico”) entonces
		'Cerciorarse de que el arsenal sea el tamaño correcto
		strGraphicList del coto de Redim (i)
		
		'Si es así asignar el valor de cualidades a un arsenal
		strGraphicList (i) = Elem.getAttribute (“gráfico”)
		
		'Incrementar el contador
		i = i + 1
	Terminar si
Después


'Lazo con el arsenal
Para i = 0 a Ubound (strGraphicList) - 1
	'Cerciorarse de que el archivo original exista en la fuente
	Si fso.FileExists (sstrFromDir y “\” y strGraphicList (i)) Entonces
		'Encontró el archivo - para copiar a la destinación
		strFromDir de fso.CopyFile y “\” y strGraphicList (i), strToDir y “\”
	Terminar si
Después
		
'Validar que todos los archivos salen en la destinación
Para i = 0 a Ubound (strGraphicList) - 1
	'Cerciorarse de que el archivo original exista en la fuente
	Si no fso.FileExists (strToDir y “\” y strGraphicList (i)) Entonces
		'Encontrado no encontrado
		el msgbox “identificación del gráfico” y el strGraphicList (i) y “no fueron encontrados”
	Terminar si
Después
		
msgbox “hecho”
Otras soluciones  
 
programming4us programming4us