1、Microsoft Visual 添加模块
2、添加函数
- Function ChW(t)
- If InStr(t, "\u") Then
- s = Split(t, "\u")
- For i = 0 To UBound(s)
- If Len(s(i)) > 3 Then
- ChW = ChW & ChrW("&H" & Left(s(i), 4)) & Mid(s(i), 5)
- Else
- ChW = ChW & s(i)
- End If
- Next
- Else
- For i = 1 To Len(t)
- s = AscW(Mid(t, i, 1))
- If s > 0 And s < 255 Then
- ChW = ChW & Mid(t, i, 1)
- Else
- ChW = ChW & "\u" & LCase(Hex(s))
- End If
- Next
- End If
- End Function
- ゥゥ…………
3、解析数据
联系客服