a =split("\7F57\83B1 Q747\604B\604B\65F6\5149-\5929\4E1D\00AE\590D\5408\6BEF","\") '罗莱 Q747恋恋时光-天丝®复合毯
For i=1 To UBound(a)
str = str & Decode(a(i))
Next
MsgBox str
Public Function Decode(strDecode)
Dim i
Dim strCode
Dim chrTmp
If Len(strDecode)>=4 Then
strCode = Mid(strDecode, 1, 4)
chrTmp = ChrW("&H" & strCode)
d = d & chrTmp
If Len(strDecode)>4 Then
Decode=d & Mid(strDecode, 5, Len(strDecode)-4)
Else
Decode=d
End if
End if
' For i = 1 To Len(strDecode) Step 4
' strCode = Mid(strDecode, i, 4)
' chrTmp = ChrW("&H" & strCode)
'If chrTmp = "?" Then If strCode <> "003F" Then GoTo ErrProc
' d = d & chrTmp
' Next
' Decode=d
End Function
vbs 解码 unicode
最新推荐文章于 2024-07-09 13:55:41 发布