批处理新手入门导读[视频教程]批处理基础视频教程[视频教程]VBS基础视频教程
[批处理文件精品]批处理版照片整理器[批处理文件精品]纯批处理备份&还原驱动在线第三方下载
返回列表 发帖

[原创] 用VBS实现urlencode(UTF-8 ANSI)

今天有个《批处理怎样把文本的字符串编码化urlencode?》的帖子,里面有人回复了个VBS版的urlencode,但是那个是ANSI版的,别人要的是UTF-8版的。

很久很久以前写过,发上来,虽然不会有人看。

UTF-8版
  1. 'Date: 2010/6/18
  2. 'Author: Demon
  3. 'Website: http://demon.tw
  4. Function urlencode(str)
  5.     Dim i,c,s,length
  6.     length = Len(str)
  7.     For i = 1 To length
  8.         s = Mid(str,i,1)
  9.         c = "&H" & Hex(AscW(Mid(str,i,1)))
  10.         If ( c >= AscW("A") And c <= AscW("Z") ) Or _
  11.             ( c >= AscW("a") And c <= AscW("z") ) Or _
  12.             ( c >= AscW("0") And c <= AscW("9") ) Or _
  13.             ( c = AscW("-") Or c = AscW("_") Or c = AscW(".") ) Then
  14.             urlencode = urlencode & s
  15.         ElseIf c = AscW(" ") Then
  16.             urlencode = urlencode & "+"
  17.         Else
  18.             If c >= &H0001 And c <= &H007F Then
  19.                 urlencode = urlencode & s
  20.             ElseIf c > &H07FF Then
  21.                 urlencode = urlencode & "%" & Hex(&HE0 Or (c\(2^12) And &H0F))
  22.                 urlencode = urlencode & "%" & Hex(&H80 Or (c\(2^6) And &H3F))
  23.                 urlencode = urlencode & "%" & Hex(&H80 Or (c\(2^0) And &H3F))
  24.             Else
  25.                 urlencode = urlencode & "%" & Hex(&HC0 Or (c\(2^6) And &H1F))
  26.                 urlencode = urlencode & "%" & Hex(&H80 Or (c\(2^0) And &H3F))
  27.             End If
  28.         End If
  29.     Next
  30. End Function
  31. WScript.Echo urlencode("知道")
复制代码
ANSI版
  1. 'Date: 2010/6/18
  2. 'Author: Demon
  3. 'Website: http://demon.tw
  4. Function urlencode(str)
  5. Dim i,c,s,length
  6. length = Len(str)
  7. For i = 1 To length
  8. s = Mid(str,i,1)
  9. c = Asc(Mid(str,i,1))
  10. If ( c >= Asc("A") And c <= Asc("Z") ) Or _
  11. ( c >= Asc("a") And c <= Asc("z") ) Or _
  12. ( c >= Asc("0") And c <= Asc("9") ) Or _
  13. ( c = Asc("-") Or c = Asc("_") Or c = Asc(".") ) Then
  14. urlencode = urlencode & s
  15. ElseIf c = Asc(" ") Then
  16. urlencode = urlencode & "+"
  17. Else
  18. urlencode = urlencode & "%" & Left(Hex(c),2)
  19. urlencode = urlencode & "%" & Right(Hex(c),2)
  20. End If
  21. Next
  22. End Function
  23. WScript.Echo urlencode("知道")
复制代码
2

评分人数

    • rzzm: 初学脚本,发现国内外vbs玩得最溜的就是你了 ...技术 + 1
    • tmplinshi: 感谢分享技术 + 1

Thanks a lot.

TOP

参数都是VBS字符串

TOP

返回列表