Vb.net 编辑文本文件？

我有一个文本文件，其中有很多行信息，我要做的是搜索以

\uuu

开头的每一行，一旦我找到这一行，复制下面6行的行，将其添加到下面的第一行，并删除其他行信息

例如：

_ Blue X X X X 10.5 X X X _ Orange X X X X 15.1 X X X _ _ 蓝色 X X X X 10.5 X X X _ 橙色 X X X X 15.1 X X X _ 我想显示为

Blue 10.5 Orange 15.1 蓝色10.5 橙色15.1

---

我目前正在使用VS 2010。

使用

IO.StreamReader

读取文件行：

Dim sr As New StreamReader(sFilePath)

然后把台词循环起来，做你要做的事情：

Dim sLine, sResult As String
Dim iCont As Integer = -1

sResult = ""
sLine = sr.ReadLine()

While Not sr.EndOfStream
    If sLine.StartsWith("_"c) Then iCont = 0

    Select Case iCont
        Case 1
            sResult &= sLine & " "
        Case 6
            sResult &= sLine & Environment.NewLine()
    End Select

    If iCont >= 0 Then iCont += 1
    sLine = sr.ReadLine()
End While

sr.Close()
MessageBox.Show(sResult)

编辑：
如果要将其写入文件，则：

Dim sw As New StreamWriter(sNewFilePath)

sw.Write(sResult)
sw.Close()

如果您不需要其他任何东西，也可以这样做：

IO.File.WriteAllText(sNewFilePath, sResult)

文档：

---

谢谢，我尝试了您的建议，结果显示在消息框中，我是否需要StreamWriter将其保存到新的文本文件中？