以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.net/bbs/index.asp)
--  专家坐堂  (http://foxtable.net/bbs/list.asp?boardid=2)
----  这种ASCII码要怎么转  (http://foxtable.net/bbs/dispbbs.asp?boardid=2&id=189635)

--  作者:zhenghangbo
--  发布时间:2023/12/13 9:55:00
--  这种ASCII码要怎么转
     这种\\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编辑过]

--  作者:有点蓝
--  发布时间:2023/12/13 10:53:00
--  
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)

--  作者:zhenghangbo
--  发布时间:2023/12/13 11:50:00
--  
正确,厉害