0

次のコードを (イベントで) 実行して文字列 "DoNotShowSafeBootPages=Yes" を削除すると、次のエラーが表示されます。

     Sub DeleteLineSM()
    Dim line As String = Nothing
    Dim line_to_delete As String = "DoNotShowSafeBootPage=Yes"

    Using reader As New StreamReader("C:\cfig.ini")
        Using writer As New StreamWriter("C:\cfig.ini")
            While (reader.ReadLine()) IsNot Nothing
                If [String].Compare(line, line_to_delete) = 0 Then
                    Continue While
                End If

                writer.WriteLine(line)
            End While
        End Using
    End Using
End Sub

私がやろうとしているのは、上記の文字列の言及をテキスト ファイルから削除することだけです。誰かが私を助けることができますか？

4

1 に答える 1

1 
Sub DeleteLineSM()
 Dim lines As New List(Of String)
 Dim line_to_delete As String = "DoNotShowSafeBootPage=Yes"
 Using reader As New StreamReader("C:\cfig.ini")
    'need a looping mechanism
   While Not reader.EndOfStream
      'add to our list
     lines.Add(reader.Readline)
   End While
 End Using 
  'check if the delete text exist and then delete it
 If lines.Contains(line_to_delete) Then lines.Remove(line_to_delete)
  'overwrite the file
 Using writer As New StreamWriter("C:\cfig.ini")
    For Each line In Lines
     writer.WriteLine(line)
    Next
 End Using
End Sub
于 2013-08-01T18:45:29.073 に答える