7,763
社区成员
发帖
与我相关
我的任务
分享
Dim strSrc As String, strTmp As String, strItem() As String, strAsc() As String, i As Long, j As Long
strSrc = "chichun=90*54&xx=90&yy=54&tempps1=&shuliang=1000&kuans=1&Pin_Cailiao=1&ysys=4&danshuang=1&hjg=%u5564%u5F02%u578B&hjg=%u8986%u4EAE%u819C&hjg=%u7279%u5149%u6C34%u80F6&"
If Right(strSrc, 1) = "&" Then strTmp = Left(strSrc, Len(strSrc) - 1)
strItem = Split(strTmp, "&")
For i = 0 To UBound(strItem)
If InStr(strItem(i), "%u") Then
strAsc = Split(strItem(i), "%u")
strItem(i) = strAsc(0)
For j = 1 To UBound(strAsc)
strItem(i) = strItem(i) & ChrW("&H" & strAsc(j))
Next j
End If
Debug.Print strItem(i)
Next i
结果chichun=90*54
xx=90
yy=54
tempps1=
shuliang=1000
kuans=1
Pin_Cailiao=1
ysys=4
danshuang=1
hjg=啤异型
hjg=覆亮膜
hjg=特光水胶