Войти

Показать полную графическую версию : [решено] вывод строки из *.xml


Страниц : 1 [2]

LAKERS824
07-07-2012, 20:09
@Echo on

SetLocal EnableDelayedExpansion
Set Path=%Path%;C:\Users\Diman\Desktop\KDL\grep+parseXML\bin

Set XMLPath=C:\Users\Diman\Desktop\KDL\XML

For /F "delims=" %%F In ('Dir "%XMLPath%\*.xml" /B 2^>nul') Do (
Set Prefix=&Set InsuranceNumber=0
For /F "tokens=1,2 delims=_." %%P In ("%%~F") Do (Set Prefix=%%P&Set Suffix=%%Q)
For /F "tokens=2 delims=><" %%N In ('grep -Eo "<LastName>[^<]*</LastName>" "%XMLPath%\%%F"') Do (If Not %%N==/LastName Set LastName=%%N)
For /F "tokens=2 delims=><" %%N In ('grep -Eo "<InsuranceNumber>[^<]*</InsuranceNumber>" "%XMLPath%\%%F"') Do (
If Not %%N==/InsuranceNumber Set InsuranceNumber=%%N
)
Call :StringLen "!InsuranceNumber!"
If !$StringLen!==5 (Echo !Prefix!_!InsuranceNumber!_!LastName!|recode utf8..cp1251/>>"C:\Users\Diman\Desktop\KDL\result5and6.txt")
If !$StringLen!==6 (Echo !Prefix!_!InsuranceNumber!_!LastName!|recode utf8..cp1251/>>"C:\Users\Diman\Desktop\KDL\result5and6.txt")
If Not !$StringLen!==5 (
If Not !$StringLen!==6 (
Echo !Prefix!_!InsuranceNumber!_!LastName!|recode utf8..cp1251/>>"C:\Users\Diman\Desktop\KDL\result_other.txt"
)
)
)
Pause&Exit

:StringLen
:: Автор функции - amel27, http://forum.oszone.net/post-1162296-2.html
Set $StringLen=0&Set $StringBuf=%~1
If ""=="%~1" GoTo :EOF
:StringLenLoop
Set /A $StringLen+=1
Call Set $StringChr=%%$StringBuf:~%$StringLen%%%
If ""=="%$StringChr%" GOTO :EOF
GoTo :StringLenLoop


Запускаю с небольшой модификацией, вытаскиваю еще и Фамилию дополнительно, не более

Anonymоus
07-07-2012, 22:45
LAKERS824, попробуйте запустить вот этот скрипт: http://rghost.ru/39092099
Настройки пути к xml вынесены в файл settings.ini. На вашем файле отработало успешно.

LAKERS824
07-07-2012, 23:04
В принципе работает, но я заметил следующее, если в строке

Set Path=%Path%;%CD%\bin

я пишу свой путь, т.е.
Set Path=%Path%;D:\KDL\grep+parseXML\bin

то файл и создается пустым. Не пойму в чем дело?

А если я оставляю %CD%\bin , то вроде все ок, я же ведь более нигде не указываю %CD%

блин, на XP работает, как описал выше, переношу те же файлы на Windows 7 64-бит, меняю только пути и опять создается пустой файл один

Anonymоus
07-07-2012, 23:17
Объясните смысл замены %CD%\bin на вписанный вами вручную абсолютный путь? Не меняйте пожалуйста код, если он работает и нет веской причины его переделывать.
Почему именно после вашей модификации перестает работать точно не скажу, попробуйте сравнить вывод Echo %CD% с тем, что вы вписываете как абсолютный путь.

LAKERS824
07-07-2012, 23:43
перенес на 2003 винду, тоже создается пустой файл.


Set Path=%Path%;%CD%\bin - эта строка указывает пусть к grep+parseXML?
Ведь у меня в папке, скажем D:\papka есть папка grep+parseXML\bin, а также в корне papka\bin - которая от recode.
Так верхний путь не может находить неверный путь?

Anonymоus
07-07-2012, 23:50
Set Path=%Path%;%CD%\bin - эта строка указывает пусть к grep+parseXML? »
Эта строка разворачивается в текущую директорию и её поддиректорию bin, где находятся все необходимые бинарники (grep, recode) и библиотеки (pcre, iconv, intl)
а также в корне papka\bin - которая от recode »
Но зачем? Посмотрите на содержимое той директории bin, что в данном вам архиве, там уже есть recode.
Плюс к тому, преимущество записи Set Path=%Path%;%CD%\bin - в портабельности самого скрипта, в нем нету абсолютных путей, его можно переносить куда угодно, и на другом ПК он будет работать точно так же (если не забудут скопировать директорию bin вместе с ним).

LAKERS824
08-07-2012, 00:09
спасибо, разобрался с папкой bin и все встало на свои места. СПАСИБО.




© OSzone.net 2001-2012