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

Rank: 1

帖子
27 
积分
36 
技术
0  
捐助
0  
注册时间
2011-4-12 
1楼 跳转到 » 正序看帖
打印
tT
发表于 2011-7-17 21:38 | 只看该作者

[已解决]批处理怎样提取出文件名不含汉字的word?

本帖最后由 dan5262 于 2011-7-17 22:47 编辑

文件夹下有2000个word, 文件名称包括汉字 数字 字母 标点, 不标准.

怎样把所有文件名不含汉字的的word统统提取到另一个文件夹?

多谢.
1

评分人数

    • broly: 感谢给帖子标题标注[已解决]字样PB + 2
收藏 分享

ArdentMan

Rank: 5Rank: 5

帖子
288 
积分
924 
技术
70  
捐助
0  
注册时间
2011-7-1 
6楼
发表于 2011-7-18 21:42 | 只看该作者
楼上大错特错
没注意<=>是区分大小写的还有高位为个位数的情况
证明这个区间判断法还是可以的
修改如下：
  1. Dim vbStr, Str, HexCode, OutStr1, OutStr2

  2. '提取汉字

  3. vbStr = "[精品展示]一个纯批处理备份&还原驱动"

  4. For i = 1 To Len(vbStr)

  5.   Str = Mid(vbStr, i, 1)

  6.   If Ascb(Midb(Str, 2, 1)) <> 0 Then

  7.     OutStr1 = OutStr1 & Str  

  8.     HexCode = Hex(Ascw(str))

  9.     If HexCode => "4E00" And HexCode <= "9FA5" Then OutStr2 = OutStr2 & Mid(vbStr, i, 1)

  10.   End If

  11. Next

  12. MsgBox "高位判断法：" & OutStr1 & vbCrLf & "区间判断法："  & OutStr2
复制代码
1

评分人数

一路飘过的鸟~~~

TOP

ArdentMan

Rank: 5Rank: 5

帖子
288 
积分
924 
技术
70  
捐助
0  
注册时间
2011-7-1 
5楼
发表于 2011-7-18 20:35 | 只看该作者
2# broly
实际上用u4e00-u9fa5区间来判断汉字是非常不准确的
其实在国内范围用判断字符高位是不是0x00的方法更为准确有效
见下面的代码示例：
  1. Dim vbStr, Str, HexCode, OutStr1, OutStr2

  2. '提取汉字

  3. vbStr = "[精品展示]一个纯批处理备份&还原驱动"

  4. For i = 1 To Len(vbStr)

  5.   Str = Mid(vbStr, i, 1)

  6.   If Ascb(Midb(Str, 2, 1)) <> 0 Then

  7.     OutStr1 = OutStr1 & Str  

  8.     HexCode = Hex(Ascb(Midb(Str, 2, 1))) & Hex(Ascb(Midb(Str, 1, 1)))

  9.     If HexCode => "4e00" And HexCode <= "9fa5" Then OutStr2 = OutStr2 & Mid(vbStr, i, 1)

  10.   End If

  11. Next

  12. MsgBox "高位判断法：" & OutStr1 & vbCrLf & "区间判断法："  & OutStr2
复制代码
一路飘过的鸟~~~

TOP

mxxcgzxxx

Rank: 5Rank: 5

帖子
327 
积分
755 
技术
38  
捐助
0  
注册时间
2011-3-17 
4楼
发表于 2011-7-18 07:35 | 只看该作者 
  1. dir *.* |findstr "^[ -z][.]...$"
复制代码
1

评分人数

世界上没有学不会的知识,也没有想得到却做不到的事!

TOP

dan5262

Rank: 1

帖子
27 
积分
36 
技术
0  
捐助
0  
注册时间
2011-4-12 
3楼
发表于 2011-7-17 22:46 | 只看该作者
//保存我为 GetSomeDoc.js  并在文件目录下运行

var fso,folder,fc,newFolder;
var re,strFilename,strExtname;

fso = new ActiveXObject("Scripting.FileSystemObject");
if( !fso.FolderExists("不含中文" ...
broly 发表于 2011-7-17 22:25


斑竹很给力,测试成功.谢谢.

TOP

broly

Rank: 7Rank: 7Rank: 7

帖子
881 
积分
2103 
技术
95  
捐助
55  
注册时间
2010-5-23 
2楼
发表于 2011-7-17 22:25 | 只看该作者 
  1. //保存我为 GetSomeDoc.js  并在文件目录下运行

  2. 

  3. var fso,folder,fc,newFolder;

  4. var re,strFilename,strExtname;

  5. 

  6. fso = new ActiveXObject("Scripting.FileSystemObject");

  7. if( !fso.FolderExists("不含中文") ) {

  8. 	folder = fso.CreateFolder("不含中文");

  9. 	newFolder = folder.Path + "\\" ;

  10. } else {

  11. 	newFolder = "不含中文" + "\\";

  12. }

  13. 

  14. folder = fso.GetFolder(".");  //获得当前目录

  15. fc = new Enumerator(folder.files);  //枚举目录的文件

  16. 

  17. 

  18. re = new RegExp(".*[\u4e00-\u9fa5]+.*","i");

  19. 

  20. for (; !fc.atEnd(); fc.moveNext())

  21. {

  22. 	strExtname = fso.GetExtensionName(fc.item()).toLowerCase();

  23. 	if( strExtname=="doc" || strExtname=="docx" )

  24. 	{

  25. 		if( re.test(fso.GetBaseName(fc.item())) )

  26. 			fso.MoveFile(fso.GetAbsolutePathName(fc.item()),newFolder);

  27. 	}

  28. }

  29. 

  30. WScript.Echo("保存在当前的《不含中文》目录下");
复制代码
1

评分人数

---学无止境---

TOP

返回列表