Dim s1 As String = "\x7Btital\x3A\x222023\u5E74\x2011\u6708\x3B\u6D59\u6C5F\u7A7A\......"
Dim bu As New StringBuilder
Dim ss() As String = s1.Split("\")
For i As Integer = 1 To ss.Length - 1
Dim s As String = ss(i)
If s.StartsWith("x") Then
Dim s2 As String = s.Substring(0, 3)
Dim s3 As String = s.Substring(3)
bu.Append(Encoding.ASCII.GetString({HexToDec(s2.Trim("x"))}))
bu.Append(s3)
ElseIf s.StartsWith("u") Then
bu.Append(Regex.Unescape("\" & s))
Else
bu.Append(s)
End If
Next
Output.Show(bu.ToString)
加好友 
发短信
Post By：2023/12/13 9:55:00 [只看该作者]
