Чтение/запись текста из TextBox в текстовый файл

Dim fileName As String = "D:\Exp\ccc.xml"    
Dim xdoc As XDocument = XDocument.Load(fileName)        
 xdoc.Element("Root").Element("username").value=textbox1.text'из хмл в текстбокс аналогично
xdoc.save(filename)

    Private Sub ButtonСохранить_Click(sender As Object, e As EventArgs) Handles ButtonСохранить.Click
        Dim TextBoxs As TextBox() = {TextBoxФамилия, TextBoxИмя, TextBoxОтчество, TextBoxАдрес}
        Dim Lines() As String = New String(TextBoxs.Length - 1) {}
        For Id = 0 To TextBoxs.Length - 1
            Lines(Id) = TextBoxs(Id).Name & ":  " & TextBoxs(Id).Text
        Next
        System.IO.File.WriteAllLines("C:\info.txt", Lines)
    End Sub
 
    Private Sub ButtonЗагрузить_Click(sender As Object, e As EventArgs) Handles ButtonЗагрузить.Click
        For Each Line In System.IO.File.ReadAllLines("C:\info.txt")
            Dim Values() As String = Line.Split(":  ")
            Controls(Values(0)).Text = Values(1)
        Next
    End Sub

'Здесь в массиве как вы понимаете мы храним TextBox'ы
1. Dim TextBoxs As TextBox() = {TextBoxФамилия, TextBoxИмя, TextBoxОтчество, TextBoxАдрес}
 
'Это можно назвать основа будущего файла т.е. строчки где будет записана вся информация
2. Dim Lines() As String = New String(TextBoxs.Length - 1) {}
 
'Дальше мы перечисляем все TextBox'ы которые хранятся в массиве
3. For Id = 0 To TextBoxs.Length - 1
            'Добавляем к каждой строке информацию например "TextBoxИмя:  Александр"
            'Т.е с левой стороны это Имя TextBox'а, а с правой значение
            Lines(Id) = TextBoxs(Id).Name & ":  " & TextBoxs(Id).Text
     Next
 
'И сохраняем все строки в файл
4. System.IO.File.WriteAllLines("C:\info.txt", Lines)

'Загружаем файл построчно
For Each Line In System.IO.File.ReadAllLines("C:\info.txt")
            Dim Values() As String = Line.Split(":  ") 'разделяем каждую строку
            'Все что было с левой стороны это Имя TextBox'а, а с правой значение
            'т.е. Values(0) - это Имя, а Values(1) - это значение
            Controls(Values(0)).Text = Values(1)
