DAIC

回复 16# yearharvest


    13楼的代码有问题吗？

terse

回复 20# yearharvest
如此含中括号文件名还真不知道怎么处理 我发去PS版看下
不知还存在其他问题不  比如编码

yearharvest

是中括号，比如把文件命名成  [a].txt

terse

回复 18# yearharvest
新建 ! % ^ & 文件夹 (2)).txt
新建 ! % ^ & 文件夹 (2).txt
将你的附件 另存为上面两个文件 没提示错误
我再看看

yearharvest

回复 15# terse


    试了一下，发现文件名里有中括号的就会报一大堆错，不过这倒没什么关系，改下文件名就是了

yearharvest

回复 15# terse


    昨天忘了看，今天又有事现在才回来，多谢了，还有楼上的几位也是

yearharvest

回复 12# apang


    只是刚好我拿来测试的几个文件编码都不相同，能解决的话最好，不能或者解决起来麻烦的话就算了

terse

路径和文件扩展名 统一在前面定义
楼主没回复 浪费脑细胞

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

terse

搞个PS练手
XP系统需安装有POWERSHELL win7自带无需另装
代码第一行 2.89 为设定数 自己修改
路径为 c:\test
对于编码的判断准确与否 没测试 运行请前先备份

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

powerbat

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

apang

回复 7# yearharvest


    你的文件夹里到底有几种编码类型的文件需要修改？不说清楚要别人去猜呀？

你如果是真心求助的话，把你最终的需求更新到顶楼，我可以尝试一下，帮你写一段支持utf-8的代码。

Batcher

回复 8# yearharvest


    论坛搜索浮点数，有现成的代码。

wangx

帖子内容很好，学习了。

terse

回复 8# yearharvest
没什么好办法 如你所说 CMD不支持浮点，要么这样，1.5 你当作 15 去乘 然后除以10
1.5*32= 15 *32/10 = 48 这样近似了

yearharvest

回复 6# terse


    不支持小数，如果我要乘1.5的话就不行了，不过这是批处理本身不支持小数的原因，有没有其他办法支持小数？