テキストファイルから特定の行を読み書きする

Question

Niphoetがスタックオーバーフローに関する質問と同じ問題を抱えています。Overwrite a specific line in a text file using VB.NET

AxarydaxがC＃で示したコードを実装しようとしていますが、VB.NETに使用しようとしています。私の問題は、コードが新しいテキストファイルを作成することですが、他のテキストファイルの行は書き込まず、空白のままになります。私は自分の問題がwhileループステートメントであると思いますが、わかりません。ここで私はこれまで持っているものです。

Private Sub submitButton_Click(ByVal sender As System.Object, ByVal e As  System.EventArgs) Handles submitButton.Click 
    Dim trackname As String 
    Dim fso 
    fso = CreateObject("Scripting.FileSystemObject") 
    trackname = TrackComboBox.Text 
    Dim fileName As String = "C:\Papyrus\NASCAR3\tracks\" + trackname + "\" + trackname + ".txt" 
    Dim newfile As String = "C:\Papyrus\NASCAR3\tracks\" + trackname + "\" + "copy.txt" 
    If System.IO.File.Exists(fileName) Then 

     Dim objReader As New System.IO.StreamReader(fileName, True) 
     Dim objWriter As New System.IO.StreamWriter(newfile, False) 
     Dim line 
     'write back 
     While (line = objReader.ReadToEnd() <> Nothing) 
      If (line.StartsWith("RELS")) Then 
       objWriter.WriteLine(relstTextBox.Text) 
      Else 
       objWriter.WriteLine(line) 
      End If 

     End While 
     objReader.Close() 
     objWriter.Close() 
    Else 
     MessageBox.Show("Could not find " + trackname + " track text file sucessfully") 
    End If 
End Sub 

Answer 1

あなたが行でテキストファイルの行を読みたい場合は、その後にコードを変更：

Dim line As String = "" 

'Write back 
line = objReader.ReadLine() 
While Not line Is Nothing 
    If (line.StartsWith("RELS")) Then 
     objWriter.WriteLine(relstTextBox.Text) 
    Else 
     objWriter.WriteLine(line) 
    End If 

    line = objReader.ReadLine() 
End While 

ReadToEndではなく、線でそれをラインを読み取りませんストリームの内容全体を読み込みます...