批处理之家 - Powered by Discuz! Board

@if (@X)==(@Y) @end /* Harmless hybrid line that begins a JScript comment
@goto :Batch
::JREPL.BAT version 3.7 by Dave Benham
::
:: Release History:
:: 2016-01-14 v3.7: Reworked error handling a bit.
:: Bug fix - \xnn and \unnnn could fail in a regex search
:: if result was a meta-character and /X option was used.
:: 2015-07-15 v3.6: Added /?? option for paged help.
:: 2015-06-12 v3.5: Bug fix for $n or $nn in replace string when /T is
:: used without /J or /JMATCH or /L
:: 2015-01-22 v3.4: Bug fix - Use /TEST instead of TEST as a variable name
:: within the option parser so that it is unlikely to
:: collide with a user defined variable name.
:: 2014-12-24 v3.3: Bug fix for when /JMATCH is combined with /M or /S
:: 2014-12-09 v3.2: Bug fix for /T without /JMATCH - fixed dynamic repl func
:: Added GOTO at top for improved startup performance
:: 2014-11-25 v3.1: Added /JLIB option
:: Exception handler reports when regex is bad
:: Fix /X bug with extended ASCII
:: 2014-11-23 v3.0: Added /JBEGLN and /JENDLN options
:: Added skip, quit, and lpad() global variables/functions
:: Exception handler reports when error in user code
:: 2014-11-21 v2.2: Bug fix for /T with /L option.
:: 2014-11-20 v2.1: Bug fix for /T option when match is an empty string
:: 2014-11-17 v2.0: Added /T (translate) and /C (count input lines) options
:: 2014-11-14 v1.0: Initial release
::
::============ Documentation ===========
:::
:::JREPL Search Replace [/Option [Value]]...
:::JREPL /?[REGEX|REPLACE|VERSION]
:::JREPL /??
:::
::: Performs a global regular expression search and replace operation on
::: each line of input from stdin and prints the result to stdout.
:::
::: Each parameter may be optionally enclosed by double quotes. The double
::: quotes are not considered part of the argument. The quotes are required
::: if the parameter contains a batch token delimiter like space, tab, comma,
::: semicolon. The quotes should also be used if the argument contains a
::: batch special character like &, |, etc. so that the special character
::: does not need to be escaped with ^.
:::
::: Search - By default, this is a case sensitive JScript (ECMA) regular
::: expression expressed as a string.
:::
::: JScript regex syntax documentation is available at
::: http://msdn.microsoft.com/en-us/library/ae5bf541(v=vs.80).aspx
:::
::: Replace - By default, this is the string to be used as a replacement for
::: each found search expression. Full support is provided for
::: substituion patterns available to the JScript replace method.
:::
::: For example, $& represents the portion of the source that matched
::: the entire search pattern, $1 represents the first captured
::: submatch, $2 the second captured submatch, etc. A $ literal
::: can be escaped as $$.
:::
::: An empty replacement string must be represented as "".
:::
::: Replace substitution pattern syntax is fully documented at
::: http://msdn.microsoft.com/en-US/library/efy6s3e6(v=vs.80).aspx
:::
::: Options: Behavior may be altered by appending one or more options.
::: The option names are case insensitive, and may appear in any order
::: after the Replace argument.
:::
::: /A - Only print altered lines. Unaltered lines are discarded.
::: If the /S option is used, then prints the result only if
::: there was a change anywhere in the string. The /A option
::: is incompatible with the /M option unless the /S option
::: is also present.
:::
::: /B - The Search must match the beginning of a line.
::: Mostly used with literal searches.
:::
::: /C - Count the number of input lines and store the result in global
::: variable cnt. This value can be useful in JScript code associated
::: with any of the /Jxxx options.
:::
::: This option is incompatible with the /M and /S options.
:::
::: If the input data is piped or redirected, then the data is first
::: written to a temporary file, so processing does not start until
::: the end-of-file is reached.
:::
::: /E - The Search must match the end of a line.
::: Mostly used with literal searches.
:::
::: /F InFile
:::
::: Input is read from file InFile instead of stdin.
:::
::: /I - Makes the search case-insensitive.
:::
::: /J - The Replace argument is a JScript expression.
::: The following variables contain details about each match:
:::
::: $0 is the substring that matched the Search
::: $1 through $n are the captured submatch strings
::: $off is the offset where the match occurred
::: $src is the original source string
:::
::: /JBEG InitCode
:::
::: JScript inititialization code to run prior to loading any input.
::: This is useful for initializing user defined variables for
::: accumulating information across matches. The default code is an
::: empty string.
:::
::: /JBEGLN NewLineCode
:::
::: JScript code to run at the beginning of each line, prior to
::: performing any matching on the line. The line content may be
::: manipulated via the $txt variable. The default code is an empty
::: string. This option is incompatible with the /M and /S options.
:::
::: /JEND FinalCode
:::
::: JScript termination code to run when there is no more input to
::: read. This is useful for writing summarization results.
::: The default code is an empty string.
:::
::: /JENDLN EndLineCode
:::
::: JScript code to run at the end of each line, after all matches
::: on the line have been found, but before the result is printed.
::: The final result can be modified via the $txt variable. Setting
::: $txt to false discards the line without printing. The $txt value
::: is ignored if the /JMATCH option has been used. The default
::: code is an empty string. This option is incompatible with the
::: /M and /S options.
:::
::: /JLIB FileList
:::
::: Specifies one or more files that contain libraries of JScript
::: code to load before /JBEG is run. Multiple files are delimited
::: by forward slashes (/). Useful for declaring global variables
::: and functions in a way that is reusable.
:::
::: /JMATCH
:::
::: Prints each Replace value on a new line, discarding all text
::: that does not match the Search. The Replace argument is a
::: JScript expression with access to the same $ variables available
::: to the /J option. Replacement values that evaluate to false
::: are discarded.
:::
::: /L - The Search is treated as a string literal instead of a
::: regular expression. Also, all $ found in the Replace string
::: are treated as $ literals.
:::
::: /M - Multi-line mode. The entire input is read and processed in one
::: pass instead of line by line, thus enabling search for \n. This
::: also enables preservation of the original line terminators.
::: If the /M option is not present, then every printed line is
::: terminated with carriage return and line feed. The /M option is
::: incompatible with the /A option unless the /S option is also
::: present.
:::
::: Note: If working with binary data containing NULL bytes,
::: then the /M option must be used.
:::
::: /N MinWidth
:::
::: Precede each output line with the line number of the source line,
::: followed by a colon. Line 1 is the first line of the source.
:::
::: The MinWidth value specifies the minimum number of digits to
::: display. The default value is 0, meaning do not display the
::: line number. A value of 1 diplays the line numbers without any
::: zero padding.
:::
::: The /N option is ignored if the /M or /S option is used.
:::
::: /O OutFile
:::
::: Output is written to file OutFile instead of stdout.
:::
::: A value of "-" replaces the InFile with the output. The output
::: is first written to a temporary file with the same name as InFile
::: with .new appended. Upon completion, the temporary file is moved
::: to replace the InFile.
:::
::: /OFF MinWidth
:::
::: Ignored unless the /JMATCH option is used. Precede each output
::: line with the offset of the match within the original source
::: string, followed by a colon. Offset 0 is the first character of
::: the source string. The offset follows the line number if the /N
::: option is also used.
:::
::: The MinWidth value specifies the minimum number of digits to
::: display. The default value is 0, meaning do not display the
::: offset. A value of 1 displays the offsets without any zero
::: padding.
:::
::: /S VarName
:::
::: The source is read from environment variable VarName instead
::: of from stdin. Without the /M option, ^ anchors the beginning
::: of the string, and $ the end of the string. With the /M option,
::: ^ anchors the beginning of a line, and $ the end of a line.
:::
::: The variable name cannot match any of the option names, nor can
::: it be /TEST. Put another way, any variable can be used as long as
::: the name does not begin with a forward slash.
:::
::: /T DelimiterChar
:::
::: The /T option is very similar to the Oracle Translate() function,
::: or the unix tr command, or the sed y command.
:::
::: The Source represents a set of search expressions, and Replace
::: is a like sized set of replacement expressions. Expressions are
::: delimited by DelimiterChar (a single character). If DelimiterChar
::: is an empty string, then each character is treated as its own
::: expression. The /L option is implicitly set if DelimiterChar is
::: empty. Escape sequences are interpreted after the search and
::: replace strings are split into expressions, so escape sequences
::: cannot be used without a delimiter.
:::
::: Each substring from the input that matches a particular search
::: expression is translated into the corresponding replacement
::: expression.
:::
::: The search expressions may be regular expressions, possibly with
::: captured subexpression. Note that each expression is itself
::: converted into a captured subexpression and the operation is
::: performed as a single search/replace upon execution. So
::: backreferences within each regex and $n references within each
::: replacement expression must be adjusted accordingly.
:::
::: The total number of expressions plus captured subexpressions must
::: not exceed 99.
:::
::: If an expression must include a delimiter, then an escape
::: sequence must be used.
:::
::: Search expressions are tested from left to right. The left most
::: matching expression takes precedence when there are multiple
::: matching expressions.
:::
::: /V - Search, Replace, /JBEG InitCode, /JBEGLN NewLineCode, /JEND
::: FinalCode, and /JENDLN EndLineCode all represent the names
::: of environment variables that contain the respective values.
::: An undefined variable is treated as an empty string.
:::
::: The variable names must not match any of the option names, nor
::: can they be /TEST.
:::
::: /X - Enables extended substitution pattern syntax with support
::: for the following escape sequences within the Replace string:
:::
::: \\ - Backslash
::: \b - Backspace
::: \f - Formfeed
::: \n - Newline
::: \q - Quote
::: \r - Carriage Return
::: \t - Horizontal Tab
::: \v - Vertical Tab
::: \xnn - ASCII byte code expressed as 2 hex digits
::: \unnnn - Unicode character expressed as 4 hex digits
:::
::: Also enables the \q escape sequence for the Search string.
::: The other escape sequences are already standard for a regular
::: expression Search string.
:::
::: Also modifies the behavior of \xnn in the Search string to work
::: properly with extended ASCII byte codes (values above 0x7F).
:::
::: Extended escape sequences are supported even when the /L option
::: is used. Both Search and Replace support all of the extended
::: escape sequences if both the /X and /L opions are combined.
:::
::: Extended escape sequences are not applied to JScript code when
::: using any of the /Jxxx options. Use the decode() function if
::: extended escape sequences are needed within the code.
:::
::: The following global JScript variables/objects/functions are available for
::: use in JScript code associated with the /Jxxx options. User code may safely
::: declare additional variables/objects/functions because all other internal
::: objects used by JREPL are hidden behind an opaque _g object.
:::
::: ln - Within /JBEGLN, /JENDLN, and Replace code = current line number
::: Within /JBEG code = 0
::: Within /JEND code = total number of lines read.
::: This value is always 0 if the /M or /S option is used.
:::
::: cnt - The total number of lines in the input. The value is undefined
::: unless the /C option is used.
:::
::: skip - If true, do not search/replace any more lines until the value
::: becomes false. /JBEGLN and /JENDLN code are still executed for
::: each line, regardless. If set to true while in the midst of
::: searching a line, then that search will continue to the end of
::: the current line.
:::
::: The default value is false.
:::
::: This variable has no impact if the /M or /S options is used.
:::
::: quit - If true, then do not read any more lines of input. The current
::: line is still processed to completion, and /JEND code is still
::: executed afterward.
:::
::: The default value is false.
:::
::: This variable has no impact if the /M or /S options is used.
:::
::: env('varName')
:::
::: Access to environment variable named varName.
:::
::: decode(string)
:::
::: Decodes extended escape sequences within a string as defined
::: by the /X option, and returns the result. All backslashes must
::: be escaped an extra time to use this function in your code.
:::
::: Examples:
::: quote literal: decode('\\q')
::: extended ASCII(128): decode('\\x80')
::: backslash literal: decode('\\\\')
:::
::: This function is only needed if you use the \q sequence
::: or \xnn for an extended ASCII code (values above 0x7F).
:::
::: lpad(value,pad)
:::
::: Used to left pad a value to a minimum width string. If the
::: value already has string width >= the pad length, then no
::: change is made. Otherwise it left pads the value with the
::: characters of the pad string to the width of the pad string.
:::
::: Examples:
::: lpad(15,'0000') returns "0015"
::: lpad(15,' ') returns " 15"
::: lpad(19011,'0000') returns "19011"
:::
::: input - The TextStream object from which input is read.
::: This may be stdin or a file.
:::
::: output - The TextStream object to which the output is written.
::: This may be stdout or a file.
:::
::: stdin - Equivalent to WScript.StdIn
:::
::: stdout - Equivalent to WScript.StdOut
:::
::: stderr - Equivalent to WScript.StdErr
:::
::: Help is available by supplying a single argument beginning with /?:
:::
::: /? - Writes this help documentation to stdout.
::: /?? - Same as /? except uses MORE for pagination
:::
::: /?REGEX - Opens up Microsoft's JScript regular expression
::: documentation within your browser.
:::
::: /?REPLACE - Opens up Microsoft's JScript REPLACE documentation
::: within your browser.
:::
::: /?VERSION - Writes the JREPL version number to stdout.
:::
::: Return Codes:
:::
::: 0 = At least one change was made and /JMATCH not used
::: or at least one match returned and /JMATCH was used
::: or /? was used
:::
::: 1 = No change was made and /JMATCH not used
::: or no match returned and /JMATCH was used
:::
::: 2 = Invalid call syntax or incompatible options
:::
::: 3 = JScript runtime error
:::
::: JREPL.BAT was written by Dave Benham, and originally posted at
::: http://www.dostips.com/forum/viewtopic.php?f=3&t=6044
:::
============= :Batch portion ===========
@echo off
setlocal disableDelayedExpansion
if .%2 equ . (
if "%~1" equ "/?" (
for /f "tokens=* delims=:" %%A in ('findstr "^:::" "%~f0"') do @echo(%%A
exit /b 0
) else if "%~1" equ "/??" 2>nul (
(for /f "tokens=* delims=:" %%A in ('findstr "^:::" "%~f0"') do @echo(%%A)|more /e
exit /b 0
) else if /i "%~1" equ "/?regex" (
explorer "http://msdn.microsoft.com/en-us/library/ae5bf541(v=vs.80).aspx"
exit /b 0
) else if /i "%~1" equ "/?replace" (
explorer "http://msdn.microsoft.com/en-US/library/efy6s3e6(v=vs.80).aspx"
exit /b 0
) else if /i "%~1" equ "/?version" (
for /f "tokens=* delims=:" %%A in ('findstr "^::JREPL\.BAT" "%~f0"') do @echo(%%A
exit /b 0
) else call :exitErr "Insufficient arguments"
)
:: Define options
set "options= /A: /B: /C: /E: /F:"" /I: /J: /JBEG:"" /JBEGLN:"" /JEND:"" /JENDLN:"" /JLIB:"" /JMATCH: /L: /M: /N:0 /O:"" /OFF:0 /S:"" /T:"none" /V: /X: "
:: Set default option values
for %%O in (%options%) do for /f "tokens=1,* delims=:" %%A in ("%%O") do set "%%A=%%~B"
:: Get options
:loop
if not "%~3"=="" (
set "/test=%~3"
setlocal enableDelayedExpansion
if "!/test:~0,1!" neq "/" call :exitErr "Too many arguments"
set "/test=!options:*%~3:=! "
if "!/test!"=="!options! " (
endlocal
call :exitErr "Invalid option %~3"
) else if "!/test:~0,1!"==" " (
endlocal
set "%~3=1"
) else (
endlocal
set "%~3=%~4"
shift /3
)
shift /3
goto :loop
)
:: Validate options
if defined /M if defined /A if not defined /S call :exitErr "/M cannot be used with /A without /S"
if "%/O%" equ "-" if not defined /F call :exitErr "Output = - but Input file not specified"
if defined /F for %%A in ("%/F%") do for %%B in ("%/O%") do if "%%~fA" equ "%%~fB" call :exitErr "Output file cannot match Input file"
if "%/C%%/JBEGLN%%/JENDLN%" neq "" if "%/M%%/S%" neq "" call :exitErr "/C, /JBEGLN, and /JENDLN cannot be used with /M or /S"
:: Transform options
if defined /JMATCH set "/J=1"
if "%/M%%/S%" neq "" set "/N=0"
:: Execute
cscript //E:JScript //nologo "%~f0" %1 %2
exit /b %errorlevel%
:exitErr
>&2 (
echo ERROR: %~1.
echo Use JREPL /? or JREPL /?? to get help.
(goto) 2>nul
exit /b 2
)
************* JScript portion **********/
var _g=new Object();
_g.loc='';
try {
var env=WScript.CreateObject("WScript.Shell").Environment("Process"),
cnt,
ln=0,
skip=false,
quit=false,
stdin=WScript.StdIn,
stdout=WScript.Stdout,
stderr=WScript.Stderr,
output,
input;
_g.ForReading=1;
_g.ForWriting=2;
_g.TemporaryFolder=2;
_g.fso = new ActiveXObject("Scripting.FileSystemObject");
_g.inFile=env('/F');
_g.outFile=env('/O');
_g.tempFile='';
if (_g.inFile=='') {
if (env('/C')) {
_g.tempFile=_g.fso.GetSpecialFolder(_g.TemporaryFolder).path+'\\'+_g.fso.GetTempName();
_g.inFile=_g.tempFile;
input=stdin;
output=_g.fso.OpenTextFile(_g.tempFile,_g.ForWriting,true);
while (!stdin.AtEndOfStream) output.WriteLine(input.ReadLine());
cnt=input.line-1;
output.close();
input=_g.fso.OpenTextFile(_g.tempFile,_g.ForReading);
} else input=stdin;
} else {
if (env('/C')) {
input=_g.fso.OpenTextFile(_g.inFile,_g.ForReading);
while (!input.AtEndOfStream) input.SkipLine();
cnt=input.line-1;
input.close();
}
input=_g.fso.OpenTextFile(_g.inFile,_g.ForReading);
}
if (_g.outFile=='') {
output=stdout
} else if (_g.outFile=='-') {
output=_g.fso.OpenTextFile(_g.inFile+'.new',_g.ForWriting,true);
} else {
output=_g.fso.OpenTextFile(_g.outFile,_g.ForWriting,true);
}
if (env('/JLIB')) {
_g.loc=' while loading /JLIB code';
var libs=env('/JLIB').split('/');
for (var i=0; i<libs.length; i++) {
var lib=_g.fso.OpenTextFile(libs[i],_g.ForReading);
if (!lib.AtEndOfStream) eval(lib.ReadAll());
lib.close();
}
_g.loc='';
}
_g.loc=' in /JBEG code';
eval(env( env('/V') ? env('/JBEG') : '/JBEG' ));
_g.loc='';
_g.fmtNum=function(val,pad){return pad.length==0 ? '' : lpad(val,pad)+':';}
_g.writeMatch=function(str,off,lnPad,offPad) {
if (str!==false) {
_g.rtn=0;
output.WriteLine(_g.fmtNum(ln,lnPad)+_g.fmtNum(off,offPad)+str);
}
}
_g.defineReplFunc=function() {
eval(_g.replFunc);
}
_g.callBeginLine=function($txt) {
_g.loc=' in /JBEGLN code'
eval(_g.begLn);
_g.loc='';
return $txt;
}
_g.callEndLine=function($txt) {
_g.loc=' in /JENDLN code';
eval(_g.endLn);
_g.loc='';
return $txt;
}
_g.main=function() {
_g.rtn=1;
var args=WScript.Arguments;
var search=args.Item(0);
var replace=args.Item(1);
var options="g";
var multi=env('/M')!='';
var literal=env('/L')!='';
var alterations=env('/A')!='';
var srcVar=env('/S');
var jexpr=env('/J')!='';
var jmatch=env('/JMATCH')!='';
var translate=env('/T');
_g.begLn=env('/JBEGLN');
_g.endLn=env('/JENDLN');
if (multi) options+='m';
if (env('/V')) {
search=env(search);
replace=env(replace);
_g.begLn=env(_g.begLn);
_g.endLn=env(_g.endLn);
}
if (env('/I')) options+='i';
var lnWidth=parseInt(env('/N'),10),
offWidth=parseInt(env('/OFF'),10),
lnPad=lnWidth>0?Array(lnWidth+1).join('0'):'',
offPad=offWidth>0?Array(offWidth+1).join('0'):'',
xcnt=0, test;
if (translate=='none') { // Normal
if (env('/X')) {
if (!jexpr) replace=decode(replace);
search=decode(search,literal);
}
if (literal) {
search=search.replace(/([.^$*+?()[{\\|])/g,"\\$1");
if (!jexpr) replace=replace.replace(/\$/g,"$$$$");
}
if (env('/B')) search="^"+search;
if (env('/E')) search=search+"$";
_g.loc=' in Search regular expression';
search=new RegExp(search,options);
_g.log='';
if (jexpr) {
_g.loc=' in Search regular expression';
test=new RegExp('.|'+search,options);
_g.loc='';
'x'.replace(test,function(){xcnt=arguments.length-2; return '';});
_g.replFunc='_g.replFunc=function($0';
for (var i=1; i<xcnt; i++) _g.replFunc+=',$'+i;
_g.replFunc+=',$off,$src){_g.loc=" in Replace code";'+( jmatch ? '_g.writeMatch(eval(_g.replace),$off,\''+lnPad+'\',\''+offPad+'\');_g.loc="";return $0;}' : 'var rtn=eval(_g.replace);_g.log="";return rtn;}' );
_g.defineReplFunc();
}
_g.replace=replace;
} else { // /T
if (translate.length>1) throw new Error(203, 'Invalid /T delimiter');
search=search.split(translate);
if (search.length>99) throw new Error(202, '/T expression count exceeds 99');
var replace=replace.split(translate);
if (search.length!=replace.length) throw new Error(201, 'Mismatched search and replace /T expressions');
_g.replace=[];
var j=1;
for (var i=0; i<search.length; i++) {
if (env('/X')) search[i]=decode(search[i],literal);
if (literal) {
search[i]=search[i].replace(/([.^$*+?()[{\\|])/g,"\\$1");
} else {
_g.loc=' in Search regular expression';
test=new RegExp('.|'+search[i],options);
_g.loc='';
'x'.replace(test,function(){xcnt=arguments.length-3;return '';});
}
if (j+xcnt>99) throw new Error(202, '/T expressions + captured expressions exceeds 99');
if (env('/B')) search[i]="^"+search[i];
if (env('/E')) search[i]=search[i]+"$";
if (jexpr) {
_g.replace[j]=replace[i];
} else {
replace[i]="'" + (env('/X')==''?replace[i]:decode(replace[i])).replace(/[\\']/g,"\\$&") + "'";
replace[i]=replace[i].replace(/\n/g, "\\n");
replace[i]=replace[i].replace(/\r/g, "\\r");
if (!literal) {
_g.replace[j]=replace[i].replace(
/\$([$&`0]|\\'|(\d)(\d)?)/g,
function($0,$1,$2,$3){
return ($1=="$") ? "$":
($1=="&") ? "'+$0+'":
($1=="`") ? "'+$src.substr(0,$off)+'":
($1=="\\'") ? "'+$src.substr($off+$0.length)+'":
(Number($1)-j<=xcnt && Number($1)>=j) ? "'+"+$0+"+'":
(Number($2)-j<=xcnt && Number($2)>=j) ? "'+$"+$2+"+'"+$3:
$0;
}
);
} else _g.replace[j]=replace[i];
}
j+=xcnt+1;
}
search='('+search.join(')|(')+')';
_g.loc=' in Search regular expression';
search=new RegExp( search, options );
_g.loc='';
_g.replFunc='_g.replFunc=function($0';
for (var i=1; i<j; i++) _g.replFunc+=',$'+i;
_g.replFunc+=',$off,$src){_g.loc=" in Replace code"; for (var i=1;i<arguments.length-2;i++) if (arguments[i]!==undefined) ';
_g.replFunc+= jmatch ? '{_g.writeMatch(eval(_g.replace[i]),$off,\''+lnPad+'\',\''+offPad+'\');_g.loc="";return $0;}}' : '{var rtn=eval(_g.replace[i]);_g.loc="";return rtn;}}';
_g.defineReplFunc();
jexpr=true;
}
var str1, str2;
var repl=jexpr?_g.replFunc:_g.replace;
if (srcVar) {
str1=env(srcVar);
str2=str1.replace(search,repl);
if (!jmatch) if (!alterations || str1!=str2) if (multi) {
output.Write(_g.fmtNum(ln,lnPad)+str2);
} else {
output.WriteLine(_g.fmtNum(ln,lnPad)+str2);
}
if (str1!=str2) _g.rtn=0;
} else if (multi){
var buf=1024;
str1="";
while (!input.AtEndOfStream) {
str1+=input.Read(buf);
buf*=2
}
str2=str1.replace(search,repl);
if (!jmatch) output.Write(_g.fmtNum(ln,lnPad)+str2);
if (str1!=str2) _g.rtn=0;
} else {
while (!input.AtEndOfStream && !quit) {
str2=str1=input.ReadLine();
ln++;
if (_g.begLn) str2=_g.callBeginLine(str2);
if (!skip) str2=str2.replace(search,repl);
if (_g.endLn) str2=_g.callEndLine(str2);
if (str2!==false && !jmatch && (!alterations || str1!=str2)) output.WriteLine(_g.fmtNum(ln,lnPad)+str2);
if (str1!=str2 && !jmatch) _g.rtn=0;
}
}
}
_g.main();
_g.loc=' in /JEND code';
eval(env( env('/V') ? env('/JEND') : '/JEND' ));
_g.loc='';
if (_g.inFile) input.close();
if (_g.outFile) output.close();
if (_g.outFile=='-') {
_g.fso.GetFile(_g.inFile).Delete();
_g.fso.GetFile(_g.inFile+'.new').Move(_g.inFile);
}
if (_g.tempFile) _g.fso.GetFile(_g.tempFile).Delete();
WScript.Quit(_g.rtn);
} catch(e) {
WScript.Stderr.WriteLine("JScript runtime error"+_g.loc+": "+e.message);
WScript.Quit(3);
}
function decode(str, searchSwitch) {
str=str.replace(
/\\(\\|b|f|n|q|r|t|v|x80|x82|x83|x84|x85|x86|x87|x88|x89|x8[aA]|x8[bB]|x8[cC]|x8[eE]|x91|x92|x93|x94|x95|x96|x97|x98|x99|x9[aA]|x9[bB]|x9[cC]|x9[dD]|x9[eE]|x9[fF]|x[0-9a-fA-F]{2}|u[0-9a-fA-F]{4})/g,
function($0,$1) {
switch ($1.toLowerCase()) {
case 'q': return '"';
case 'x80': return '\u20AC';
case 'x82': return '\u201A';
case 'x83': return '\u0192';
case 'x84': return '\u201E';
case 'x85': return '\u2026';
case 'x86': return '\u2020';
case 'x87': return '\u2021';
case 'x88': return '\u02C6';
case 'x89': return '\u2030';
case 'x8a': return '\u0160';
case 'x8b': return '\u2039';
case 'x8c': return '\u0152';
case 'x8e': return '\u017D';
case 'x91': return '\u2018';
case 'x92': return '\u2019';
case 'x93': return '\u201C';
case 'x94': return '\u201D';
case 'x95': return '\u2022';
case 'x96': return '\u2013';
case 'x97': return '\u2014';
case 'x98': return '\u02DC';
case 'x99': return '\u2122';
case 'x9a': return '\u0161';
case 'x9b': return '\u203A';
case 'x9c': return '\u0153';
case 'x9d': return '\u009D';
case 'x9e': return '\u017E';
case 'x9f': return '\u0178';
default: return searchSwitch===false ? $0 : eval('"'+$0+'"');
}
}
);
return str;
}
function lpad( val, pad ) {
var rtn=val.toString();
return (rtn.length<pad.length) ? (pad+rtn).slice(-pad.length) : val;
}