粘帖党专用+[Code].vbs

fastslz

1. '粘帖党专用.vbs
   
2. '剔除剪切板数据中每行右则多余空格字符
   
3. '剔除剪切板数据中多余换行符
   
4. '转换剪切板数据中Unix格式(CR)换行符为Windows(CR/LF)换行符。
   
5. Set oie = CreateObject("internetexplorer.application")
   
6. oie.Navigate("about:blank")
   
7. Do Until oie.ReadyState = 4 : WScript.Sleep 200 : Loop
   
8. vbstr = oie.Document.parentwindow.clipboarddata.getdata("text")
   
9. If UBound(Split(vbstr,vbLf,-1,0)) = 0 Then vbstr=Replace(vbstr, vbCr, vbCrLf)
   
10. If vbstr <> "" Then
    
11. ary = Split(vbstr,vbCrLf,-1)
    
12. For i = 0 To UBound(ary) - 1
    
13.         strOut = strOut & RTrim(ary(i)) & vbCrLf
    
14. Next
    
15. strOut = Replace(strOut,vbCrLf&vbCrLf&vbCrLf,vbCrLf)
    
16. strOut = Replace(strOut,vbCrLf&vbCrLf,vbCrLf)
    
17. oie.Document.parentwindow.clipboarddata.setdata "text", strOut
    
18. End If
    
19. oie.Quit
    
20. Set oie = Nothing

复制代码

1. 
   
2. '粘帖党专用+[Code].vbs
   
3. '剔除剪切板数据中每行右则多余空格字符
   
4. '剔除剪切板数据中多余换行符
   
5. '转换剪切板数据中Unix格式(CR)换行符为Windows(CR/LF)换行符。
   
6. '将剪切板数据Code括起来，方便论坛发贴
   
7. Set oie = CreateObject("internetexplorer.application")
   
8. oie.Navigate("about:blank")
   
9. Do Until oie.ReadyState = 4 : WScript.Sleep 200 : Loop
   
10. vbstr = oie.Document.parentwindow.clipboarddata.getdata("text")
    
11. If UBound(Split(vbstr,vbLf,-1,0)) = 0 Then vbstr=Replace(vbstr, vbCr, vbCrLf)
    
12. If vbstr <> "" Then
    
13. ary = Split(vbstr,vbCrLf,-1)
    
14. Lines = UBound(ary)
    
15. For i = 0 To Lines - 1
    
16.         If i = 0 Then strOut = "[code]" & vbCrLf
    
17.         strOut = strOut & RTrim(ary(i)) & vbCrLf
    
18.         If i = Lines - 1 Then strOut = strOut & Chr(91)&Chr(47)&"code]"  & vbCrLf
    
19. Next
    
20. strOut = Replace(strOut,vbCrLf&vbCrLf&vbCrLf,vbCrLf)
    
21. strOut = Replace(strOut,vbCrLf&vbCrLf,vbCrLf)
    
22. oie.Document.parentwindow.clipboarddata.setdata "text", strOut
    
23. End If
    
24. oie.Quit
    
25. Set oie = Nothing
    

复制代码

wwenyunkui

不好意思，没看明白，解释一下好吧