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

现在我需要做的就是在＆＃34; Number：＆＃34;

之后抓取文字

这是我到目前为止所拥有的

 Imports System.IO

 Module Module1

Sub Main()

    Dim str
    Dim fileName = "C:\Users\username\Desktop\textfile.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

我觉得有一些像line.after？所以它会像

 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

＆＃34;之后没有＆＃34;＆＃34;功能，但您可以使用split或indexof

执行类似的操作

    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)

在特定单词VB.NET之后解析文本文件

2 个答案: