以文本方式查看主题

-  Foxtable(狐表)  (http://foxtable.com/bbs/index.asp)
--  专家坐堂  (http://foxtable.com/bbs/list.asp?boardid=2)
----  请教这样的字符串如何转为汉字  (http://foxtable.com/bbs/dispbbs.asp?boardid=2&id=187647)
--  作者：rogen
--  发布时间：2023/8/1 15:48:00
--  请教这样的字符串如何转为汉字
请教，网站返回数据里这种格式的，如何转为文字？

"FlightArrAirport":"\\u53a6\\u95e8\\u9ad8\\u5d0e"
--  作者：有点蓝
--  发布时间：2023/8/1 15:53:00
--  
如果是json数据，直接解析即可，不需要转换

Dim v As String = "{""FlightArrAirport"":""\\u53a6\\u95e8\\u9ad8\\u5d0e""}"
Dim jo As JObject = JObject.Parse(v)
Output.Show(jo.ToString)
--  作者：chen37280600
--  发布时间：2023/8/1 16:19:00
--  
他是问怎么转汉字，不是问json读取，我帮你问了chatgpt

在VB.NET中，字符串"\\u53a6\\u95e8\\u9ad8\\u5d0e"表示Unicode转义序列，它包含了4个Unicode码点，分别代表汉字"台门高岛"。您可以使用`System.Text.RegularExpressions.Regex.Unescape`方法来将这些Unicode转义序列还原为相应的汉字。

以下是将"\\u53a6\\u95e8\\u9ad8\\u5d0e"转化为汉字的VB.NET代码示例：

```vb.net
Imports System.Text.RegularExpressions

Module Module1
    Sub Main()
        Dim inputString As String = "\\u53a6\\u95e8\\u9ad8\\u5d0e"
        Dim unescapedString As String = Regex.Unescape(inputString)
        Console.WriteLine(unescapedString)
    End Sub
End Module
```

运行此代码，输出将会是："台门高岛"，将转义序列还原为了对应的汉字。
--  作者：chen37280600
--  发布时间：2023/8/1 16:20:00
--  
狐表代码：
Dim inputString As String = "\\u53a6\\u95e8\\u9ad8\\u5d0e"
Dim unescapedString As String = Regex.Unescape(inputString)
Output.Show(unescapedString)

结果：厦门高崎