テキストの保存

質問

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

回答No.2

imogasi · ベストアンサー

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

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"としてください。

お礼

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

回答No.1

maruru01

こんにちは。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

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