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

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

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

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

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

多谢.
1

评分人数

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

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

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

  1. dir *.* |findstr "^[ -z][.]...$"
复制代码
1

评分人数

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

TOP

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

  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("保存在当前的《不含中文》目录下");
复制代码
1

评分人数

---学无止境---

TOP

返回列表