分析特定单词VB.NET后的文本文件

Question

我有一个模块应用程序，它读取文本文件并查找其中包含特定单词的行。

我的输入看起来像这个

 Dealer Number: 90402001
 Dealer Name: SAN TAN FORD     
 Contract Number: 7466564   
 OverRide Class:       
 Contract Code: 3417620
 Portal Claim#: 148905
 Dealer Number: 90402001
 Dealer Name: SAN TAN FORD     
 Contract Number: 7679454   
 OverRide Class:       
 Contract Code: 3762406
 Portal Claim#: 149325
 Dealer Number: 90416003
 Dealer Name: CAR TOWN KIA     
 Contract Number: DG209507  
 OverRide Class:       
 Contract Code: 3110169
 Portal Claim#: 134550
 Dealer Number: 90430005
 Dealer Name: RICH FORD     
 Contract Number: 7380708   
 OverRide Class:       
 Contract Code: 3130744
 Portal Claim#: 148537

我的输出如下

 Dealer Name: SAN TAN FORD     Contract Number: 7466564
 Dealer Name: SAN TAN FORD     Contract Number: 7679454
 Dealer Name: RICH FORD        Contract Number: 7380708

我现在所需要做的就是抓取"数字："之后的文本

这是我迄今为止拥有的

 Imports System.IO
 Module Module1
Sub Main()
    Dim str
    Dim fileName = "C:UsersusernameDesktoptextfile.txt"
    Dim lines() = File.ReadAllLines(fileName)
    For i = 0 To lines.Length - 1
        If lines(i).Contains("SAN TAN FORD") Then
            Str = String.Format("{0}{1}", lines(i), lines(i + 1))
            Console.WriteLine(str)
        ElseIf lines(i).Contains("RICH FORD") Then
            Str = String.Format("{0}{1}", lines(i), lines(i + 1))
            Console.WriteLine(str)
        End If
    Next
End Sub
 End Module

我在想有什么像线条一样的东西？所以它会有点像

 text = lines(i).after("Number:")
 Console.writeline(text)

这会给我

 7466564
 7679454
 7380708

想法？

Answer 1

有几种不同的方法可以做这样的事情。可以使用IndexOf和SubString查找和提取所需的字符串部分。您可以使用Regex类来查找和读取匹配的值，或者，可能最简单的是，您可以只使用Split方法。如果您认为字符串"Number: "是其他两个字符串之间的分隔符，那么您可以使用Split来获取该分隔符之前和之后的字符串。例如：

Dim input As String = "Contract Number: 7380708"
Dim parts() As String = input.Split("Number: ")
Console.WriteLine(parts(0))  ' Outputs "Contract "
Console.WriteLine(parts(1))  ' Outputs "7380708"

Answer 2

没有"after"函数，但您可以使用的拆分或索引进行类似操作

    Dim input, output As String
    input = "Contract Number: 7466564"
    ' With trim
    output = input.Split(":")(1).Trim()
    Console.WriteLine(output)
    ' With index of
    output = input.Substring(input.IndexOf("Contract Number:") + "Contract Number:".Length).Trim()
    Console.WriteLine(output)