这种编码转换VB怎么写？？？

Question

人人分享数据里的一段{"action":"add","auth":99,"link":"http://www.56.com/u62/v_Njg4OTE4MTk.html","type":"10","shareId":"13313417524","shareid":"13313417524","shareUserId":"419819062","shareowner":"419819062","title":"职来职往选手李佳霖惹全场洒泪——很庆幸他遇到了好主持人，很庆幸他没有去非你莫属。","pic":"http://img.v157.56.com/images/21/16/love562012i56olo56i56.com_sc_133888251541hd.jpg?j=49640","fromno":"0","fromname":"","fromuniv":"","fromShareId":"13313417524","fromShareOwner":"419819062","albumid":"0","currenUserTinyurl":"http://head.xiaonei.com/photos/0/0/men_tiny.gif","preForwardComment":"//范忠敏:分享视频","forwardComment":"//范忠敏:分享视频","summary":"4号李佳霖-职来职往120602","noteId":"0","body":"","sendcomment":false}
这个是可阅读数据，下面是转换后的数据
post=%7B%22action%22%3A%22add%22%2C%22auth%22%3A99%2C%22link%22%3A%22http%3A%2F%2Fwww.56.com%2Fu62%2Fv_Njg4OTE4MTk.html%22%2C%22type%22%3A%2210%22%2C%22shareId%22%3A%2213313417524%22%2C%22shareid%22%3A%2213313417524%22%2C%22shareUserId%22%3A%22419819062%22%2C%22shareowner%22%3A%22419819062%22%2C%22title%22%3A%22%E8%81%8C%E6%9D%A5%E8%81%8C%E5%BE%80%E9%80%89%E6%89%8B%E6%9D%8E%E4%BD%B3%E9%9C%96%E6%83%B9%E5%85%A8%E5%9C%BA%E6%B4%92%E6%B3%AA%E2%80%94%E2%80%94%E5%BE%88%E5%BA%86%E5%B9%B8%E4%BB%96%E9%81%87%E5%88%B0%E4%BA%86%E5%A5%BD%E4%B8%BB%E6%8C%81%E4%BA%BA%EF%BC%8C%E5%BE%88%E5%BA%86%E5%B9%B8%E4%BB%96%E6%B2%A1%E6%9C%89%E5%8E%BB%E9%9D%9E%E4%BD%A0%E8%8E%AB%E5%B1%9E%E3%80%82%22%2C%22pic%22%3A%22http%3A%2F%2Fimg.v157.56.com%2Fimages%2F21%2F16%2Flove562012i56olo56i56.com_sc_133888251541hd.jpg%3Fj%3D49640%22%2C%22fromno%22%3A%220%22%2C%22fromname%22%3A%22%22%2C%22fromuniv%22%3A%22%22%2C%22fromShareId%22%3A%2213313417524%22%2C%22fromShareOwner%22%3A%22419819062%22%2C%22albumid%22%3A%220%22%2C%22currenUserTinyurl%22%3A%22http%3A%2F%2Fhead.xiaonei.com%2Fphotos%2F0%2F0%2Fmen_tiny.gif%22%2C%22preForwardComment%22%3A%22%2F%2F%E8%8C%83%E5%BF%A0%E6%95%8F%3A%E5%88%86%E4%BA%AB%E8%A7%86%E9%A2%91%22%2C%22forwardComment%22%3A%22%2F%2F%E8%8C%83%E5%BF%A0%E6%95%8F%3A%E5%88%86%E4%BA%AB%E8%A7%86%E9%A2%91%22%2C%22summary%22%3A%224%E5%8F%B7%E6%9D%8E%E4%BD%B3%E9%9C%96-%E8%81%8C%E6%9D%A5%E8%81%8C%E5%BE%80120602%22%2C%22noteId%22%3A%220%22%2C%22body%22%3A%22%22%2C%22sendcomment%22%3Afalse%7D&requestToken=-18954213&_rtk=ca9fc675
其实就是utf版的URLDecode/URLencode,可是百度网上的那些代码全是错的，没一个对的！到底应该怎么写，要2个互相都能转换的

Answer 1

UnicodetoUtf8编解码。
解码的自己改写下，遇到未编码的跳过。

Answer 2

仅供参考Private Declare Function MultiByteToWideChar Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long) As Long
Private Declare Function WideCharToMultiByte Lib "kernel32" (ByVal CodePage As Long, ByVal dwFlags As Long, ByVal lpWideCharStr As Long, ByVal cchWideChar As Long, ByRef lpMultiByteStr As Any, ByVal cchMultiByte As Long, ByVal lpDefaultChar As Long, ByVal lpUsedDefaultChar As Long) As Long
'常用的代码页：
const cpUTF8   =65001
const cpGB2312 =  936
const cpGB18030=54936
const cpUTF7   =65000
Function MultiByteToUTF16(UTF8() As Byte, CodePage As Long) As String
    Dim bufSize As Long
    bufSize = MultiByteToWideChar(CodePage, 0&, UTF8(0), UBound(UTF8) + 1, 0, 0)
    MultiByteToUTF16 = Space(bufSize)
    MultiByteToWideChar CodePage, 0&, UTF8(0), UBound(UTF8) + 1, StrPtr(MultiByteToUTF16), bufSize
End FunctionFunction UTF16ToMultiByte(UTF16 As String, CodePage As Long) As Byte()
    Dim bufSize As Long
    Dim arr() As Byte
    bufSize = WideCharToMultiByte(CodePage, 0&, StrPtr(UTF16), Len(UTF16), 0, 0, 0, 0)
    ReDim arr(bufSize - 1)
    WideCharToMultiByte CodePage, 0&, StrPtr(UTF16), Len(UTF16), arr(0), bufSize, 0, 0
    UTF16ToMultiByte = arr
End FunctionPrivate Sub Command1_Click()
    MsgBox MultiByteToUTF16(UTF16ToMultiByte("ab中,c", cpUTF8), cpUTF8)
End Sub

Answer 3

谢谢，搞定了，不过还是很纳闷，这到底什么编码啊，为什么感觉和一般的utf不象？

Answer 4

http://blog.csdn.net/chenjl1031/article/details/6059767