Командная строка, батники, сценарии (bat, cmd) - [4481] :: Программы

Код:

@echo off

setlocal enableextensions enabledelayedexpansion
set kmlfiles_input_dir=%~dp0
set kmlfiles_output_dir=%~dp0
set kmlfiles_output_postfix=_ru

if not "%1"=="" (
set kmlfiles_input_dir=%1
)
if not "%2"=="" (
set kmlfiles_output_dir=%2
)
if not "%3"=="" (
set kmlfiles_output_postfix=%3
)

if not exist "!kmlfiles_output_dir!" (
md "!satellites_files_dir!" || (
echo *** Could not find directory !kmlfiles_output_dir!. Exiting.
goto :ENDOFSCRIPT
)
)

for /f "usebackq delims=*" %%L in (`dir /b /s /a-d "!kmlfiles_input_dir!\*.kml"`) do (
echo ---------------------------------------------------------------------
echo KML file: %%~nxL
echo ---------------------------------------------------------------------
set csvfile=!kmlfiles_output_dir!\%%~nL.csv
echo.>"!csvfile!"
echo.
set kmlfile=%%L
set kn=
set ks=
for /f "delims=" %%A in (!kmlfile!) do (
set s=%%A
set s=!s:^&amp^;=$_ampersand_sym_$!
set s=!s:^&apos^;=$_apostrophe_sym_$!
set s=!s:^&quot^;=$_quotationmark_sym_$!
set s=!s:^&lt^;=$_lowerthan_sym_$!
set s=!s:^&gt^;=$_greaterthan_sym_$!
set s=!s:^<=#_lowerthan_tag_#!
set s=!s:^>=#_greaterthan_tag_#!
for /f "usebackq tokens=1,5 delims=#" %%B in (`echo !s!^|find /i "#_lowerthan_tag_#name#_greaterthan_tag_#"^|find /i "#_lowerthan_tag_#^/name#_greaterthan_tag_#"`) do (
call :W2RS
set kn=%%C
set ks=
)
for /f "usebackq tokens=1,5 delims=#" %%D in (`echo !s!^|find /i "#_lowerthan_tag_#state#_greaterthan_tag_#"^|find /i "#_lowerthan_tag_#^/state#_greaterthan_tag_#"`) do (
set ks=%%E
call :W2RS
set kn=
set ks=
)
)
call :W2RS
echo.
echo Done^^!
echo.
)

pause

:ENDOFSCRIPT

endlocal
goto :RETURN

:W2RS
REM ::*****************************************************************************************************
REM :: Function : Words To Restricted Symbols
REM :: Description : replaces words in !kn! and !ks! to restricted symbols and outputs string to !csvfile!
REM :: On enter : kn, ks, csvfile
REM :: On return : kn, ks
REM :: Used :
REM ::*****************************************************************************************************
if not ""=="!kn!" (
echo !kn!^;!ks!
set kn=!kn:$_ampersand_sym_$=^&!
set kn=!kn:$_apostrophe_sym_$=^'!
set kn=!kn:$_quotationmark_sym_$=^"!
set kn=!kn:$_lowerthan_sym_$=^<!
set kn=!kn:$_greaterthan_sym_$=^>!
if not ""=="!ks!" (
set ks=!ks:$_ampersand_sym_$=^&!
set ks=!ks:$_apostrophe_sym_$=^'!
set ks=!ks:$_quotationmark_sym_$=^"!
set ks=!ks:$_lowerthan_sym_$=^<!
set ks=!ks:$_greaterthan_sym_$=^>!
)
echo !kn!^;!ks!>>"!csvfile!"
)
goto :RETURN

:RETURN

Модерирует : gyra, Maz
articlebot (21-06-2016 11:40): Следующая часть - Командная строка, батники, сценарии (bat, cmd)	Версия для печати • Подписаться • Добавить в закладки
На первую страницу • к этому сообщению • к последнему сообщению