ID番号を検索するTextFile vb.net

Question

これは私が行う必要がある、私はopenfileボタンをクリックし、openfileダイアログボックスを表示します。私はテキストファイルを開き、それはIDボックス番号のためにそのファイルを検索し、IDbox.textフィールドに表示したいと同時に、informationbox.textフィールドに表示されます。 他のフォーラムを検索しましたが、の方法や他の方法についてはわかりません。あまりにも混乱します。

これは私がこれまで持っているものである - テキストファイルの

Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click 
    Dim oReader As StreamReader 
    OpenFileDialog1.CheckFileExists = True 
    OpenFileDialog1.CheckPathExists = True 
    OpenFileDialog1.DefaultExt = "txt" 
    OpenFileDialog1.FileName = "" 
    OpenFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*" 
    OpenFileDialog1.Multiselect = False 
    If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then 
     oReader = New StreamReader(OpenFileDialog1.FileName, True) 
     InformationBox.Text = oReader.ReadToEnd 
     My.Forms.Home.TextBox5.AppendText(Environment.NewLine & "Opened Customer : " & OpenFileDialog1.FileName & " File") 
     oReader.Close() 
    End If 
    IDBox.Text = "" 
    Label11.Text = OpenFileDialog1.FileName 
End Sub 

例：顧客の

名：顧客の

姓を名：姓

ID番号：12345678910

を

レコード番号：001

お客様の住所：住所

お気軽にお問い合わせください。

Answer 1

サンプルコードでは、StreamReaderを使用してテキストファイルを読み取ります。

Streamsの「欠点」は、手動で処分を管理する必要があることです。
例では、oReader.ReadToEndにエラーが発生した場合、oReader.Closeという行はヒットせず、ストリームは未配置のままであり、問​​題を引き起こす可能性があります。
Usingスコープであなたのストリームをよりよく格納するでしょう（別のオプションはstatic System.IO.File.ReadAllLines|ReadAllTextメソッドを使用することです）。

Private Sub OpenToolStripMenuItem_Click(sender As Object, e As EventArgs) Handles OpenToolStripMenuItem.Click 
    'Dim oReader As StreamReader <-- DELETE THIS 
    OpenFileDialog1.CheckFileExists = True 
    OpenFileDialog1.CheckPathExists = True 
    OpenFileDialog1.DefaultExt = "txt" 
    OpenFileDialog1.FileName = "" 
    OpenFileDialog1.Filter = "Text Files (*.txt)|*.txt|All Files (*.*)|*.*" 
    OpenFileDialog1.Multiselect = False 
    If OpenFileDialog1.ShowDialog = Windows.Forms.DialogResult.OK Then 
     'MY CODE STARTS HERE: 
     Dim customerInfo As String 
     Using sr = New StreamReader(OpenFileDialog1.FileName, True) 
      customerInfo = sr.ReadToEnd() 
     End Using 'Close the stream early since we have all data needed 

    'Write all lines into a string array 
     Dim lines As String() = customerInfo.Split({Environment.NewLine}, StringSplitOptions.RemoveEmptyEntries) 
    'Get the line where the ID Number is in 
     Dim idLine As String = lines.Where(Function(l) l.StartsWith("ID number")).FirstOrDefault() 
     Dim id As String = String.Empty 
     If Not String.IsNullOrEmpty(idLine) Then 
     Dim aIdLine() = idLine.Split(":"c) 'Split the ID line by : 
     If aIdLine.Length >= 1 Then 
      id = aIdLine(1) 'This should be the actual ID 
     End If 
     End If 

    'Set UI 
    My.Forms.Home.TextBox5.AppendText(Environment.NewLine & "Opened Customer : " & OpenFileDialog1.FileName & " File") 
    InformationBox.Text = customerInfo 
    IDBox.Text = id 
    Label11.Text = OpenFileDialog1.FileName 
End If