[文本处理] 【已解决】批处理查找并替换字符串

@echo off
set n=2
for /f "delims=" %%F in ('dir /b /a-d *.ini') do (
    (for /f "usebackq delims=" %%i in ("%%F") do (
         set "str=%%i"
         setlocal enabledelayedexpansion
         if "!str:\pos=(!" neq "%%i" (
            for /f "tokens=1,2 delims=,)" %%a in ("!str:*\pos(=!") do (
                set /a "i=%%a*n,j=%%b*n" 2>nul&&(
                    for /f %%j in ("\pos(!i!,!j!)") do (
                        set "str=!str:\pos(%%a,%%b)=%%j!"
                    )   
                )
            )
        )
    for /f "delims=" %%i in ("!str!") do endlocal&echo %%i
    ))>$
    move $ "%%F"
)
pause
复制代码

Set fso = CreateObject("Scripting.FileSystemObject")
text = fso.OpenTextFile("a.txt").Readall

Set re = New RegExp
re.Pattern = "([\s\S]*?\\pos\()(\d+),(\d+)\)|([\s\S]+)$"
re.IgnoreCase = True
re.Global = True
For Each a In re.Execute(text)
    If a.SubMatches(3) = "" Then
        str = str & a.SubMatches(0) & _
        a.SubMatches(1) * 2 & "," & _
        a.SubMatches(2) * 2 & ")"
    Else str = str & a.SubMatches(3)
    End If
Next

fso.OpenTextFile("b.txt",2,True).Write str
复制代码

@echo off
set n=2
for /f "delims=" %%F in ('dir /b /a-d *.txt') do (
    (for /f "delims=" %%i in ('type "%%F"^|findstr /n .*') do (
        set "str=%%i"
        setlocal enabledelayedexpansion
        if "!str:\pos=(!" neq "%%i" (
           for /f "tokens=1,2 delims=,)" %%a in ("!str:*\pos(=!") do (
               set /a "i=%%a*n,j=%%b*n" 2>nul&&(
                   for /f %%j in ("\pos(!i!,!j!)") do (
                       set "str=!str:\pos(%%a,%%b)=%%j!"
                   )
               )
           )
        )
          echo;!str:*:=!
          endlocal
     ))>$
          move $ "%%F"

)
pause
复制代码

@set @n=0//& dir /b *.txt | cscript.exe -nologo -e:jscript "%~f0" &pause&exit/b
while (!WSH.StdIn.AtEndOfStream) {
    f = WSH.StdIn.ReadLine();
    WSH.StdOut.Write("\r处理:\t"+f);
    WSH.Sleep(300); //Delete this line!
    try {enlarge(f, 1.5, 2.5); WSH.StdOut.Write("\r成功:\n");}
    catch(e) {WSH.StdOut.Write("\r失败:\n");}
}

function enlarge(file, m, n)
{
    var aso, txt;
    aso = new ActiveXObject("ADODB.Stream");
    aso.Mode = 3;
    aso.Type = 2;
    aso.Charset = "cp437";
    aso.Open();
    aso.LoadFromFile(file);
    txt = aso.ReadText(-1);
    if (txt.indexOf('\x00') > -1) {
        aso.Position = 0;
        aso.Charset = "unicode";
        txt = aso.ReadText(-1);
    }
    txt = txt.replace(/\\pos\((\d+),(\d+)(?=\))/g, 
        function(s0,s1,s2){return "\\pos(" + s1*m + ',' + s2*n});
    aso.Position = 0;
    aso.WriteText(txt);
    aso.SetEOS();
    aso.SaveToFile(file + ".log", 2);
    aso.Close();
    aso = null;
    return txt;
}
复制代码

$n=2.89
function Get-Encoding ($ph)
{
 $ByteStr = Get-Content $Ph -Encoding Byte -TotalCount 3
 $BOM = "{0:X}{1:X}{2:X}" -f $ByteStr 
 if ($BOM -eq "EFBBBF") { "UTF8" } 
 Else {
       $BOM = "{0:X}{1:X}" -f $ByteStr
       if ($BOM -eq "FFFE") { "Unicode" } 
           Elseif ($BOM -eq "FEFF") {"BigEndianUnicode"}
           Else {"Ascii"}
       }
}
get-childitem "c:\te st\*" -include *.txt | ?{
 $Encoding = Get-Encoding($_)
 (Get-Content $_ | % {
    if ($_ -cmatch '(.+\\pos\()(\d+),(\d+)(.*)') {
       "$($matches[1])$([int]($n * $matches[2])),$([int]($n * $matches[3]))$($matches[4])"
    } else {"$_"}
 }) | Set-Content  -Encoding $Encoding $_
}
复制代码

$n = 2.89
$Ph = "c:\test"
$Ext = "txt"
function Get-Encoding ($ph)
{
 $ByteStr = Get-Content $Ph -Encoding Byte -TotalCount 3
 $BOM = "{0:X}{1:X}{2:X}" -f $ByteStr 
 if ($BOM -eq "EFBBBF") { "UTF8" } 
 Else {
       $BOM = "{0:X}{1:X}" -f $ByteStr
       if ($BOM -eq "FFFE") { "Unicode" } 
           Elseif ($BOM -eq "FEFF") {"BigEndianUnicode"}
           Else {"Ascii"}
       }
}
get-childitem "$Ph\*" -include *.$Ext | ?{
 $Encoding = Get-Encoding($_)
 (Get-Content $_ | % {
    if ($_ -cmatch '(.+\\pos\()(\d+),(\d+)(.*)') {
       "$($matches[1])$([int]($n * $matches[2])),$([int]($n * $matches[3]))$($matches[4])"
    } else {"$_"}
 }) | Set-Content  -Encoding $Encoding $_
}
复制代码