我的表格类似于日记。我希望用户做笔记,表单会将文本框中的注释保存到文本文件中。数据附加到文本文件,但我希望它附加到顶部,因此在加载时,它是用户能够看到的第一行文本。
IO.File.AppendAllText("name.txt", vbCrLf + Date.Today + vbCrLf + TextBox9.Text)
有没有办法将文本插入文本文件的顶部?
答案 0 :(得分:1)
获取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)
此方法的缺点是,只要文本增加,写入时间就会增加。
答案 1 :(得分:0)
读取现有日志,添加新条目,写入日志。
不会很好地扩展,但应该可以正常工作一段时间。也许按日/月/年切换日志取决于新条目的数量。
答案 2 :(得分:0)
将文件放入变量,然后只需将旧文本添加到末尾即可。像这样:
Dim TextFileReader as String
TextFileReader = My.Computer.FileSystem.ReadAllText("path")
IO.File.WriteAllText("path", "Our text to go at the top" & vbnewline & TextFileReader)