Board logo

标题: [原创] 用VBS实现urlencode（UTF-8 ANSI） [打印本页]
作者: Demon    时间: 2011-6-1 20:00     标题: 用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. 

  5. Function urlencode(str)

  6.     Dim i,c,s,length

  7.     length = Len(str)

  8.     For i = 1 To length

  9.         s = Mid(str,i,1)

  10.         c = "&H" & Hex(AscW(Mid(str,i,1)))

  11.         If ( c >= AscW("A") And c <= AscW("Z") ) Or _

  12.             ( c >= AscW("a") And c <= AscW("z") ) Or _

  13.             ( c >= AscW("0") And c <= AscW("9") ) Or _

  14.             ( c = AscW("-") Or c = AscW("_") Or c = AscW(".") ) Then

  15.             urlencode = urlencode & s

  16.         ElseIf c = AscW(" ") Then

  17.             urlencode = urlencode & "+"

  18.         Else

  19.             If c >= &H0001 And c <= &H007F Then

  20.                 urlencode = urlencode & s

  21.             ElseIf c > &H07FF Then

  22.                 urlencode = urlencode & "%" & Hex(&HE0 Or (c\(2^12) And &H0F))

  23.                 urlencode = urlencode & "%" & Hex(&H80 Or (c\(2^6) And &H3F))

  24.                 urlencode = urlencode & "%" & Hex(&H80 Or (c\(2^0) And &H3F))

  25.             Else

  26.                 urlencode = urlencode & "%" & Hex(&HC0 Or (c\(2^6) And &H1F))

  27.                 urlencode = urlencode & "%" & Hex(&H80 Or (c\(2^0) And &H3F))

  28.             End If

  29.         End If

  30.     Next

  31. End Function

  32. 

  33. WScript.Echo urlencode("知道")
复制代码
ANSI版
  1. 'Date: 2010/6/18

  2. 'Author: Demon

  3. 'Website: http://demon.tw

  4. 

  5. Function urlencode(str)

  6. 	Dim i,c,s,length

  7. 	length = Len(str)

  8. 	For i = 1 To length

  9. 		s = Mid(str,i,1)

  10. 		c = Asc(Mid(str,i,1))

  11. 		If ( c >= Asc("A") And c <= Asc("Z") ) Or _

  12. 			( c >= Asc("a") And c <= Asc("z") ) Or _

  13. 			( c >= Asc("0") And c <= Asc("9") ) Or _

  14. 			( c = Asc("-") Or c = Asc("_") Or c = Asc(".") ) Then

  15. 			urlencode = urlencode & s

  16. 		ElseIf c = Asc(" ") Then

  17. 			urlencode = urlencode & "+"

  18. 		Else

  19. 			urlencode = urlencode & "%" & Left(Hex(c),2)

  20. 			urlencode = urlencode & "%" & Right(Hex(c),2)			

  21. 		End If

  22. 	Next

  23. End Function

  24. 

  25. WScript.Echo urlencode("知道")
复制代码
作者: Demon    时间: 2011-6-1 20:01

参数都是VBS字符串
作者: wenlibin02    时间: 2012-7-5 19:52

Thanks a lot.



欢迎光临 批处理之家 (http://bbs.bathome.net/) Powered by Discuz! 7.2