[Iska]

Имеем xml-файл с примерно таким содержанием: »

Упакуйте Ваш xml-файл с точным и полным содержимым в архив и приложите к сообщению.

[sector2484]

Упакуйте Ваш xml-файл с точным и полным содержимым в архив и приложите к сообщению. »

[Iska]

sector2484, это не xml, это какой-то огрызок от него.

Попробуйте так (на WSH):

Скрытый текст

Код:

Option Explicit

Dim strSourceFile
Dim strDestFile

Dim objFSO
Dim objRegExp

Dim arrContent
Dim strLine
Dim strResultLine


strSourceFile = "C:\Мои проекты\0202\cords.xml"
strDestFile   = "C:\Мои проекты\0202\Result.txt"

Set objFSO = WScript.CreateObject("Scripting.FileSystemObject")

If objFSO.FileExists(strSourceFile) Then
	With objFSO.OpenTextFile(strSourceFile)
		arrContent = Split(.ReadAll(), vbCrLf)
		.Close
	End With
	
	Set objRegExp = WScript.CreateObject("VBScript.RegExp")
	
	With objRegExp
		.Pattern    = "^<id=""(\d+)""\s+x=""(\d+)""\s+y=""(\d+)""\s+w=""(\d+)""\s+h=""(\d+)""\s+/>$"
		.IgnoreCase = True
	End With
	
	With objFSO.CreateTextFile(strDestFile, True)
		For Each strLine In arrContent
			If objRegExp.Test(strLine) Then
				With objRegExp.Execute(strLine).Item(0).Submatches
					strResultLine = .Item(0) & " = " & .Item(1) & ", " & .Item(2) & ", " & .Item(3) & ", " & .Item(4)
				End With
				
				.WriteLine strResultLine
			Else
				WScript.Echo "Can't parse string [" & strLine & "]."
			End If
		Next
		
		.Close
	End With
	
	Set objRegExp = Nothing
Else
	WScript.Echo "Can't find source file [" & strSourceFile & "]."
	WScript.Quit 2
End If

Set objFSO = Nothing

WScript.Quit 0

[sector2484]

на WSH »

На BAT никак?

[Iska]

sector2484, а какая разница?

[sector2484]

Отошли от темы.

[YuS_2]

sector2484, шашечки или ехать? Или студент, а задание для cmd?

[Iska]

sector2484, если очень хочется, то:

Скрытый текст

Код:

@echo off
setlocal enableextensions enabledelayedexpansion

set sSourceFile=C:\Мои проекты\0202\cords.xml
set sDestFile=C:\Мои проекты\0202\Result2.txt

if exist "%sSourceFile%" (
	>"%sDestFile%" (
		for /f usebackq^ tokens^=2^,4^,6^,8^,10^ delims^=^" %%i in ("%sSourceFile%") do (
			echo %%~i = %%~j, %%~k, %%~l, %%~m
		)
	)
) else (
	echo Can't find source file [%sSourceFile%].
	exit /b 1
)

endlocal
exit /b 0

[sector2484]

for /f usebackq^ tokens^=2^,4^,6^,8^,10^ delims^=^" %%i in ("%sSourceFile%") do ( echo %%~i = %%~j, %%~k, %%~l, %%~m »

Работает, но по формуле id = x, y, w, h, а не id = x, y, x+w, y+h.