Question

vb.net 读取文本前五行，分别对应五个Textbox，分别放入 然后点击按钮把五个Textbox的内容按顺序写入文本

谢谢！

Answer 1

'窗体上放5个textBox控件，控件名依次为 TextBox1, TextBox2, TextBox3, TextBox4, TextBox5
'Button1按钮为读文件，Button2按钮为写文件
'程序第一运行时先在5个文本框中输入相应内容，点击“写文件”，以创建文件
Public Class Form1

    Private textBoxArray() As TextBox
    Private fileName As String


    Private Sub Form1_Load(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Load

        Me.textBoxArray = New TextBox() {Me.TextBox1, Me.TextBox2, Me.TextBox3, Me.TextBox4, Me.TextBox5}
        fileName = "csdx.txt"

    End Sub

    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click

        If System.IO.File.Exists(fileName) <> True Then
            MsgBox("文件不存在！，请先在文本框中输入数据，点击写文件。")
            Exit Sub

        End If


        Dim line As String
        Dim sr As IO.StreamReader = New IO.StreamReader(fileName, System.Text.Encoding.Default)
        Dim I As Integer

        For I = 1 To 5 Step 1
            If sr.EndOfStream Then Exit For
            line = sr.ReadLine
            Me.textBoxArray(I - 1).Text = line

        Next I


        sr.Close()
        sr = Nothing
    End Sub

    
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click

        Dim sw As IO.StreamWriter = New IO.StreamWriter(fileName, False)
        Dim I As Integer
        For I = 1 To 5

            sw.WriteLine(Me.textBoxArray(I - 1).Text)
            sw.Flush()
        Next
        sw.Close()
        sw = Nothing
    End Sub
End Class

Answer 2

为什么是5个，不是1个或两个。要简化问题。

追问

那....就两个吧....

追答

思路就是

1. 读File.ReadAllText到一个字符串，然后Split函数拆分成数组

2. 内存中操作数组，拼接字符串

3. 写File.WriteAllText
   

追问

很感谢的，不过我是初入门....
我还是希望有直接代码供参考...
感谢您

追答

看楼下的吧。