[新手上路]批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程[批处理精品]批处理版照片整理器
[批处理精品]纯批处理备份&还原驱动[批处理精品]CMD命令50条不能说的秘密[在线下载]第三方命令行工具[在线帮助]VBScript / JScript 在线参考
返回列表 发帖
没搞太懂,是删除 . 后面所有的汉字?还是最后的非汉字后面的汉字?

TOP

test.vbs
  1. Dim fso
  2. Set fso = CreateObject("Scripting.FileSystemObject")
  3. Set ThisFolder=fso.GetFolder(".")
  4. For Each file In thisfolder.Files
  5. FileBaseName=fso.GetBaseName(File.Name)
  6. FileExtName=fso.GetExtensionName(File.Name)
  7. [判断] = True
  8. While [判断]
  9. If Clng("&H" & Hex(Asc(Right(FileBaseName,1)))) > 255 Then
  10. FileBaseName=Left(FileBaseName,Len(FileBaseName)-1)
  11. Else
  12. [判断]=False
  13. End If
  14. Wend
  15. fso.MoveFile file.Path,file.ParentFolder&"\"&FileBaseName&"."&FileExtName
  16. Next
复制代码
1

评分人数

TOP

回复 11# 172043209


    测试下我的,存为test.vbs

TOP

回复 14# 172043209


    ……尴尬了,原来是文件夹

TOP

回复 19# pcl_test


    原来unicode 4e00-9fa5是汉字的范围啊……
直接干掉所有双字节字符的路过……
1

评分人数

    • taofan712: 据说有些特殊符号也是双字节,大括号技术 + 1

TOP

返回列表