0

日記に似た形をしています。ユーザーにメモを作成してもらいたいのですが、フォームはテキストボックスのメモをテキストファイルに保存します。データはテキストファイルに追加されますが、上部に追加して、ロード時にユーザーが表示できるテキストの最初の行になるようにします。

IO.File.AppendAllText("name.txt", vbCrLf + Date.Today + vbCrLf + TextBox9.Text)

テキストをテキストファイルの先頭に挿入する方法はありますか？

4

3 に答える 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 に答える