VB.NET 读取1.txt,文本里面包含"UFO",然后删掉整个文档里包含UFO的文字,再保存 求代码

VB.NET 读取1.txt,文本里面包含"UFO",然后删掉整个文档里包含UFO的文字,再保存 求代码

Dim MyStr As String
'读取一个文本文件
Dim MyReader As New System.IO.StreamReader(Application.StartupPath & "\MyText1.txt", System.Text.Encoding.Default)
MyStr = MyReader.ReadToEnd()
MyReader.Close()

'删除UFO
MyStr = Replace(MyStr, "UFO", "")

'写入一个文本文件
Dim MyStream As New System.IO.FileStream(Application.StartupPath & "\MyText1.txt", System.IO.FileMode.Create)
Dim MyWriter As New System.IO.StreamWriter(MyStream, System.Text.Encoding.Default)
MyWriter.WriteLine(MyStr)
MyWriter.Flush()
MyWriter.Close()
MyStream.Close()

你好！ 我可以帮你 发下测试文本 仅代表个人观点，不喜勿喷，谢谢。