Question

欢迎，我有一个指定格式的文本文件，如下所示：

"King": {
  "name": "Jack",
  "Age": "23",
  "ID": "001",
},

"Queen": {
  "name": "Lory",
  "Age": "19",
  "ID": "002",
  "Pass": "955",
},

如何阅读{至},的“国王” 并检查文本是否包含"Pass"或否。

以及如何替换"Age"的{{1}}因为当我这样做时，每个King字都会被替换。

任何帮助将不胜感激＆安培;对不起我的小话。

Answer 1

Thas似乎是一个JSON文件，因此使用JSON解析器（如JSON.NET）加载文件，解析并修改它。

例如

（我们必须打一点因为你的数据没有“包含”{}，所以我们在解析它时添加它们，并在序列化时将它们删除）

' Adding a containing { }
Dim parsed As JObject = JObject.Parse("{ " & json & " }")
Dim king As JObject = DirectCast(parsed("King"), JObject)

king("Age") = 30

Dim pass As JToken

If king.TryGetValue("Pass", pass) Then
    ' has pass
End If

Dim json2 As String = JsonConvert.SerializeObject(parsed, Formatting.Indented)

' Now we remove the first and last { }
Dim ix As Integer = json2.IndexOf(ControlChars.Lf) + 1
Dim lastix As Integer = json2.LastIndexOf(ControlChars.Cr)

' The final text
Dim json3 As String = json2.Substring(ix, lastix - ix)

从指定字符串读取txt文件到指定字符串

1 个答案: