[リストへもどる]   [VBレスキュー(花ちゃん)]
一括表示

投稿時間:2006/01/31(Tue) 22:03
投稿者名:hisa
Eメール:
URL :
タイトル:
テキストファイルへの書き込み
textBox1とtextBox2に数字等を打ち込んで
コマンドボタンを押したらテキストファイルに保存される
ようにしたいのですが、良い方法はありますでしょうか?

例(1回目)
textbox1=a
textbox2=70

テキストファイル(C:\Date.txt)
a,70(以降、改行で書き込み)


例(2回目)
textbox1=b
textbox2=65

テキストファイル(C:\Date.txt)
a,70
b,65

というように出力したいのです・・。
VB6.0です、宜しくお願いします。m(_ _)m

投稿時間:2006/01/31(Tue) 22:15
投稿者名:ガッ
Eメール:
URL :
タイトル:
Re: テキストファイルへの書き込み
> textBox1とtextBox2に数字等を打ち込んで
> コマンドボタンを押したらテキストファイルに保存される
> ようにしたいのですが、良い方法はありますでしょうか?
本当はこんな適当な仕様では「1回目、2回目は区別する必要があるのか?」とか
「テキストボックスは値の保存だけに使っている、必要あるのか?」とか
「テキストボックスに何も打ち込まれていない場合の対処は?」などなど、
いろいろと出てくるわけですが、
勝手に解釈して次のようなプログラムを作りました。
他にも色々実現方法はあるでしょうし、これが適当とも分かりません。
Option Explicit
Private WithEvents cmd          As CommandButton

Private Sub cmd_Click()
    Dim ff      As Integer
    
    ff = FreeFile()
    Open "C:\Date.txt" For Append As ff
        Write #ff, Me.Controls("Text1").Text, Me.Controls("Text2").Text
    Close ff
    
End Sub

Private Sub Form_Load()
    With Me.Controls
        With .Add("VB.TextBox", "Text1")
            .Move 0, 0, 700, 100
            .Visible = True
        End With
        With .Add("VB.TextBox", "Text2")
            .Move 700, 0, 700, 100
            .Visible = True
        End With
        Set cmd = .Add("VB.CommandButton", "hoge")
        cmd.Move 0, 200, 800, 800
        cmd.Caption = "ボタン"
        cmd.Visible = True
    End With
End Sub

投稿時間:2006/02/03(Fri) 22:04
投稿者名:hisa
Eメール:
URL :
タイトル:
Re^2: テキストファイルへの書き込み
ご返答ありがとうございます。
今すぐはちょっと時間がないので出来ないのですが
後日、やってみようと思います。

この度はありがとうございました。