我有一个类似于日记的表格。我希望用户做笔记，表单会将文本框中的笔记保存到文本文件中。数据附加到文本文件，但我希望它附加到顶部，所以当它加载时，它是用户能够看到的第一行文本。
IO.File.AppendAllText("name.txt", vbCrLf + Date.Today + vbCrLf + TextBox9.Text)
有没有办法将文本插入到文本文件的顶部？
问问题
3737 次
3 回答
2
获取 name.txt 的内容并将其放入变量中，然后在其前面附加新文本。
像这样的东西：
Dim mytext as String
mytext = Read(name.txt)
mytext = Date.today & vbCrlf & Textbox9.text & vbCrlf & name.txt
IO.File.WriteAllText("name.txt", mytext)
这种方法的缺点是，只要您的文本增加，写入时间就会增加。
于 2013-03-13T01:18:43.193 回答
0
读取现有日志，添加新条目，写入日志。
不能很好地扩展，但应该可以正常工作一段时间。可能会根据新条目的数量按日/月/年切换日志。
于 2013-03-12T22:20:51.060 回答
0
将文件放入变量中，然后只需将旧文本添加到末尾即可。像这样的东西：
Dim TextFileReader as String
TextFileReader = My.Computer.FileSystem.ReadAllText("path")
IO.File.WriteAllText("path", "Our text to go at the top" & vbnewline & TextFileReader)
于 2020-01-12T16:55:32.607 回答