Vb.net 将VB数据项保存到文本文件

因此，我编写了这段代码，它接收用户输入的信息

    Public Class Patient
    Private Sub Patient_Load(sender As Object, e As EventArgs) Handles MyBase.Load

    Label1.Text = "First Name:"
    Label2.Text = "Last Name:"
    Label3.Text = "Address: "
    Label4.Text = "City:"
    Label5.Text = "Province: "
    Label6.Text = "Postal Code: "
    Label7.Text = "Health Card Number: "

    If (CollectionIndexValue <> -1) Then
        Dim existingPatient As New PatientObject4

        existingPatient = PatientCollection(CollectionIndexValue)

        TextBox1.Text = existingPatient.Firstname
        TextBox2.Text = existingPatient.LastName
        TextBox3.Text = existingPatient.Address
        TextBox4.Text = existingPatient.City
        TextBox5.Text = existingPatient.Province
        TextBox6.Text = existingPatient.PostalCode
        TextBox7.Text = existingPatient.HealthCardNumber
        Button1.Text = "Save"

    Else
        Button1.Text = "Add"
    End If
End Sub

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

    If (TextBox1.Text = "" Or TextBox2.Text = "" Or TextBox3.Text = "" Or TextBox4.Text = "" Or
       TextBox5.Text = "" Or TextBox6.Text = "" And TextBox7.Text = "") Then
        Label8.Text = "All fields must be populated"
    Else
        If (Button1.Text.ToUpper() = "ADD") Then
            Dim PatientObject As New PatientObject4

            PatientObject.Firstname = TextBox1.Text
            PatientObject.LastName = TextBox2.Text
            PatientObject.Address = TextBox2.Text
            PatientObject.City = TextBox4.Text
            PatientObject.Province = TextBox5.Text
            PatientObject.HealthCardNumber = TextBox7.Text

            PatientCollection.Add(PatientObject)

            Label8.Text = "Patient Added"
            TextBox1.Text = ""
            TextBox2.Text = ""
            TextBox3.Text = ""
            TextBox4.Text = ""
            TextBox5.Text = ""
            TextBox6.Text = ""
            TextBox7.Text = ""

        Else
            Dim PatientSave As New PatientObject4
            PatientSave.Firstname = TextBox1.Text
            PatientSave.LastName = TextBox2.Text
            PatientSave.Address = TextBox3.Text
            PatientSave.City = TextBox4.Text
            PatientSave.Province = TextBox5.Text
            PatientSave.PostalCode = TextBox6.Text
            PatientSave.LastName = TextBox7.Text

            PatientCollection(CollectionIndexValue) = PatientSave

            Label8.Text = "Patient Saved"
        End If

    End If

End Sub
End Class

公共类患者
Private Sub Patient_Load（发送者作为对象，e作为事件参数）处理MyBase.Load
Label1.Text=“名字：”
Label2.Text=“姓氏：”
Label3.Text=“地址：”
Label4.Text=“城市：”
Label5.Text=“省：”
Label6.Text=“邮政编码：”
Label7.Text=“健康卡号：”
如果（CollectionIndexValue-1），则
将现有患者变为新患者对象4
existingPatient=PatientCollection（CollectionIndex值）
TextBox1.Text=existingPatient.Firstname
TextBox2.Text=existingPatient.LastName
TextBox3.Text=existingPatient.Address
TextBox4.Text=existingPatient.City
TextBox5.Text=existingPatient.Province
TextBox6.Text=existingPatient.PostalCode
TextBox7.Text=existingPatient.HealthCardNumber
按钮1.Text=“保存”
其他的
按钮1.Text=“添加”
如果结束
端接头
私有子按钮1\u单击（发送者作为对象，e作为事件参数）处理按钮1。单击
如果（TextBox1.Text=“”或TextBox2.Text=“”或TextBox3.Text=“”或TextBox4.Text=“”）或
TextBox5.Text=“”或TextBox6.Text=“”和TextBox7.Text=“”）然后
Label8.Text=“必须填充所有字段”
其他的
如果（Button1.Text.ToUpper（）=“添加”），则
将PatientObject设置为新PatientObject 4
PatientObject.Firstname=TextBox1.Text
PatientObject.LastName=TextBox2.Text
PatientObject.Address=TextBox2.Text
PatientObject.City=TextBox4.Text
PatientObject.Province=TextBox5.Text
PatientObject.HealthCardNumber=TextBox7.Text
PatientCollection.Add（PatientObject）
Label8.Text=“已添加患者”
TextBox1.Text=“”
TextBox2.Text=“”
TextBox3.Text=“”
TextBox4.Text=“”
TextBox5.Text=“”
TextBox6.Text=“”
TextBox7.Text=“”
其他的
暗淡的患者保存为新患者对象4
PatientSave.Firstname=TextBox1.Text
PatientSave.LastName=TextBox2.Text
PatientSave.Address=TextBox3.Text
PatientSave.City=TextBox4.Text
PatientSave.Province=TextBox5.Text
PatientSave.PostalCode=TextBox6.Text
PatientSave.LastName=TextBox7.Text
PatientCollection（CollectionIndexValue）=PatientSave
Label8.Text=“患者已保存”
如果结束
如果结束
端接头
末级

如果我希望在添加新患者时将此信息保存到文本文件（创建新文本文件）。你打算怎么做？我试着用谷歌搜索它，但当你不知道自己在找什么的时候就有点难了

如有任何帮助/想法，将不胜感激

谢谢

---

另外，这只是一个较大代码的片段。谢谢

有关文件的任何内容，请查看名称空间。IE；文件、StringWriter、TextWriter。这里有一个快速简单的文件示例。

为什么要将其保存到文本文件中？如果一个用户要输入多个患者，您打算稍后如何调用该信息？当然，在这种情况下，您可能希望将信息存储在数据库的一个表中。我已经有了一个稍后调用信息的系统（所有设置）。这只是一段代码。另外，我想将其存储在文本文件中，因为我只想知道如何使用VB在我的计算机上创建外部文件。我想知道谁会工作。不过，感谢对未来的建议：VB.NET/VisualStudio VBA。最好适当地标记问题。