テキストの保存

ＶＢでテキストボックスの中身を保存する方法教えてください

No.2 ベストアンサー 回答者： imogasi 回答日時： 2002/09/04 17:10

VBでフォームを１つ作り、テキストボックスを１つ貼りつける。

またコマンドボタンを１つ貼りつける。
テキストボックスのMultiLineはtrue、コマンドボタンのCaptionは「書出し」とする。
Private Sub Command1_Click()
Dim s As String
s = Form1.Text1.Text
If s = "" Then Exit Sub
' MsgBox s
Write #1, s
Form1.Text1.Text = ""
End Sub
Private Sub Form_Load()
Form1.Text1.Text = ""
Open "c:\My Documents\acc.txt" For Output As #1
End Sub
Private Sub Form_Unload(Cancel As Integer)
Close #1
End Sub
ファイルを開く関連のエラー処理、テキスト文の分割の
ルールなど考慮外で不完全ですがよろしく。
Write文は””で囲って書き出します。

No.3 回答者： ahoojpn 回答日時： 2002/09/05 14:32

Private Sub Command1_Click()

Open "c:\My Documents\A.txt" For Output As #1
Print #1, Text1.Text
Close #1
End Sub

コマンドボタン（Command1）を押すと、[マイ　ドキュメント]フォルダに"A"という名称のテキストファイル（A.txt）が作成されます。"A.txt"にテキストボックスの中身が表示されているはずです。フルパス名（コード２行目の""のこと）は環境により、修正してください。

＊テキストボックスの"Caption"は"Text1"、コマンドボタンの"Caption"は"Command1"としてください。

この回答へのお礼

皆様　ご回答ありがとうございました。

お礼日時：2002/09/10 20:33

No.1 回答者： maruru01 回答日時： 2002/09/04 15:28

こんにちは。

maruru01です。

保存するというのは、テキストファイルに書き出すということでしょうか。
それなら、以下のようにします。

Dim fileNum As Long　　　　　　'ファイル番号
Dim fileFullPath As String　　'テキストファイル名のフルパス

fileFullPath = "C:\出力ファイル.txt"
fileNum = FreeFile

Open fileFullPath For Output As #fileNum
　　Print #fileNum, テキストボックス.Text
Close #fileNum

詳細は、各キーワードでヘルプを検索して下さい。