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

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
1楼 跳转到 »
发表于 2015-11-8 23:21 | 显示全部帖子
楼主改为JS吧，让我学习下。
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
2楼
发表于 2015-11-9 00:46 | 显示全部帖子
回复 5# CrLf


    这好懒。求算法。
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

yu2n

Rank: 5Rank: 5

帖子
715 
积分
1298 
技术
151  
捐助
0  
注册时间
2012-11-1 
3楼
发表于 2015-11-9 10:03 | 显示全部帖子
本帖最后由 yu2n 于 2015-11-9 10:25 编辑

回复 7# CrLf

这个？
  1. 'StringCharset 文件名乱码纠正.vbs

  2. 'by yu2n 20151109

  3. 

  4. Msgbox StringCharset("D:\娴嬭瘯.rar", "utf-8", "gbk")  '输出：“D:\测试.rar”

  5. 

  6. Function StringCharset(str, CharsetFrom, CharsetTo)

  7. 	With CreateObject("ADODB.Stream")

  8. 		.Open

  9. 		.Type     = 2	'text

  10. 		.Position = 0

  11. 		.Charset  = CharsetTo

  12. 		.WriteText str

  13. 		.Flush

  14. 		.Position = 0

  15. 		.Charset  = CharsetFrom

  16. 		StringCharset = .ReadText

  17. 		.Close

  18. 	End With

  19. End Function
复制代码
『千江有水千江月』千江有水，月映千江；万里无云，万里青天。    http://yu2n.qiniudn.com/

TOP

返回列表