Next

 Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
        OpenFileDialog1.ShowDialog()
        If OpenFileDialog1.FileName = Nothing Then Exit Sub
 
        For Each Line In System.IO.File.ReadAllLines(OpenFileDialog1.FileName)
            Dim Values() As String = Line.Split(":  ")
            Controls(Values(0)).Text = Values(1)
        Next
    End Sub

 Private Sub ButtonSave_Click(sender As Object, e As EventArgs) Handles Button1.Click
        Dim Controls() As Control = {TextBox1, TextBox2, TextBox3, TextBox4, ComboBox1, ComboBox2, DateTimePicker1, DateTimePicker2}
        Using StreamWriter As New System.IO.StreamWriter("C:\info.dat")
            For Each Control In Controls
                If TypeOf (Control) Is TextBox Then
                    StreamWriter.WriteLine(String.Format("{0} = {1}", Control.Name, Control.Text))
                ElseIf TypeOf (Control) Is ComboBox Then
                    StreamWriter.WriteLine(String.Format("{0} = {1}", Control.Name, CType(Control, ComboBox).Text))
                ElseIf TypeOf (Control) Is DateTimePicker Then
                    StreamWriter.WriteLine(String.Format("{0} = {1}", Control.Name, CType(Control, DateTimePicker).Value.ToString()))
                End If
            Next
        End Using
    End Sub
 
    Private Sub ButtonLoad_Click(sender As Object, e As EventArgs) Handles Button2.Click
        For Each Line In System.IO.File.ReadAllLines("C:\info.dat")
            Dim Values() As String = Line.Split("=")
            Dim NameControl As String = Values(0).Trim()
            Dim TextControl As String = Values(1).Trim()
            If Controls.ContainsKey(NameControl) Then
                If TypeOf (Controls(NameControl)) Is TextBox Then
                    Controls(NameControl).Text = TextControl
                ElseIf TypeOf (Controls(NameControl)) Is ComboBox Then
                    Dim objComboBox As ComboBox = CType(Controls(NameControl), ComboBox)
                    If objComboBox.Items.Contains(TextControl) Then
                        objComboBox.Text = TextControl
                        objComboBox.SelectedItem = TextControl
                    End If
                ElseIf TypeOf (Controls(NameControl)) Is DateTimePicker Then
                    CType(Controls(NameControl), DateTimePicker).Value = Date.Parse(TextControl)
                End If
            End If
        Next
    End Sub

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

    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load
 
        For Each Line In System.IO.File.ReadAllLines("C:\info.dat")
            Dim Values() As String = Line.Split("=")
            Dim NameControl As String = Values(0).Trim()
            Dim TextControl As String = Values(1).Trim()
            If Controls.ContainsKey(NameControl) Then
                If TypeOf (Controls(NameControl)) Is TextBox Then
                    Controls(NameControl).Text = TextControl
                ElseIf TypeOf (Controls(NameControl)) Is ComboBox Then
                    Dim objComboBox As ComboBox = CType(Controls(NameControl), ComboBox)
                    If objComboBox.Items.Contains(TextControl) Then
                        objComboBox.Text = TextControl
                        objComboBox.SelectedItem = TextControl
                    End If
                ElseIf TypeOf (Controls(NameControl)) Is DateTimePicker Then
                    CType(Controls(NameControl), DateTimePicker).Value = Date.Parse(TextControl)
                End If
            End If
        Next
 
    End Sub

        Dim OFD As New OpenFileDialog With {.Filter = "MyConfig|*.dat"}
        If OFD.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
        For Each Line In System.IO.File.ReadAllLines(OFD.FileName)
            Dim Values() As String = Line.Split("=")
            Dim NameControl As String = Values(0).Trim()
            Dim TextControl As String = Values(1).Trim()
            If Controls.ContainsKey(NameControl) Then
                If TypeOf (Controls(NameControl)) Is TextBox Then
                    Controls(NameControl).Text = TextControl
                ElseIf TypeOf (Controls(NameControl)) Is ComboBox Then
                    Dim objComboBox As ComboBox = CType(Controls(NameControl), ComboBox)
                    If objComboBox.Items.Contains(TextControl) Then
                        objComboBox.Text = TextControl
                        objComboBox.SelectedItem = TextControl
                    End If
                ElseIf TypeOf (Controls(NameControl)) Is DateTimePicker Then
                    CType(Controls(NameControl), DateTimePicker).Value = Date.Parse(TextControl)
                End If
            End If
        Next

