Имя пользователя:
Пароль:  
Помощь | Регистрация | Забыли пароль?  

Название темы: Парсинг XML/TXT
Показать сообщение отдельно

Старожил


Сообщения: 415
Благодарности: 257

Профиль | Отправить PM | Цитировать


mxm199, убрал универсальные регэкспы, заточил под тот формат файла, что вы мне дали.
Код: Выделить весь код
@Echo Off
SetLocal EnableDelayedExpansion
Set Path=%Path%;%CD%\bin

Set XMLFile=file.txt

For /F "tokens=1,3 delims==:" %%A In ('grep -ion "EMAIL=.[^ =]*." "%XMLFile%"') Do (
	Set EMail=%%B&Set EMail=!EMail:"=!
	Set EMail_%%A=!EMail!
	Set EMails=%%A
)
For /F "tokens=1,3 delims==:" %%A In ('grep -ion "PHONE=.[^ =]*." "%XMLFile%"') Do (
	Set Phone=%%B&Set Phone=!Phone:"=!
	Set Phone_%%A=!Phone!
	Set Phones=%%A
)
If %EMails% GEQ %Phones% (Set Matches=%EMails%) Else (Set Matches=%Phones%)
For /L %%A In (1,1,%Matches%) Do (
	Set Out=!Phone_%%A!	!EMail_%%A!
	If Not "!Out!"=="	" Echo !Out!
)
Pause&Exit
Это сообщение посчитали полезным следующие участники:

Отправлено: 12:14, 17-07-2012 | #9

Название темы: Парсинг XML/TXT