zaqmlp

imagemagick下载

/*&cls&echo off&cd /d "%~dp0"
set "exefile=D:\ImageMagick\magick.exe"
if not exist "%exefile%" (echo;"%exefile%" not install or path error&goto end)
for /f "delims=" %%a in ('dir /ad/b/s') do (
    pushd "%%a"
    for /f "delims=" %%b in ('dir /a-d/b *.jpg 2^>nul^|cscript -nologo -e:jscript "%~f0"') do (
        echo;"%%b*.jpg" --^> "%%b.pdf"
        "%exefile%" "%%b*.jpg" "%%b.pdf"
        >nul chcp 936
    )
    popd
)
:end
pause
exit
*/
var cn={};
while(!WSH.StdIn.AtEndOfStream){
    var str=WSH.StdIn.ReadLine();
    var m=str.match(/[\u4e00-\u9fa5]+/);
    if(m && !(m[0] in cn)){WSH.echo(m[0]);cn[m[0]]=1}
}
复制代码

zaqmlp

回复 6# hxc1995 已修改

zaqmlp

回复 8# hxc1995

<# :
cls&echo off&cd /d "%~dp0"&rem bat存为ANSI/GB2312编码
path %SYSTEMROOT%\System32\WindowsPowerShell\v1.0;%path%
set "current=%cd%"
powershell -NoProfile -ExecutionPolicy bypass "Get-Content -literal '%~f0'|Out-String|Invoke-Expression"
pause
exit
#>
$rp=@("张=陈","刘=王");
$current=($env:current).trimend('\');
$files=@(dir -literal $current -recurse|?{('.jpg' -eq $_.Extension) -and ($_ -is [System.IO.FileInfo])});
for($i=0;$i -lt $files.length;$i++){
    $m=[regex]::match($files[$i].BaseName, '^[\u4e00-\u9fff]+');
    if($m.Success){
        for($j=0;$j -lt $rp.length;$j++){
            $kw=$rp[$j].split('=');
            if($m.groups[0].value -eq $kw[0]){
                $newname=$files[$i].BaseName.replace($kw[0], $kw[1])+$files[$i].Extension;
                $newfile=$files[$i].Directory.FullName.trimend('\')+'\'+$newname;
                write-host ($files[$i].FullName+' --> '+$newname);
                move-item -literal $files[$i].FullName $newfile -ErrorAction SilentlyContinue;
                break;
            }
        }
    }
}
复制代码