[Iska]

В каждом из таких файлов есть строка, »

Такая строка — единственная?

…счета, начинающиеся на 7788, 40 (исключение 408) …счета, начинающиеся на 6677, 408 »

Выложите образцы/примеры xml-файлов, упакованных в архив. Для охвата всех условий.

[Mushroomhead]

Прикрепляю архив с двумя файлами-примерами. Т.К. речь идёт об отчётных документах банка, предварительно обезличил информацию в них...

[Iska]

Mushroomhead, вот Вам примерная болванка на WSH:

читать дальше »

Код:

Option Explicit

Dim strSourceFolder

Dim objRegExp
Dim dictPatternsAndDestFolders

Dim strComputer

Dim objSWbemLocator
Dim objSWbemServicesEx
Dim objSWbemEventSource
Dim objSWbemObjectEx

Dim strDestFolder


strSourceFolder = "C:\in"

Set objRegExp                  = WScript.CreateObject("VBScript.RegExp")
Set dictPatternsAndDestFolders = WScript.CreateObject("Scripting.Dictionary")

With dictPatternsAndDestFolders
	.Add "^(6677|408)\d*$",    "C:\in\1"
	.Add "^(7788|40[^8])\d*$", "C:\in\2"
End With


strComputer = "."

Set objSWbemLocator    = WScript.CreateObject("WbemScripting.SWbemLocator")
Set objSWbemServicesEx = objSWbemLocator.ConnectServer(strComputer, "root\cimv2")

Set objSWbemEventSource = objSWbemServicesEx.ExecNotificationQuery( _
	"SELECT * FROM __InstanceCreationEvent WITHIN 5 WHERE " & _
	"TargetInstance ISA 'CIM_DirectoryContainsFile' AND " & _
	"TargetInstance.GroupComponent = 'Win32_Directory.Name=""" & Replace(strSourceFolder, "\", "\\\\") & """'" _
)


WScript.Echo "Monitor files creation in [" & strSourceFolder & "]..."

Do
	With objSWbemServicesEx.Get(objSWbemEventSource.NextEvent.TargetInstance.PartComponent)
		WScript.Echo Now() & " | < | New file:    [" & .Name & "]"
		
		Select Case LCase(.Extension)
			Case "xml"
				strDestFolder = TestAndGetDestFolder(.Name)
				
				If Not IsEmpty(strDestFolder) Then
					If .Copy(strDestFolder & "\" & .FileName & "." & .Extension) = 0 Then
						WScript.Echo Now() & " | > | Copy into:   [" & strDestFolder & "]"
					Else
						WScript.Echo Now() & " | ! | Can't copy into: [" & strDestFolder & "]"
					End If
				End If
			Case Else
				' Nothing to do
		End Select
		
		If .Delete() = 0 Then
			WScript.Echo Now() & " | v | Delete file: [" & .Name & "]"
		Else
			WScript.Echo Now() & " | ! | Can't delete file: [" & .Name & "]"
		End If
	End With
Loop

WScript.Quit 0
'=============================================================================

'=============================================================================
Function TestAndGetDestFolder(strFileName)
	Dim strPattern
	
	TestAndGetDestFolder = Empty
	
	With WScript.CreateObject("Msxml2.DOMDocument")
		If .load(strFileName) Then
			With .selectSingleNode("/Файл/Документ/СвСчет/@НомСч")
				For Each strPattern In dictPatternsAndDestFolders.Keys
					objRegExp.Pattern = strPattern
					
					If objRegExp.Test(.nodeValue) Then
						TestAndGetDestFolder = dictPatternsAndDestFolders.Item(strPattern)
						
						Exit For
					End If
				Next
			End With
		Else
			WScript.Echo "Can't load xml content from [" & strFileName & "]."
		End If
	End With
End Function
'=============================================================================

Запускать под «cscript.exe».

[Mushroomhead]

Блин! Спасибо, конечно. Вы просто титаническую работу проделали для моей задачи! Но у меня было пожелание сделать именно на bat. В нём бы я хоть что-то мог понять )
Ваш скрипт попытался использовать, но он просто удаляет файлы, поступившие на вход. Пишет "Can't load xml content from..."

[Iska]

Mushroomhead, проверьте на тех файлах, что Вы выложили в архиве — на них работает?

[Georgio]

Но у меня было пожелание сделать именно на bat. В нём бы я хоть что-то мог понять ) »

Код:

@echo off
setlocal enableextensions

set "src=C:\in"
set "in1=%src%\1"
set "in2=%src%\2"

if not exist "%in1%" md "%in1%"
if not exist "%in2%" md "%in2%"

(
echo НомСч="7788
echo НомСч="40[^8]
)>.tmp
for /f "delims=" %%A in ('findstr /mrg:.tmp "%src%\*.xml"') do copy "%%~A" "%in1%">nul

(
echo НомСч="6677
echo НомСч="408
)>.tmp
for /f "delims=" %%A in ('findstr /mg:.tmp "%src%\*.xml"') do copy "%%~A" "%in2%">nul

del .tmp
endlocal
exit /b