这种\x跟\u的字符要怎么转成中文 ，\x应该是 ASCII码 ，\u应该是Unicode <CD>layoutSlip('\x7Btital\x3A\x222023\u5E74\x2011\u6708\x3B\u6D59\u6C5F\u7A7A\u6E2F\u6570\u5B57\u79D1\u6280\u6709\u9650\u516C\u53F8\x3B\u6570\u79D1\u516C\u53F8\u676D\u5DDE\u673A\u573A\u5458\u5DE5\u6708\u85AA\u524D\u65B9\u6848\x3B\x28\u4EBA\u6C11\u5E01\x29\x22,length\x3A\x2210\x22,\x20detail\x3A\x7Bitem0\x3A\x20\x7Bname\x3A\x22\u4EBA\u5458\u7F16\u7801\x22,type\x3A\x220\x22,value\x3A\x22A03783\x22\x7D,item1\x3A\x20\x7Bname\x3A\x22\u59D3\u540D\x22
[此贴子已经被作者于2023/12/13 11:55:24编辑过]
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)