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. var fso,folder,fc,newFolder;
  3. var re,strFilename,strExtname;
  4. fso = new ActiveXObject("Scripting.FileSystemObject");
  5. if( !fso.FolderExists("不含中文") ) {
  6. folder = fso.CreateFolder("不含中文");
  7. newFolder = folder.Path + "\\" ;
  8. } else {
  9. newFolder = "不含中文" + "\\";
  10. }
  11. folder = fso.GetFolder(".");  //获得当前目录
  12. fc = new Enumerator(folder.files);  //枚举目录的文件
  13. re = new RegExp(".*[\u4e00-\u9fa5]+.*","i");
  14. for (; !fc.atEnd(); fc.moveNext())
  15. {
  16. strExtname = fso.GetExtensionName(fc.item()).toLowerCase();
  17. if( strExtname=="doc" || strExtname=="docx" )
  18. {
  19. if( re.test(fso.GetBaseName(fc.item())) )
  20. fso.MoveFile(fso.GetAbsolutePathName(fc.item()),newFolder);
  21. }
  22. }
  23. 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://www.bathome.net/) Powered by Discuz! 7.2