Между логом и того примера с трёма
TextBoxами и одной кнопкой общего мало. Лог, как по мне, реализуется не так: для него даже компонент вроде есть.
Я сам не писал лог обработчик.
А как вопрос решался в VB6 или там не приходилось так писать?
А предложенный пример реализуется так
Код:
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
FileOpen(1, "File.log", OpenMode.Append) 'Открываем для добавления. Если файла нет, то он создаётся
PrintLine(1, TextBox1.Text) 'Добавляем строчки в лог файл
PrintLine(1, TextBox2.Text)
PrintLine(1, TextBox3.Text)
PrintLine(1, "") 'Добавляем пустую строчку
FileClose(1) 'Желательно после всех проделанных операций закрывать файл
End Sub
OpenMode.Binary - бинарный доступ, строк как таковых нету, только группы определённых, понятных кодеру, данных. Полная аналогия как и в VB6
Построчно можно считать также как и в VB6
Код:
Dim AllText As String = "", LineOfText As String = ""
FileOpen(1, "File.log", OpenMode.Append)
Do Until EOF(1)
LineOfText = LineInput(1)
AllText = AllText & LineOfText & vbCrLf
Loop
Что б писать построчно нужно открыть файл в режиме OutPut/Append и использовать оператор PrintLine.
(см первый пример в посте)