VB读取分​​隔文本文件阵列

Question

我有一个由管道分隔的文本文件。我想读第五管道的价值，但我不知道如何做到这一点。我所能做的就是读取数组的每一部分。找不到这方面的例子。

EPD|TR2999-01G|SEMI, TRANS, P-CH, SEL|ACTIVE|PS.COE.6|SCS|SCREENEDCOMPONENTS|EPP|Buy|6.237|916.839|147||181|||CCACOE||PS.777.||150||                                
    EPD|TR2309-01G|SEMI, TRANS, P-CH, SEL|ACTIVE|PS.COE.6|SCS|SCREENED COMPONENTS|EPP|Buy|6.237|193.347|31||181|||777||PS.777.||150|| 

Answer 1

该示例在它使用具有这些两行的文本文件：

线路1： EPD | TR2999-01G | SEMI，TRANS，P-CH，SEL | ACTIVE | PS .COE.6 | SCS |屏蔽组件| EPP |购买| 6.237 | 916.839 | 147 || 181 ||| CCACOE || PS.777。| | 150 ||

线路2： EPD | TR2309-01G | SEMI，TRANS，P-CH，SEL |活动| PS.COE.6 | SCS |屏蔽部件| EPP |购买| 6.237 | 193.347 | 31 || 181 | || || 777 PS.777。|| || 150

Private Sub Button1_Click(sender As Object, e As EventArgs) Handles Button1.Click 
    Dim fp as string = "" 'enter the full path to your file here 
    Dim value as string = GetValueForPart(fp, Me.TextBox1.Text) 
    MsgBox(value) 'in this example, value is set to "6.237" when textbox input is "TR2999-01G" 
End Sub 

Private Function GetValueForPart(ByVal filepath As String, ByVal SearchPartNum As String) As String 
    If Not File.Exists(filepath) Then Return Nothing 
    If SearchPartNum Is Nothing OrElse SearchPartNum.Trim = "" Then Return Nothing 
    Dim ret As String = Nothing 
    Using sr As New StreamReader(filepath) 
     Do While sr.Peek >= 0 
      Dim line() As String = sr.ReadLine.Split(CChar("|")) 
      If line IsNot Nothing AndAlso line.Count >= 5 Then 
       If line(1).Equals(SearchPartNum) Then 
        ret = line(9) 
        Exit Do 
       End If 
      End If 
     Loop 
    End Using 
    Return ret 
End Function 

我只是测试这一点，所有你需要做的是进入第二行的完整文件路径