Question

我正在使用文件阅读器，该文件阅读器根据txt文件在TextBox中显示选择。但是，我想使其按行而不是按字符串长度显示每个选择，因为每次都会添加不同的选择。如何用第1、2等行替换SubString？

我的代码：

Private Sub Form1_Load(sender As Object, e As EventArgs) Handles MyBase.Load
    TextBox1.Text = System.IO.File.ReadAllText("C:\Users\user1\Dekstop\select.txt").Substring(0, 20)
    TextBox2.Text = System.IO.File.ReadAllText("C:\Users\user1\Desktop\select.txt").Substring(22, 23)
    TextBox3.Text = System.IO.File.ReadAllText("C:\Users\user1\Desktop\select.txt").Substring(45, 12)
End Sub

Private Sub Button2_Click(sender As Object, e As EventArgs) Handles Button2.Click
    Form1.txtServer.Text = TextBox1.Text
    Me.Close()
End Sub

与其他文本框相同。

Answer 1

System.IO.File.ReadAllLines读取文件的所有行并将它们放入数组。

Dim lines = System.IO.File.ReadAllLines("C:\Users\user1\Dekstop\select.txt")
TextBox1.Text = lines(0)
TextBox2.Text = lines(1)
TextBox3.Text = lines(2)

Vb：只读文本文件的第一行

1 个答案: