\pos(100,200)\pos(100,200)\pos(100,200)
\pos(100,200)\pos(100,200)
\pos(100,200)
复制代码

\pos(150,400)\pos(150,400)\pos(150,400)
\pos(150,400)\pos(150,400)
\pos(150,400)
复制代码

@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 $_
}
复制代码

\pos(100,200)\pos(100,200)\pos(100,200)
\pos(300,400)\pos(300,400)
\pos(500,600)
复制代码

<#

把当前文件夹中指定后缀名的文件中的所有类似\pos(x,y)的字符串(x和y都是数字)替换成\pos(m*x,n*y)，m和n也是数字。也就是字符串\pos(x,y)中的x和y乘上一个倍数。能支持各种文件编码

 比如说a.txt里

01.\pos(100,200)\pos(100,200)\pos(100,200)

02.\pos(100,200)\pos(100,200)

03.\pos(100,200)
复制代码x乘1.5，y乘2的话变成

01.\pos(150,400)\pos(150,400)\pos(150,400)

02.\pos(150,400)\pos(150,400)

03.\pos(150,400)
复制代码
#>


$所有要处理的文件 =  Get-ChildItem -Path z:\pstemp\坛友yearharvest\*.txt   # -Recurse
# 这里指定目录名，和文件类型

[system.reflection.assembly]::loadwithpartialname("System.Text") | Out-Null
[int32]$long = 1024 * 1024 * 128 #128MB
$大字符串 = New-Object System.Text.StringBuilder($long) 


foreach   ($aaa   in   $所有要处理的文件)
{
		# 正常情况下，无需编写 GetEncoding 函数。因为Get-Content将自动判断编码， 参见：
		#  powershell文件编码处理之妙~]
		#  http://www.bathome.net/thread-26673-1-3.html
		#  如果有不带bom头的utf8格式文档，需要指定编码utf8；如果有不带bom头的unicode格式文档，需要指定unicode。不指定的话讲被【默认地】认为是ansi格式文档。
		foreach   ($bbb   in  $(Get-Content -LiteralPath $aaa)  )
		{
				#这题并不难，难在麻烦，不停地分行，分列，计算数值，然后再组合，不过代码不长。
				$切割数组 =  $bbb -split '\\pos\('
				$连成字串 = $切割数组   -join   ""
				
				$切割数组2 =  $连成字串   -split  '\)'
				$连成字串4 = ""
				foreach ($ccc  in  $切割数组2)
				{
						$切割数组3 =  $ccc  -split ','
						if  ($切割数组3.Length -gt 1)
						{
								$连成字串3 =  "" + ($切割数组3[0] -as [Int64]) * 1.5 +  ',' + ($切割数组3[1] -as [Int64]) * 2 
								$连成字串4 =  $连成字串4 + '\pos(' + $连成字串3 + ')'
						}
				
				}
				#$连成字串4
				$大字符串.AppendLine($连成字串4) | Out-Null
		}

$目标文件名 = $aaa.Name + $aaa.Extension 
Add-Content  -Path $目标文件名  -value $大字符串 -Encoding Unicode
}

#测试通过
复制代码