Visual Basic，写入文件

Question

嘿，我正在尝试使用表格将一些数据写入失败。 我得到它的工作，但是，每次我添加一条新的数据时，最后一条数据被覆盖导致文件保持2行。

每次我点击Button1我希望它发送到文件捕获所有以前的数据。

 My.Computer.FileSystem.WriteAllText("C:\Users\Michael\Documents\University\Application Programming\Assignment\Logs\AuditLog.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:\Users\Michael\Documents\University\Application Programming\Assignment\Logs\AuditLog.htm", "<tr> <td> <b> </b>" & StaffName & "</td> <td>" & ComputerNumber & "</td> <td>" & Fault & "</td> <td> " & AssignedTechnician & "</td> <td> " & DateSub & "</tr>", True) 

这是我的问题所在。我想我需要在第二行的某种循环。但不知道如何去做。

任何帮助表示赞赏。谢谢。

Answer 1

看看这段代码

Dim FILE_NAME As String = "C:\Users\Owner\Documents\test.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") 

有更多信息here和here