Board logo

标题: [已解决]批处理怎样提取出文件名不含汉字的word? [打印本页]
作者: dan5262    时间: 2011-7-17 21:38     标题: [已解决]批处理怎样提取出文件名不含汉字的word?

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

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

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

多谢.
作者: broly    时间: 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("保存在当前的《不含中文》目录下");
复制代码
作者: dan5262    时间: 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


斑竹很给力,测试成功.谢谢.
作者: mxxcgzxxx    时间: 2011-7-18 07:35

  1. dir *.* |findstr "^[ -z][.]...$"
复制代码
作者: ArdentMan    时间: 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
复制代码
作者: ArdentMan    时间: 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
复制代码




欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2