StreamReader第一行不会显示在文本框中-VB.NET

Question

我有那些可读写文件的功能。 它编写正确，但是当我想从中读取内容并将其放在Visual Studio中的RichTextBox中时，它不会向我显示第一行，而我对此一无所知。 我有点着急。

功能读取/保存

Imports System.IO

Module ModuleFichier
Public Sub Save(ByVal Question As String, ByVal RepA As String, ByVal RepB   As String, ByVal RepC As String, ByVal Rep As String)
    If Not File.Exists("B:\Questions.txt") Then
        File.Create("B:\Questions.txt").Dispose()
    End If
    Using fichier As StreamWriter = File.AppendText("B:\Questions.txt")
        fichier.WriteLine(Question)
        fichier.WriteLine(RepA)
        fichier.WriteLine(RepB)
        fichier.WriteLine(RepC)
        fichier.WriteLine(Rep)
    End Using
End Sub
Public Function Read(txtbox As String) As String
    If Not File.Exists("B:\Questions.txt") Then
        txtbox = "Fichier vide"
        Return txtbox
        Exit Function
    End If
    Using fichier As New StreamReader("B:\Questions.txt")
        Dim line As String
        line = fichier.ReadLine()
        Do
            line = fichier.ReadLine()
            txtbox += vbNewLine & line
        Loop Until line Is Nothing
        Return txtbox
    End Using
End Function
End Module

函数调用

Private Sub butQuestionsQ_Click(sender As Object, e As EventArgs) Handles butQuestionsQ.Click
    txtQuestionsQ.Text = Read(txtQuestionsQ.Text)
End Sub

这是学校作业的一部分，所以我很确定那里发生了什么，这就是为什么我来这里。 可能是一个新的错误，但我似乎找不到它，也为那里的法国人感到抱歉。

Answer 1

您覆盖了第一条读取行。

    line = fichier.ReadLine() // line to remove
    Do
        line = fichier.ReadLine()

您只需要删除注释行。

Answer 2

Public Function Read(txtbox As String) As String
If Not File.Exists("B:\Questions.txt") Then
    txtbox = "Fichier vide"
    Return txtbox
    Exit Function
End If
Using fichier As New StreamReader("B:\Questions.txt")
    Dim line As String
    //line = fichier.ReadLine()
    Do
        line = fichier.ReadLine()
        txtbox += vbNewLine & line
    Loop Until line Is Nothing
    Return txtbox
End Using

结束功能`

看到我评论的那一行。 在循环之前，您正在阅读一行。 因此它将读取第一行。 同样，一旦进入循环，您正在读取另一行。 因此，它将立即获得第二行，并用第二行数据替换行变量。 因此，请评论一下，在循环之前阅读它会很好用。