TC官方合作论坛

标题: 恳求大神帮我将源码转成COM插件 [打印本页]

---

作者: fdk3r6b    时间: 2012-11-3 12:38
标题: 恳求大神帮我将源码转成COM插件

1. Set objArgs = WScript.Arguments
   
2.        For I = 0 To objArgs.Count - 1
   
3.          FileUrl = objArgs(I)
   
4.          Call WriteToFile(FileUrl, ReadFile(FileUrl, "UTF-8"), "Unicode")
   
5.        Next
   
6. Function ReadFile(FileUrl, CharSet)
   
7. Dim Str
   
8. Set stm = CreateObject("Adodb.Stream")
   
9. stm.Type = 2
   
10. stm.mode = 3
    
11. stm.charset = CharSet
    
12. stm.Open
    
13. stm.loadfromfile FileUrl
    
14. Str = stm.readtext
    
15. stm.Close
    
16. Set stm = Nothing
    
17. ReadFile = Str
    
18. End Function
    
19. 
    
20. Function WriteToFile (FileUrl, Str, CharSet)
    
21. Set stm = CreateObject("Adodb.Stream")
    
22. stm.Type = 2
    
23. stm.mode = 3
    
24. stm.charset = CharSet
    
25. stm.Open
    
26. stm.WriteText Str
    
27. stm.SaveToFile FileUrl, 2
    
28. stm.flush
    
29. stm.Close
    
30. Set stm = Nothing
    
31. End Function

复制代码

由于一些因素，需要转换编码这是网站上抓的 (http://younglab.blog.51cto.com/416652/252990)
他需要另外用BAT调用
恳求大神会VB的，帮个忙转成DLL调用

拜托拜托

---

作者: slz336    时间: 2014-8-26 11:42
支持下,必须顶啦`

---

欢迎光临 TC官方合作论坛 (http://bbs.52tc.co/)

Powered by Discuz! X3.1