newswan

先，需要一个字典，汉字-偏旁

newswan

这个试试
python
https://github.com/wangchuan2008888/cn-radical

newswan

百度文库 常用汉字偏旁归类表
附件上传失败
链接: https://pan.baidu.com/s/1Ajz95Lngu3lNDoVm3vB8Vw 提取码: uz6y

各种文库，文档中心，收费太没道德。一句话：正版的受害者

newswan

$sour = "颜勤礼碑单字版"
$destDictory = ".\a"
$rulefile = "汉字偏旁-rule.txt"

$rule = Get-Content -Encoding UTF8 -Path $rulefile

Get-ChildItem -Path $sour | ForEach-Object {
    $char = $_.basename -replace "\d",""
    $name =$_.fullname
    $dest = $rule -match ("\t.*" + $char) -replace "\t.*",""
    $dest | foreach-object {
        $dd = $destDictory + "\" + $_
        if (-not (test-path $dd))
        {
            New-Item -ItemType "directory" $dd
        }
        copy-item $name $dd
    }
    pause
}
复制代码

newswan

回复 10# ykhq2021

powershell 嵌入 bat ，添加到第一行

@powershell -c "Get-Content '%~0' | Select-Object -Skip 1 | Out-String | Invoke-Expression" & pause & exit
复制代码

一个汉字可以有多个偏旁，会把文件复制到每个偏旁里去

newswan

哈哈，顺便学习下书法。。。

newswan

回复 25# cmd1152


    欣赏，毕竟那么有名的东东