DosTips.com

Code: Select all

@echo off
:: Search for specified text in log file
set "log=IP.RESULTS.log"

findstr /m "</label></td>" %log%
if %errorlevel%==0 (
echo.
echo Found!
) else (
echo No matches found
)
pause>nul

Code: Select all

@echo off
setlocal enabledelayedexpansion
set "log=RESULTS.log"
set "log2=RESULTS_Rev.txt"

FOR /F "usebackq delims=" %%G IN ("%log%") DO (
Set "line=%%G" & echo !line:label for=!
)>>"%log2%"

Code: Select all

@echo off
setlocal

set "log=RESULTS.log"
set "log2=RESULTS_Rev.txt"

(FOR /F "usebackq tokens=3 delims=<>" %%G IN ("%log%") DO (
   echo %%G
)) > "%log2%"

Code: Select all

@echo off
type "file.htm"|repl ".*<td><label.(.*)</label>.*" "$1" i |repl "^for.*\q>" "" xi |repl "^(IP Address|Country|Net Speed)$" "\r\n$1" x
pause

Code: Select all

type results.log|repl "<.*?>" ""|repl "(.*\n.*\n)" "$1\r\n" mx >results.log.new
move /y results.log.new results.log >nul

Code: Select all

type results.log|repl "<.*?>" ""|repl ".*\n.*\n" "$&\r\n" mx >results.log.new
move /y results.log.new results.log >nul

Code: Select all

@echo off
cls
setlocal enableDelayedExpansion
set "empty="

:: The name of the root elements doesn't matter, there must be only one
:: Assumed this is a default text file
> result.xml echo(^<root^>
copy result.xml /B + result.log /B result.xml
>> result.xml echo(^</root^>

(
   echo(^<xsl:transform version="1.0" xmlns:xsl="http://www.w3.org/1999/XSL/Transform"^>
   echo(
   echo(^<xsl:output method="text" encoding="UTF-8"/^>
   echo( ^<xsl:template match="label"^>
   echo(  ^<xsl:copy-of select="."/^>^<xsl:text^>^&#13;^&#10;^</xsl:text^>
   echo( ^</xsl:template^>
   echo(^</xsl:transform^>
) > resultExtract.xsl

call xslt.bat "result.xml" "resultExtract.xsl" "result.txt"

:: if result.log has a root element, you may use it without another temp file
::xslt.bat "result.log" "resultExtract.xsl" "result.txt"

:: i haven't deleted the files for debug reasons
endlocal
goto :eof

Code: Select all

@if (true==false) then /*
@echo off
cscript //nologo //e:JScript "%~f0" %*
exit /b %errorlevel%
*/
@end


function loadXmlFile (strFileName) {
   var xmlObject = xmlObject = new ActiveXObject ("msxml2.DOMDocument.6.0");      // try instanciating MSXML 6.0 object
   if (xmlObject == null) {
      xmlObject = new ActiveXObject  ("Msxml2.DOMDocument.3.0");         // try instanciating MSXML 3.0 object
      if (xmlObject == null) {
         WScript.echo ("Error: Could not instanciate MSXML 3.0/6.0.");      // echo error hint
         return null;
      }
   }

   xmlObject.async = false;                        // disable asynchronuous reading
   xmlObject.validateOnParse = false;                     // disable parser validating document
   xmlObject.load (strFileName);                        // load file content
   if (xmlObject.parseError.errorCode != 0) {
      WScript.Echo ("Parse error: " + xmlObject.parseError.reason);
      return null;
   }

   return xmlObject;
}

function xslt (sourceXml, sourceXslt, target) {
   var objFileSystem = new ActiveXObject ("Scripting.FileSystemObject");         // create file system object handle
   var objXML = loadXmlFile (sourceXml);                     // create input xml file handle
   var objXSL = loadXmlFile (WScript.arguments (1));               // create input xsl file handle

   try {
      strResult = objXML.transformNode (objXSL);               // creating output txt file content
      var objOutFile = objFileSystem.createTextFile (WScript.arguments (2), true);   // create output txt file handle
      objOutFile.write (strResult);                     // writing content to file
      objOutFile.close ();                        // flush and close txt file
   } catch (exception) {
      WScript.echo ("XSL Transformation failed.");
   }
}

if (WScript.Arguments.Unnamed.Length != 3) {
   WScript.echo ("Usage: xslt <input xml file> <input xsl file> <output txt file>");
   WScript.quit (1);
} else {
   xslt (WScript.arguments (0), WScript.arguments (1), WScript.arguments (2));
   WScript.quit (0);
}

Code: Select all

@echo off&setlocal
pushD "%~dp0"
if "%~1" equ "" rd & goto :eof
if "%~1" neq "/?" if /i "%~1" neq "/help" goto :NoHelp
Echo Seperate Ausgabe von Code und Text ^(Text unformatiert^)
Echo(
Echo Syntax: "%~n0" [Laufwerk:][Pfad]Dateiname
Echo(
Echo HTML-Code Extractor nach "Dateiname.Code.txt"
Echo HTML-Text Extractor nach "Dateiname.txt"
Echo(
pause&goto :eof
:NoHelp
if not exist "%~1" echo Datei "%~1" nicht gefunden.& exit /b1
set "File=%~1"
Type nul>"%File%.Code.txt"
type nul>"%File%.TXT"
set /a Nr =0

:startNLine
set /a Nr +=1
for /f "usebackq delims=" %%i in ("%File%") do (set /a Nr+=1
   set /a Index =0
   set "Line=%%i"
   call :start
)
set HText&pause&goto :eof

:start

set /a Index +=1
set "Line1="
set "Text="
setlocal enabledelayedexpansion

for /f "tokens=1,* delims=<" %%i in (" !Line!") do endlocal&(if not "%%i" == " " set "Line1=%%i"
   set "Line=<%%j"
)

if not defined Line1 goto :NoLine1
setlocal enabledelayedexpansion
set "Text=!Line1:~1!"
(
for /f "eol= tokens=* delims=" %%i in ("!Text!") do endlocal&set "Text=%%i"
)||endlocal
:NoLine1
set "Line2="
setlocal enabledelayedexpansion
for /f "tokens=1,* delims=>" %%i in (" !Line!") do endlocal&(if not "%%i" == " " set "Line2=%%i>"
   set "Line=%%j"
)

setlocal enabledelayedexpansion
set "Line2=!Line2:~1!"
(
for /f "eol= tokens=* delims=" %%i in ("!Line2!") do endlocal&if not "%%i" == "<>" (
   set "HTag:%Nr%:%Index%=%%i"
   echo HTMCode   : %%i
)>>"%File%.Code.txt"
)||endlocal

:NoLine

setlocal enabledelayedexpansion
(
for /f "eol= tokens=* delims=" %%i in ("!Text!") do (endlocal
   echo\%%i
   set "HText:%Nr%:%Index%=%%i"
   set "Text="
)>>"%File%.TXT"
)||endlocal

::hier müsste dann die Extrabehandlung herein

if defined Line (goto :Start) else goto :eof