Public Class Form01
    'Ниже мы прописываем два объекта, которые нам будут нужны для открытия Word.
    'Прописывать их желательно до основного тела функций и событий.
    Dim oWord As Object ' Сам Word как приложение
    Dim oDoc As Object ' Конкретный документ .doc, для открытия в Word
   
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        '----------------------------------------------------------------------------------------------------------
        'СОХРАНЕНИЕ -----------------------------------------------------------------------------------------------
        '----------------------------------------------------------------------------------------------------------
        ' создание папки:
        If My.Computer.FileSystem.DirectoryExists("d:\БД (АРМС)\" + TextBox3.Text) Then ' проверка существует ли папка
            MsgBox("Папка с таким именем уже существует")  ' и вівод сообщение если такая уже есть
        Else
            My.Computer.FileSystem.CreateDirectory("d:\БД (АРМС)\" + TextBox3.Text) ' сздание новой папки
        End If
 
        '----------------------------------------------------------------------------------------------------------
        ' запись
 
        Dim Controls() As Control = {TextBox3, TextBox6, TextBox13, TextBox16, TextBox18, TextBox17, TextBox1,
                                     TextBox2, TextBox19, TextBox5, TextBox4, TextBox9, TextBox10, TextBox11,
                                     ComboBox1, ComboBox2, ComboBox3, ComboBox4, DateTimePicker1, DateTimePicker2}
        Using StreamWriter As New System.IO.StreamWriter("d:\БД (АРМС)\" + TextBox3.Text + "\Протокол" & TextBox1.Text & ".txt")
            For Each Control In Controls
                If TypeOf (Control) Is TextBox Then
                    StreamWriter.WriteLine(String.Format("{0} = {1}", Control.Name, Control.Text))
                ElseIf TypeOf (Control) Is ComboBox Then
                    StreamWriter.WriteLine(String.Format("{0} = {1}", Control.Name, CType(Control, ComboBox).Text))
                ElseIf TypeOf (Control) Is DateTimePicker Then
                    StreamWriter.WriteLine(String.Format("{0} = {1}", Control.Name, CType(Control, DateTimePicker).Value.ToString()))
                End If
            Next
        End Using
 
       
        '----------------------------------------------------------------------------------------------------------
        ' ДАЛЕЕ ВСТАВКА ТЕКСТА ИЗ ФОРМЫ В ВОРД ---------------------------------------------------------------------
        '----------------------------------------------------------------------------------------------------------
        oWord = CreateObject("Word.Application")
        oDoc = oWord.Documents.Add("D:\Шаблоны (АРМС)\Протокол.dot")
        oWord.visible = True
        ' Вставляем текст:
        oDoc.Bookmarks.Item("ТекстовоеПоле1").Range.Text = DateTimePicker1.Text
        oDoc.Bookmarks.Item("ТекстовоеПоле29").Range.Text = DateTimePicker1.Text
        oDoc.Bookmarks.Item("ТекстовоеПоле3").Range.Text = TextBox13.Text
       ' .......... и т.д.
    End Sub
    
' кнопка ВЫХОД
    Private Sub Button4_Click_1(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button4.Click
        Form2_Основная_форма.Show()
        Me.Hide()
    End Sub
  
  'зкрытие формы крестиком или АЛТ ф4
    Private Sub Form2_FormClosing(ByVal sender As Object, ByVal e As System.Windows.Forms.FormClosingEventArgs) Handles Me.FormClosing
        Form2_Основная_форма.Show()
    End Sub
  
 
  'ОТКРЫТИЕ данных из  файла
    Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
 
        Dim OFD As New OpenFileDialog With {.Filter = "MyConfig|*.dat"}
        If OFD.ShowDialog <> Windows.Forms.DialogResult.OK Then Exit Sub
        For Each Line In System.IO.File.ReadAllLines(OFD.FileName)
            Dim Values() As String = Line.Split("=")
            Dim NameControl As String = Values(0).Trim()
            Dim TextControl As String = Values(1).Trim()
            If Controls.ContainsKey(NameControl) Then
                If TypeOf (Controls(NameControl)) Is TextBox Then
                    Controls(NameControl).Text = TextControl
                ElseIf TypeOf (Controls(NameControl)) Is ComboBox Then
                    Dim objComboBox As ComboBox = CType(Controls(NameControl), ComboBox)
                    If objComboBox.Items.Contains(TextControl) Then
                        objComboBox.Text = TextControl
                        objComboBox.SelectedItem = TextControl
                    End If
                ElseIf TypeOf (Controls(NameControl)) Is DateTimePicker Then
                    CType(Controls(NameControl), DateTimePicker).Value = Date.Parse(TextControl)
                End If
            End If
        Next
    End Sub
End Class