VB抓取文本值并保存为变量

Question

我想知道是否有更快的方法来“搜索”一行文本字符串的一部分，并找到非静态值并将它们保存到变量？

例如，我不能真正使用Substring并搜索部分行，因为“”中的值永远不会是相同的长度。该文本文件的

示例部分，我读：

<I_Sect IDCode="20001" Description="This is desc" Quantity="1000" InclKind="Inc" /> 

的ID名称：IDCode Description Quantity and InclKind永远不会改变

值做出改变：20001 ... This is desc... etc

有没有更快的方式搜索“”之后，我做了一个子字符串来找到id名称，并抓住了“”之间的字符串是多久？

当前代码：

Dim list As New List(Of String)() 
Dim file As New System.IO.StreamReader(DisplayFile) 
While Not file.EndOfStream 
    Dim line As String = file.ReadLine() 
    list.Add(line) 
End While 
file.Close() 
Console.WriteLine("{0} lines read", list.Count) 
'RichTextBox1.Text = System.IO.File.ReadAllText(DisplayFile) 

For counter As Integer = 0 To list.Count 

    If list(counter).Substring(0, 7) = "<I_Sect" Then 
     'Do a substring of the line to see if I can locate Description ID string 

     ' ............. 

     Dim desc As String = ' .... [the valve I grab will be "This is desc"] 
    End If 

Next 

Answer 1

使用此XML文件

<?xml version="1.0" encoding="utf-8" ?> 
<root> 
    <I_SecMain> 
    <I_SecTop> 
     <I_SecBrac> 
     <I_Sect IDCode="20001" Description="This is desc 1" Quantity="10001" InclKind="Inc 1" /> 
     <I_Sect IDCode="20002" Description="This is desc 2" Quantity="10002" InclKind="Inc 2" /> 
     <I_Sect IDCode="20003" Description="This is desc 3" Quantity="10003" InclKind="Inc 3" /> 
     <I_Sect IDCode="20004" Description="This is desc 4" Quantity="10004" InclKind="Inc 4" /> 
     <I_Sect IDCode="20005" Description="This is desc 5" Quantity="10005" InclKind="Inc 5" /> 
     </I_SecBrac> 
    </I_SecTop> 
    </I_SecMain> 
</root> 

你可以定义你可以使用反序列化文件中的相应模型。

导入的命名空间

Imports System.Xml.Serialization 

型号

<XmlRoot("root")> 
Public Class Root 
    <XmlElement> 
    Public Property I_SecMain As I_SecMain 
End Class 

Public Class I_SecMain 
    <XmlElement> 
    Public Property I_SecTop As I_SecTop 
End Class 

Public Class I_SecTop 
    <XmlElement> 
    Public Property I_SecBrac As I_SecBrac 
End Class 

Public Class I_SecBrac 
    <XmlElement("I_Sect")> 
    Public Property I_Sects As List(Of I_Sect) 
End Class 

Public Class I_Sect 
    <XmlAttribute> 
    Public Property IDCode As Integer 
    <XmlAttribute> 
    Public Property Description As String 
    <XmlAttribute> 
    Public Property Quantity As Integer 
    <XmlAttribute> 
    Public Property InclKind As String 
End Class 

而且很简单的反序列化文件为强类型对象

Dim DisplayFile = "test.xml" 

Dim myRoot As Root 
Dim mySerializer As New XmlSerializer(GetType(Root)) 
Using fs As New FileStream(DisplayFile, FileMode.Open) 
    myRoot = mySerializer.Deserialize(fs) 
End Using 

可以遍历。

For Each isect In myRoot.I_SecMain.I_SecTop.I_SecBrac.I_Sects 
    Console.WriteLine(
     String.Format("ID Code: {0}, Description: {1}, Quantity: {2}, InclKind: {3}", 
         isect.IDCode, isect.Description, isect.Quantity, isect.InclKind)) 
Next 

从这里，它的准确定义你的模型（你没有张贴在你的问题），只是检索从反序列化对象的属性的问题。

使用序列化，写入文件也很简单，如果这是必需的。

Using fs As New FileStream(DisplayFile, FileMode.Open) 
    mySerializer.Serialize(fs, myRoot) 
End Using