join - 使用 VB.net 2010 在测试文件中加入备用行

Question

我有以下文件：

Arijit
Ghosh.1.100.0
Arindam
Roy.3.4.678

现在我想要下面的输出

Arijit.Ghosh.1.100.0
Arindam.Roy.3.4.678

我正在使用 Vb.net 2010。我正在使用流阅读器读取文件并使用流写入器进行写入。我不想使用数据表请帮助。很紧急。

Answer 1

说您的输入文件file.txt具有以下值

Arijit
Ghosh.1.100.0
Arindam
Roy.3.4.678 

你有一个output.txt要写的

       Using writer As StreamWriter = New StreamWriter("D:\output.txt")
            Using reader As StreamReader = New StreamReader("D:\file.txt")
                Dim isSecondLine As Boolean = False
                Dim line As String = String.Empty
                While Not reader.EndOfStream
                    If Not isSecondLine Then
                        line = reader.ReadLine()
                        isSecondLine = True
                    Else
                        line = line + "." + reader.ReadLine()
                        isSecondLine = False
                        writer.WriteLine(line)
                    End If
                End While
            End Using
        End Using