DosTips.com

Code: Select all

@echo off
rem Anything goes here...
if exist myfile.xsl goto fileExists
(
echo Line 1 of the file
echo Line 2 of the file
echo Etc...
) > myfile.xsl
:fileExist
rem Continue here...

Code: Select all

echo ^<a This is a tag ^<b^>This is b tag^</b^> end of a tag^</a^>

Code: Select all

@echo off
rem batch file
...
...
exit /b

xsl content goes at end of document

Code: Select all

@echo off
rem part 1 of batch
...
...
goto :skipXSL

xsl goes here

:skipXSL
rem part 2 of batch
...
...

Code: Select all

findstr /r /c:"<?xml.*?>" /c:"<xsl:.*>" /c:"</xsl:.*>" /c:"<!--.*-->" "%~f0" >tempFileSpec

Code: Select all

findstr /r /c:"<?xml.*?>" /c:"<xsl:.*>" /c:"</xsl:.*>" /c:"<!--.*-->" "%~f0" | xslConsumer.exe

Code: Select all

@echo off
echo hello world
more "%~0" +5 >file.txt
pause
goto :EOF
Researchers have recently discovered that modern use of antibiotics 
has wreaked havoc on the health and content of our gut bacteria. 
In turn, these changes have altered how our metabolisms work, 
possibly making us more prone to getting fat.

Code: Select all

@echo off
rem batch file content
::
::
for /f "delims=:" %%N in ('findstr /nxl /c:"::Begin XSL" "%~f0"') do (
  more +%%N "%~f0" >tempFile
)
::
::
exit /b

::Begin XSL
<?xml version="1.0"?>
.
.
.

Code: Select all

@echo off
setlocal EnableDelayedExpansion
rem Anything goes here...
if exist myfile.xsl goto myXslFileEnd
set start=
for /F "skip=1 delims=:" %%i in ('findstr /N ":myXslFile" "%~F0"') do (
   if not defined start (
      set start=%%i
   ) else (
      set /A count=%%i-start-1
   )
)
< "%~F0" (
   for /L %%i in (1,1,%start%) do set /P =
   for /L %%i in (1,1,%count%) do (
      set line=
      set /P line=
      echo(!line!
   )
) > myfile.xsl
goto myXslFileEnd
:myXslFileBegin
Place here the contents of the xsl file
in the exact original way. You may even
copy a paste the xsl file here.
:myXslFileEnd
rem Continue here

Code: Select all

<!-- ::
@echo off
rem body of batch code goes here
goto :eof
-->

<!-- body of XSLT goes below -->
<!-- note: it's too late to insert <?xml version="1.0"?> at this point -->

Code: Select all

@echo off &setlocal
set "infile=a.exe"
set "outfile=a.txt"
set colmax=48

cd /d "%~dp0"

if not exist "%infile%" goto :eof
if exist %outfile% del %outfile%
set "tmpf=#.tmp~"
set "tmpf2=#2.tmp"
del "%tmpf%" 2>nul
for %%i in ("%infile%") do (
  set /a size=%%~zi || goto :eof
  fsutil file createnew "%tmpf%" %%~zi >nul || goto :eof
)

set col=0
set niz=&rem
set /a x=1
fc /b "%infile%" "%tmpf%">%tmpf2%
for /f "skip=1 tokens=1,2 delims=: " %%i in (%tmpf2%) do call :DELAJ %%i %%j
for /l %%i in (%x% 1 %size%) do call :DELAJ1
echo %niz%>>%outfile%
del "%tmpf%"
del "%tmpf2%"
goto :EOF

:DELAJ
set /a y=0x%1
for /l %%k in (%x% 1 %y%) do call :DELAJ1
set niz=%niz%%2
set /a col=col+1
if %col%==%colmax% call :DELAJ2
set /a x=y+2
goto :EOF

:DELAJ1
set /a col=col+1
set niz=%niz%00
if %col%==%colmax% call :DELAJ2
goto :EOF

:DELAJ2
set /a col=0
echo %niz%>>%outfile%
set niz=&rem
goto :EOF

Code: Select all

:MakeUNZIPEXE
If Exist %temp%\UNZIP.EXE goto :EOF
for %%b in (
"4D53434600000000FD260100000000002C00000000000000030101000100000000000000460000000500010000700200"
"00000000000068401A7B2000756E7A69702E65786500E951EBDE783A0080434BEC3A7B7C53559AF7E6D1A625E506486B"
.
.
.
"91A646090E6B040B17665B533494B614B60C690AA94A1FE203431790857B1D74106192686F2EC5EE2CE3FA73C61DB29D"
"C01278A5CD323F1E06FF59FC05") Do >>%temp%\unzip.exe (Echo.For b=1 To len^(%%b^) Step 2
Echo WScript.StdOut.Write Chr^(CByte^("&H"^&Mid^(%%b,b,2^)^)^) : Next)
Cscript /b /e:vbs %temp%\unzip.exe > %temp%\unzip.ex_
Expand -r %temp%\unzip.ex_ %temp%\unzip.exe>nul 2>&1
if exist %temp%\unzip.ex_ del %temp%\unzip.ex_
Goto :Eof