またテキストファイルについて;

タグの編集
投稿者 みじんこ  (中学生) 投稿日時 2009/8/23 07:31:34
Textbox1.Textをテキストファイルの1行目に保存
Textbox2.Textをテキストファイルの2行目に保存
というように保存したいのですが、どうすればいいでしょうか?
投稿者 ゆきと  (社会人) 投稿日時 2009/8/23 08:27:49
上書き保存→追加保存みたいな感じでしょうか
    Private Sub Button1_Click(ByVal sender As System.ObjectByVal 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 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.ObjectByVal 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.ObjectByVal 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 09:40:28
やってみたかった事ができました。
ボチボチ覚えて行こうと思います。
ありがとうございます(´・ω・`)ゞ