またテキストファイルについて； への返答
投稿で使用できる特殊コードの説明。(別タブで開きます。)
以下の返答は逆順(新しい順)に並んでいます。
投稿者 太郎冠者 (社会人)
投稿日時
2009/8/23 08:43:24
前回の投稿（http://rucio.groupsite.jp/commu/ThreadDetail.aspx?ThreadId=9292）から「既存のファイルを読込→行単位で編集→保存」みたいな事がしたいんかなーと勝手に判断しました。
こんな感じかな
こんな感じかな
'FormにButton2つとTextBox2つを配置
Public Class Form1
Private fileData As String()
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'ファイルを読み込んで行ごとに配列に格納
fileData = System.IO.File.ReadAllLines("C:\Hoge.txt")
'配列の1,2番目の内容をテキストボックスにセット
TextBox1.Text = fileData(0)
TextBox2.Text = fileData(1)
End Sub
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
'配列の1,2番目の内容をテキストボックスの値に変更
fileData(0) = TextBox1.Text
fileData(1) = TextBox2.Text
'配列の中身を上書き書き込み
System.IO.File.WriteAllLines("C:\Hoge.txt", fileData)
End Sub
End Class
投稿者 ゆきと (社会人)
投稿日時
2009/8/23 08:27:49
上書き保存→追加保存みたいな感じでしょうか
改行をしない場合は & vbCrLf を除けば改行されません
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
'一行目は上書き保存
IO.File.WriteAllText("C:\てすと.txt", TextBox1.Text & vbCrLf, _
System.Text.Encoding.GetEncoding("Shift-JIS"))
'二行目は追加保存
System.IO.File.AppendAllText("C:\てすと.txt", TextBox2.Text & vbCrLf, _
System.Text.Encoding.GetEncoding("Shift_Jis"))
End Sub
改行をしない場合は & vbCrLf を除けば改行されません
投稿者 みじんこ (中学生)
投稿日時
2009/8/23 07:31:34
Textbox1.Textをテキストファイルの１行目に保存
Textbox2.Textをテキストファイルの２行目に保存
というように保存したいのですが、どうすればいいでしょうか？
Textbox2.Textをテキストファイルの２行目に保存
というように保存したいのですが、どうすればいいでしょうか？
ボチボチ覚えて行こうと思います。
ありがとうございます(´・ω・｀)ゞ