Блог

Привет, я пытаюсь записать некоторые данные в сбой, используя таблицу. Я заставляю это работать, но каждый раз, когда я добавляю новую часть данных, последняя часть данных перезаписывается, в результате чего файл остается длиной в 2 строки.

Каждый раз, когда я нажимаю Button1, я хочу, чтобы он отправлял в файл все предыдущие собранные данные.

         My.Computer.FileSystem.WriteAllText("C:UsersMichaelDocumentsUniversityApplication ProgrammingAssignmentLogsAuditLog.htm", "<table border=1 width=100%>  <tr><td> Staff Name </td> <td> Computer Number </td> <td> Fault </td> <td> Assigned Technician </td> <td> Date Submitted </td> </tr> ", False)
    My.Computer.FileSystem.WriteAllText("C:UsersMichaelDocumentsUniversityApplication ProgrammingAssignmentLogsAuditLog.htm", "<tr> <td> <b> </b>" amp; StaffName amp; "</td> <td>" amp; ComputerNumber amp; "</td> <td>" amp; Fault amp; "</td> <td> " amp; AssignedTechnician amp; "</td> <td> " amp; DateSub amp; "</tr>", True)
 

Вот в чем моя проблема. Я думаю, мне нужен какой-то цикл for во второй строке. Но не уверен, как это сделать.

Любая помощь приветствуется. Спасибо.

Посмотрите на этот код

 Dim FILE_NAME As String = "C:UsersOwnerDocumentstest.txt"
Dim i As Integer
Dim aryText(4) As String

aryText(0) = "Mary WriteLine"
aryText(1) = "Had"
aryText(2) = "Another"
aryText(3) = "Little"
aryText(4) = "One"

Dim objWriter As New System.IO.StreamWriter(FILE_NAME, True)

For i = 0 To 4
objWriter.WriteLine(aryText(i))
Next

objWriter.Close()
MsgBox("Text Appended to the File")
 

Больше информации здесь и здесь