2014-11-22 64 views
-1

我試圖讓一個程序來記錄添加到CSV文件的末尾添加記錄到CSV文件

Sub AddRecord() 
    Dim NewRecord As String 

    Console.WriteLine("Enter the record you wish to add") 
    NewRecord = Console.ReadLine() 
    Console.WriteLine("Done") 
    Using writer As StreamWriter = File.AppendText(FileName) 
     writer.WriteLine(NewRecord) 
    End Using 
    Console.ReadLine() 
End Sub 

如果NewRecord =測試,測試,測試,測試程序在做這個

鎮,縣,流行,區

特威德河畔貝里克,Nothumberland,12870,468

比迪福德,德文,16262,430

博格諾里吉斯,西薩塞克斯,62141,1635

布里德靈頓,英國東約克郡的,33589,791

布里德波特,多塞特,12977,425個

克利索普斯林肯郡,31853,558

科爾溫海灣,康威,30269,953

多佛,肯特,34087,861

法爾茅斯,康沃爾,21635, 543

大雅茅斯,諾福克,58032,1467

黑斯廷斯,東薩塞克斯郡,85828,1998Test,測試,測試,測試

但我要測試,測試,測試,測試要在增加在黑客記錄後記錄,我該如何解決這個問題?

+0

你必須照顧好自己。只是因爲它是一個'csv'文件類型,它不知道他們去哪裏。 – OneFineDay 2014-11-22 18:25:00

+0

我已經排序,但我的意思是它沒有在文件底部添加記錄,它應該是 – Todd432 2014-11-22 18:30:28

+0

,因爲您正在創建一個新的streamWriter並用每次調用AddRecord子文件覆蓋該文件。 – OneFineDay 2014-11-22 18:32:35

回答

0

文件操作速度很快。不要在課堂上使用任何流。打開,添加,關閉。 File.AppendText

Using sw As StreamWriter = File.AppendText({path}) 
    sw.WriteLine({record}) 
End Using 
+0

這幾乎只是這樣做而不是創造新的記錄,它將文本放在最後一個記錄的末尾。我該如何糾正? – Todd432 2014-11-22 18:54:04

+0

不知道我確切地理解你想要什麼,你可以在你原來的文章中添加一個例子來看它的樣子嗎? – OneFineDay 2014-11-22 18:58:26

+0

我在原帖中顯示了問題 – Todd432 2014-11-22 19:02:46