VB 解析一个文本文件，将第 1 列匹配到一个变量，将第 2 列传递给另一个变量

Question

我编写了一个脚本，该脚本将从程序中取出一个表格，并将其以 逗号分隔 文本文件的形式导出到本地驱动器。我需要的是一个脚本来读取文本文件。用户将从 Public Class Form 1 的文本框中输入一个字符串，然后将该字符串传递给 Public Class SpaceMenuClass 中的另一个 Sub。切换看起来不错，但我不知道如何解析文本文件（将第 1 列与字符串匹配，并存储该行中的第 2 列以传回SpacemenuClass）。我知道这可能看起来模棱两可，但希望有一定的意义。提前感谢任何人。

来自 Form1 类

Private Sub BtnPlano_Click_(sender As Object, e As EventArgs) Handles BtnPlano.Click
    If TxtBoxPlano.Text <> "" Then
        SpaceCommands.SearchPlano(TxtBoxPlano.Text)
    Else MessageBox.Show("Please Enter a Valid Planogram Name!")

    End If
    TxtBoxPlano.Clear()

End Sub

来自 SpaceMenuClass：

Public Sub SearchPlano(PlanoName As String)
    For Each Plano As Space.Planogram In SpacePlanning.ForPlanograms()
        SpacePlanning.SetActivePlanogram(Plano.Number - 1)
        'Go open the Searchplano table on the shared drive
        SpacePlanning.OpenTableChartView(AnalysisFileName:="\\SERVER1\JDA\Tables\SearchPlano.pst")
        'Export the table to a Tab Delimited Text file
        SpacePlanning.ExportTableData(ExportFileName:="C:\Temp\JDA\SearchPlano.txt", ExportMethod:=ExportMethod.CommaSeparated, UseCurrency:=False, UseQuotedStrings:=False, UseThousandsSeparator:=False)
        'Close the Table
        SpacePlanning.CloseTableChartView(AnalysisFileName:="\\SERVER1\JDA\Tables\SearchPlano.pst")
        ' Open the text file and parse it
        Dim str As System.IO.StreamReader = New System.IO.StreamReader(New System.IO.FileStream("C:\Temp\JDA\SearchPlano.txt", System.IO.FileMode.Open))
        Dim strline, arr(), Name, Nbr As String
        Try
 NextLine:
            strline = str.ReadLine
            arr = strline.Split(",")
            Name = arr(0)
            Nbr = arr(1)
            If Name = PlanoName Then
                SpacePlanning.SetActivePlanogram(Plano.Number = Nbr)
                GoTo Finish
            Else
                GoTo NextLine
            End If
        Catch
        End Try
    Next
Finish:
    My.Computer.FileSystem.DeleteFile("C:\Temp\JDA\SearchPlano.Txt")
End Sub

Answer 1

您打开文件进行阅读，然后在关闭之前尝试将其删除。这会引发异常。为避免这种情况，请将 StreamReader 包装在 Using 块中。 End Using 自动处理对象（为您关闭文件）。

Public Sub SearchPlano(planoName As String)
    For Each plano As Space.Planogram In SpacePlanning.ForPlanograms()
        SpacePlanning.SetActivePlanogram(plano.Number - 1)
        'Go open the Searchplano table on the shared drive
        SpacePlanning.OpenTableChartView(AnalysisFileName:="\\SERVER1\JDA\Tables\SearchPlano.pst")
        'Export the table to a Tab Delimited Text file
        SpacePlanning.ExportTableData(
            ExportFileName:="C:\Temp\JDA\SearchPlano.txt", ExportMethod:=ExportMethod.CommaSeparated,
            UseCurrency:=False, UseQuotedStrings:=False, UseThousandsSeparator:=False)
        'Close the Table
        SpacePlanning.CloseTableChartView(AnalysisFileName:="\\SERVER1\JDA\Tables\SearchPlano.pst")
        ' Open the text file and parse it
        Using str = New System.IO.StreamReader("C:\Temp\JDA\SearchPlano.txt")
            Dim arr(), name, nbr As String
            Do
                If str.EndOfStream Then
                    ' didn't find item!!!
                End If
                arr = str.ReadLine.Split(",")
                name = arr(0)
                nbr = arr(1)
            Loop Until name = planoName
            SpacePlanning.SetActivePlanogram(plano.Number = nbr)
        End Using
    Next
    My.Computer.FileSystem.DeleteFile("C:\Temp\JDA\SearchPlano.Txt")
End Sub

我还清理了您的循环并添加了对EndOfStream 的检查，以防您找不到匹配项（这也会引发异常）。

另外，将 StreamReader 更改为只打开文件。你有一个嵌套的 FileStream 对象，这需要另一个 Using 块，并且是不必要的。