Question

我有这个代码来读取文件的行（16file），然后在文本框中显示每行（tWLine），一次一个，但下面的代码一次显示文件的所有内容。但是我想要这样，在读取文件的一行后，它会显示在文本框（tWline）中，然后在读取下一行之前单击一个按钮，再次显示在文本框中，直到16file中的最后一行。

第二部分将根据行中单词的数量（第一个单词转换为txt1，第二个单词转换为txt2等）将读入行中的单词复制到文本框中，但我将非常感谢至少单独使用第一部分就能完成。

    `Dim fRdr As StreamReader

    fRdr = File.OpenText("C:\users\sk\16file.txt")

    'Loop through to read Lines
    Do Until fRdr.EndOfStream
        tWLine.Text = tWLine.Text & fRdr.ReadLine & vbCrLf
    Loop
    fRdr.Close()`

我希望文本框内容看起来像下面的代码一次显示一行消息，以便在每行显示在tWline文本框中之后，将在读取下一行之前执行某种形式的代码然后对于下一行，将执行相同的操作，直到达到文件中的最后一行。

    `Private Sub bReadFA_Click(sender As Object, e As EventArgs) Handles bReadFA.Click
    For Each Line As String In File.ReadLines("C:\users\sk\16file.txt")
        MsgBox(line)
    Next
End Sub `

Answer 1

如果Shadow Fiend的回答对您不起作用，那么您的文本文件中可能没有多行。如果你的意思是说句行，那么你最好将文件中的所有文本复制到一个字符串变量中并通过＆＃39;来分割它。＆＃39;获取字符串数组。然后简单地做你想要的数组。

Answer 2

您的意思是在文本框中传输文件的每一行？试试这个

将Deque更改为>>> class Deque(object): ... def __repr__(self): ... return 'Deque<>' ... >>> d = Deque() >>> d Deque<>

试试这个

Msgbox(line)

vb.net逐行读取文件并复制行

2 个答案: