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

dan5262

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

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

多谢.

broly

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

//保存我为 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

1. dir *.* |findstr "^[ -z][.]...$"

复制代码

ArdentMan

2# broly
实际上用u4e00-u9fa5区间来判断汉字是非常不准确的
其实在国内范围用判断字符高位是不是0x00的方法更为准确有效
见下面的代码示例：

1. 
   
2. Dim vbStr, Str, HexCode, OutStr1, OutStr2
   
3. '提取汉字
   
4. vbStr = "[精品展示]一个纯批处理备份&还原驱动"
   
5. For i = 1 To Len(vbStr)
   
6.   Str = Mid(vbStr, i, 1)
   
7.   If Ascb(Midb(Str, 2, 1)) <> 0 Then
   
8.     OutStr1 = OutStr1 & Str  
   
9.     HexCode = Hex(Ascb(Midb(Str, 2, 1))) & Hex(Ascb(Midb(Str, 1, 1)))
   
10.     If HexCode => "4e00" And HexCode <= "9fa5" Then OutStr2 = OutStr2 & Mid(vbStr, i, 1)
    
11.   End If
    
12. Next
    
13. MsgBox "高位判断法：" & OutStr1 & vbCrLf & "区间判断法："  & OutStr2
    

复制代码

ArdentMan

楼上大错特错
没注意<=>是区分大小写的还有高位为个位数的情况
证明这个区间判断法还是可以的
修改如下：

1. 
   
2. Dim vbStr, Str, HexCode, OutStr1, OutStr2
   
3. '提取汉字
   
4. vbStr = "[精品展示]一个纯批处理备份&还原驱动"
   
5. For i = 1 To Len(vbStr)
   
6.   Str = Mid(vbStr, i, 1)
   
7.   If Ascb(Midb(Str, 2, 1)) <> 0 Then
   
8.     OutStr1 = OutStr1 & Str  
   
9.     HexCode = Hex(Ascw(str))
   
10.     If HexCode => "4E00" And HexCode <= "9FA5" Then OutStr2 = OutStr2 & Mid(vbStr, i, 1)
    
11.   End If
    
12. Next
    
13. MsgBox "高位判断法：" & OutStr1 & vbCrLf & "区间判断法："  & OutStr2
    

复制代码