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