[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖

批处理怎样提取出文件名含繁体字的word文档?

文件夹下有2000个word,文件名中含有简体或繁体,批处理怎样将文件名含繁体的word统统提取出来存到另一个文件夹?

谢谢.

本帖最后由 tmplinshi 于 2011-7-18 20:17 编辑

那再试试 opencc。

我把 opencc、iconv 和批处理一起打包了,下载地址:http://ge.tt/9oOce36
  1. @echo off
  2. setlocal
  3. set "move_to=繁体文件名\"
  4. set /p src_dir=请输入 word 文件所在目录的路径:
  5. cd /d "%src_dir:"=%"
  6. md "%move_to%" 2>nul
  7. dir /a:-d-h-s /b *.doc | iconv -t utf-8 -c >"%~dp0\.list"
  8. pushd "%~dp0"
  9. opencc -i .list -o .list2 -c zht2zhs.ini
  10. (
  11.     findstr /n . .list | iconv -f utf-8 -t gbk -c
  12.     findstr /n . .list2 | iconv -f utf-8 -t gbk -c
  13. ) | sort >.list3
  14. popd
  15. set _name1=
  16. for /f "usebackq tokens=1,* delims=:" %%a in ("%~dp0\.list3") do (
  17.     if not defined _name1 (
  18.         set _name1=%%b
  19.     ) else (
  20.         set _name2=%%b
  21.         setlocal enabledelayedexpansion
  22.         if "!_name1!" neq "!_name2!" move "!_name2!" "!move_to!"
  23.         endlocal
  24.         set _name1=
  25.     )
  26. )
  27. cd /d "%~dp0"
  28. del .list .list2 .list3
复制代码

TOP

9# dan5262


开始
运行
cmd
chcp
看看得到的数字是多少?
Batcher 发表于 2011-7-18 13:28


936  简体中文
XP  SP2
office2003 完全版

TOP

7# dan5262


可以学习一下如何压缩图片
http://bbs.bathome.net/thread-4673-1-1.html
Batcher 发表于 2011-7-18 13:40


谢谢指点,我已经压缩过了,刚好大于50K.

TOP

7# dan5262


可以学习一下如何压缩图片
http://bbs.bathome.net/thread-4673-1-1.html
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

9# dan5262


开始
运行
cmd
chcp
看看得到的数字是多少?
我帮忙写的代码不需要付钱。如果一定要给,请在微信群或QQ群发给大家吧。
【微信公众号、微信群、QQ群】http://bbs.bathome.net/thread-3473-1-1.html
【支持批处理之家,加入VIP会员!】http://bbs.bathome.net/thread-67716-1-1.html

TOP

本帖最后由 dan5262 于 2011-7-18 12:04 编辑
我这里测试通过。(测试环境:XP SP2 简体中文)

tmplinshi 发表于 2011-7-18 11:50

我是XP, WORD2003
=================================================================
繁体文件名-------------:
   篋 聘5壝   靵  3 T  塭vd慳炸d[葑  4g禓槓剆C鑁韔悚趿瘈y捅絰b 枤 G畩9俩h7运僉鐀WD3  o砰 -^腌@T.doc
瑋智電腦彰化分校 99年10月份課程表6866581.doc
臺 中 縣 國 民 中 學 校 長 候 用 人 員 申 請 甄 選 評 分 標 準 表         中華民國   年   月    日填報.doc
1.txt
“十一届三中全会”以来党和国家的少数民族教育政策综述.doc
“十一届三中全会”以来党和国家的少数民族教育政策综述7238178.doc
“思想政治教育学原理”课程教学大纲5962572.doc
“思想政治教育学原理”课程教学大纲5964986.doc
中 国 教 育 学 会7183184.doc
中 文 系 师 德 建 设 实 施 方 案.doc
嘉義市98年度辦理『促進家長參與教育事務宣導』總體計畫.doc
國立臺南藝術大學校長遴選要點.doc
张店区教育局关于2010年面向社会认定中等职业学校中小学幼儿园教师资格的通知.doc
彰化縣 水尾 國民小學 總體課程計畫.doc
彰化縣私立精誠高級中學學校校長成績考核辦法    本辦法經第十二屆第十一次董事會會議通過(91年9月25日).doc
彰化縣聯興國民小學學生提升閱讀計畫.doc
教出會思考的小孩---2009森林小學朱台翔校長巡迴演講.doc
校長甄選私房菜.doc
福山國中九十七學年度第二學期班級家長會.doc
美國校長專業機構與校長中心功能與運作模式.doc
長榮大學94學年度校務執行成效報告書.doc
高雄縣國民中小學校長遴選要點.doc
=================================================================
提取后剩余----:
                                    臺北市99學年度國民小學校長遴選出、列席人員通訊錄                        (請以A3格式紙張列印).doc
瑋智電腦彰化分校 99年10月份課程表.doc
申论 剖析与写作.doc
98學年度第一學期期末校務會議校長報告 2010.1.19..doc
“十一届三中全会”以来党和国家的少数民族教育政策综述7238153.doc
“思想政治教育学原理”课程教学大纲.doc
“思想政治教育学原理”课程教学大纲5964963.doc
中 国 教 育 学 会.doc
中 国 科 学 院 心 理 研 究 所.doc
中等职业教育学校招生报考指导.doc
中迪教师数字题库及智能管理平台(6个板块).doc
國立臺北護理健康大學教師發展中心教師成長專題演講活動.doc
展位号:2011.doc
彰化縣.doc
彰化縣九十二學年度九年一貫課程文開國小教師進階研習討論議題分享紀錄.doc
招 远 市 教 育 体 育 局.doc
校長您好:.doc
校長的話.doc
章丘市第五批初中、小学骨干教师考查安排表.doc
臺北市「北北基聯測」政策中正區家長座談會發言條答覆彙整表.doc
臺北市「北北基聯測」政策中正區家長座談會發言條答覆彙整表6034252.doc
长在中学章程.doc
=================================================================

TOP

本帖最后由 tmplinshi 于 2011-7-18 11:55 编辑

我这里测试通过。(测试环境:XP SP2 简体中文)
│   申论 剖析与写作.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

TOP

本帖最后由 dan5262 于 2011-7-18 11:31 编辑
奇怪了,为什么“長榮大學94學年度校務執行成效報告書.doc”等文件不会被提取呢?

你把最后一行“del .list .list2 .list3”删掉,然后运行批处理,把 .list3 的内容贴一下,看是什么问题。
tmplinshi 发表于 2011-7-18 10:46



截图总是超过50K,无法上传.
我上传了样本.rar到网盘,请测试,谢谢.

下载地址:http://ys-b.ys168.com/?0bathome繁体样本.rar_51bks5b9d6dkkks5btqhkt0cqll0cllmj5bkt0cplm7bu14z97f14z

若不能下载请进入网盘下载:http://bathome.ys168.com/

TOP

奇怪了,为什么“長榮大學94學年度校務執行成效報告書.doc”等文件不会被提取呢?

你把最后一行“del .list .list2 .list3”删掉,然后运行批处理,把 .list3 的内容贴一下,看是什么问题。

TOP

需要下载 concmd@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 .  ...
tmplinshi 发表于 2011-7-18 09:21


多谢斑竹,不是太准确,我贴了两张图,请参考。谢谢。

TOP

需要下载 concmd
  1. @echo off
  2. setlocal
  3. set "move_to=繁体文件名\"
  4. md "%move_to%" 2>nul
  5. dir /a:-d-h-s /b *.doc >.list
  6. concmd /i:gbk /o:gbk /f:s .list .list2 >nul
  7. (findstr /n . .list & findstr /n . .list2) | sort >.list3
  8. set _name1=
  9. for /f "tokens=1,* delims=:" %%a in (.list3) do (
  10.     if not defined _name1 (
  11.         set _name1=%%b
  12.     ) else (
  13.         set _name2=%%b
  14.         setlocal enabledelayedexpansion
  15.         if "!_name1!" neq "!_name2!" move "!_name2!" "!move_to!"
  16.         endlocal
  17.         set _name1=
  18.     )
  19. )
  20. del .list .list2 .list3
复制代码

TOP

批不是万能的。。。

有个字典还有可能实现。。。
batman 发表于 2011-7-17 23:32


整理一个繁体字库.txt可以不?

TOP

批不是万能的。。。

有个字典还有可能实现。。。
***共同提高***

TOP

返回列表