/*&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}
}
复制代码

<# :
@echo off
cd /d "%~dp0"
for /f "delims=" %%i in ('dir /b /ad /s') do (
    pushd "%%i"&&(
    if exist *.jpg (
        echo,%%i
        powershell -c "gc '%~0' | Out-String | iex"
        )
    popd
    )||set /p=%%i<nul
)
pause&exit
#>

[void][Reflection.Assembly]::LoadWithPartialName('System.Drawing')

function Img2Pdf($paramImgGroup) {
    $listImg = New-Object 'System.Collections.ArrayList'
    ForEach ($file In $groups[$paramImgGroup]) {
        [void]$listImg.Add([Drawing.Image]::FromFile($file))
    }

    $docPrint = New-Object 'Drawing.Printing.PrintDocument'
    $settingsPrint = New-Object 'Drawing.Printing.PrinterSettings'
    $settingsPrint.PrinterName = 'Microsoft Print to PDF'
    $settingsPrint.PrintToFile = $true
    $settingsPrint.PrintFileName = $paramImgGroup + '.pdf'
    $docPrint.PrinterSettings = $settingsPrint
    $docPrint.DefaultPageSettings.Landscape = $true

    $docPrint.add_PrintPage({
        $imgCurrent = $listImg[0]
        $ratioWidth = $_.MarginBounds.Width / $imgCurrent.Width
        $ratioHeight = $_.MarginBounds.Height / $imgCurrent.Height
        $ratioSelected = [Math]::Min($ratioWidth, $ratioHeight)
        $widthNew = [int]($imgCurrent.Width * $ratioSelected)
        $heightNew = [int]($imgCurrent.Height * $ratioSelected)
        $_.Graphics.DrawImage($imgCurrent, ($_.MarginBounds.Left + ($_.MarginBounds.Width - $widthNew) / 2), ($_.MarginBounds.Top + ($_.MarginBounds.Height - $heightNew) / 2), $widthNew, $heightNew)
        $imgCurrent.Dispose()
        $listImg.RemoveAt(0)
        If ($listImg.Count -gt 0) { $_.HasMorePages = $true } Else { $_.HasMorePages = $false }
    })

    $docPrint.Print()
    $docPrint.Dispose()
}

$files = Get-ChildItem -Filter "*.jpg"
$groups = @{}

ForEach ($file In $files) {
    $partChinese = [regex]::Match($file.Name, '^[\u4e00-\u9fff]+').Value
    If ($partChinese) {
        If (-not $groups.ContainsKey($partChinese)) {
            $groups[$partChinese] = @()
        }
        $groups[$partChinese] += $file
    }
}

ForEach ($group In $groups.Keys) {
    Write-Output "分组：$group"
    Img2Pdf -paramImgGroup $group
}
复制代码

@echo off
rem 保存为ansi
cd /d "%~dp0"
for /r /d %%d in (*) do (
	pushd "%%d"
	for /f "tokens=1* delims=1234567890." %%a in ('2^>nul dir /b /a-d *.jpg') do (
		if not exist "%%a.pdf" (
			setlocal enabledelayedexpansion
			for /f "delims=" %%i in ('dir /b /a-d *.jpg ^|findstr /rixc:"%%a[0-9]*\.jpg"') do (
				set name=%%i
				set "num=!name:%%a=!"
				set /a num+=10000
				set #!num!=%%i
			)
			for /f "tokens=1* delims==" %%x in ('set #') do (
				set str=!str! "%%y"
			)
			magick !str! "%%a.pdf"
			chcp 936 >nul
			endlocal
		)
	)
	popd
)
pause
复制代码

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