如何将多个文本框字段保存到VB.Net中的.txt文件中

时间:2016-02-26 11:15:48

标签: vb.net

所以我在VB.Net Windows窗体应用程序中有四个文本框字段,输入数据时,我希望将数据项保存为.txt文件,文件名为第二个文本框的数据输入

到目前为止,我的代码看起来像这样:

Private Sub btnSubmit_Click(sender As Object, e As EventArgs) Handles btnSubmit.Click

    If txtName.Text And txt_sID.Text = "" Then
        MsgBox("Please complete ALL fields before submitting!")
    End If
    **My.Computer.FileSystem.WriteAllText(file:=txt_sID.Text, txtName.Text, txt_sID.Text, txtScore.Text, txtQuiz.Text, False)**
End Sub

使用已加星标的代码作为此线程的焦点以及上下文的其余代码。

提前致谢

2 个答案:

答案 0 :(得分:0)

Dim sb As StringBuilder = New StringBuilder()

sb.Append(txt1.text)
sb.Append(txt2.text)
sb.Append(txt3.text)
sb.Append(txt4.text)

System.IO.File.WriteAllText(FilePath, sb.ToString())

答案 1 :(得分:0)

以下是概念性的,因为我使用的是标准文本框名称。

If Not String.IsNullOrWhiteSpace(TextBox1.Text) AndAlso Not String.IsNullOrWhiteSpace(TextBox2.Text) Then
    If Not String.IsNullOrWhiteSpace(TextBox3.Text) Then
        If IO.Directory.Exists(IO.Path.GetDirectoryName(TextBox3.Text)) Then
            Dim sb As New System.Text.StringBuilder
            sb.AppendLine(TextBox1.Text)
            sb.AppendLine(TextBox2.Text)
            IO.File.WriteAllText(TextBox3.Text, sb.ToString)
        End If
    Else
        MessageBox.Show("Please provide a file name")
    End If
Else
    MessageBox.Show("Please complete all fields")
End If