批处理之家 - Powered by Discuz! Board

@echo off
setlocal
set "move_to=繁体文件名\"
md "%move_to%" 2>nul
dir /a:-d-h-s /b *.doc >.list
concmd /i:gbk /o:gbk /f:s .list .list2 >nul
(findstr /n . .list & findstr /n . .list2) | sort >.list3
set _name1=
for /f "tokens=1,* delims=:" %%a in (.list3) do (
if not defined _name1 (
set _name1=%%b
) else (
set _name2=%%b
setlocal enabledelayedexpansion
if "!_name1!" neq "!_name2!" move "!_name2!" "!move_to!"
endlocal
set _name1=
)
)
del .list .list2 .list3

复制代码

│ 申论剖析与写作.doc
│  fanti.bat
│  “十一届三中全会”以来党和国家的少数民族教育政策综述.doc
│  “十一届三中全会”以来党和国家的少数民族教育政策综述7238153.doc
│  “十一届三中全会”以来党和国家的少数民族教育政策综述7238178.doc
│  “思想政治教育学原理”课程教学大纲.doc
│  “思想政治教育学原理”课程教学大纲5962572.doc
│  “思想政治教育学原理”课程教学大纲5964963.doc
│  “思想政治教育学原理”课程教学大纲5964986.doc
│  中国教育学会.doc
│  中国教育学会7183184.doc
│  中国科学院心理研究所.doc
│  中文系师德建设实施方案.doc
│  中等职业教育学校招生报考指导.doc
│  中迪教师数字题库及智能管理平台（6个板块）.doc
│  展位号：2011.doc
│  张店区教育局关于2010年面向社会认定中等职业学校中小学幼儿园教师资格的通知.doc

│  招远市教育体育局.doc
│  章丘市第五批初中、小学骨干教师考查安排表.doc
│  长在中学章程.doc
│
└─繁体文件名
                                          臺北市99學年度國民小學校長遴選出、列
席人員通訊錄                      （請以A3格式紙張列印）.doc
         篋聘5壝靵  3 T  塭vd慳炸d[葑  4g禓槓剆C鑁韔悚趿瘈y捅絰b 枤 G
畩9俩h7运僉鐀WD3  o砰 -^腌@T.doc
      嘉義市98年度辦理『促進家長參與教育事務宣導』總體計畫.doc
      國立臺北護理健康大學教師發展中心教師成長專題演講活動.doc
      國立臺南藝術大學校長遴選要點.doc
      彰化縣.doc
      彰化縣　水尾　國民小學　總體課程計畫.doc
      彰化縣九十二學年度九年一貫課程文開國小教師進階研習討論議題分享紀錄.doc
      彰化縣私立精誠高級中學學校校長成績考核辦法本辦法經第十二屆第十一次董
事會會議通過（91年9月25日）.doc
      瑋智電腦彰化分校 99年10月份課程表.doc
      彰化縣聯興國民小學學生提升閱讀計畫.doc
      教出會思考的小孩---2009森林小學朱台翔校長巡迴演講.doc
      校長您好：.doc
      校長甄選私房菜.doc
      校長的話.doc
      福山國中九十七學年度第二學期班級家長會.doc
      美國校長專業機構與校長中心功能與運作模式.doc
      臺北市「北北基聯測」政策中正區家長座談會發言條答覆彙整表.doc
      瑋智電腦彰化分校 99年10月份課程表6866581.doc
      臺北市「北北基聯測」政策中正區家長座談會發言條答覆彙整表6034252.doc
      長榮大學94學年度校務執行成效報告書.doc
      高雄縣國民中小學校長遴選要點.doc
      臺中縣國民中學校長候用人員申請甄選評分標準表
中華民國年月日填報.doc
      98學年度第一學期期末校務會議校長報告 2010.1.19..doc

@echo off
setlocal
set "move_to=繁体文件名\"
set /p src_dir=请输入 word 文件所在目录的路径:
cd /d "%src_dir:"=%"
md "%move_to%" 2>nul
dir /a:-d-h-s /b *.doc | iconv -t utf-8 -c >"%~dp0\.list"
pushd "%~dp0"
opencc -i .list -o .list2 -c zht2zhs.ini
(
findstr /n . .list | iconv -f utf-8 -t gbk -c
findstr /n . .list2 | iconv -f utf-8 -t gbk -c
) | sort >.list3
popd
set _name1=
for /f "usebackq tokens=1,* delims=:" %%a in ("%~dp0\.list3") do (
if not defined _name1 (
set _name1=%%b
) else (
set _name2=%%b
setlocal enabledelayedexpansion
if "!_name1!" neq "!_name2!" move "!_name2!" "!move_to!"
endlocal
set _name1=
)
)
cd /d "%~dp0"
del .list .list2 .list3

复制代码