テキストデータを名前を付けて好きな場所へ
保存するにはどうすればいいのでしょうか。
既にあるテキストファイルに、別名を付けて保存(あるいは移動)したいのであれば、
FileCopyステートメント(あるいはNameステートメント)を利用してください。
テキストボックス等の内容を保存したいのであれば、Print#ステートメント、
あるいは、TextStreamオブジェクト、もしくはRichTextBoxのSaveFileメソッドなどを
用いれば良いかと思います。
(それぞれの使い方は、ヘルプで確認してください)
また、MSDNライブラリの目次から、以下の項目にも目を通しておくと良いでしょう。
[Visual Basic ドキュメント]
[Visual Basic の使用方法]
[プログラミング ガイド]
[Visual Basic を使ってできること]
[ドライブ、フォルダ、ファイルの処理]
CommonDialogコントロールで保存する場所を取得するのもどうでしょう?
ファイルの保存ダイアログを使用する事ができます。
VB6ではデフォルトでは使用できませんので、
Microsoft Common Dialog Control(やったかな?)を使ってください。
コモンダイアログでは、ファイル名の入力し貸してくれなかったと思いますけど。
魔界の仮面弁士さんのいうヘルプ内のページに
使用方法が載っていたと思います。
複数テキストボックスのパラメータ内容を好きな場所に書き込んだり。
また、読み込みたい。
>コモンダイアログでは、ファイル名の入力し貸してくれなかったと思いますけど。
もちろんわかっています。
>>好きな場所へ保存
というのが、プログラマの好きな場所なのか、ユーザの好きな場所なのかがはっきりしなかったので、
コモンダイアログでパス取って、Print等で保存という意味でした。
>複数テキストボックスのパラメータ内容を好きな場所に書き込んだり。
>また、読み込みたい。
で、abcさんは再度以上のように書かれていますが、
魔界の仮面弁士さん方のレスについてはどうされたのでしょうか?
コモンダイアログでパス取って、Print等で保存という意味でした。
>
それはどうすればいいんでしょう。
CommonDialog1.Filter = "txt(*.bmp)|*.bmp"
CommonDialog1.Flags = cdloFNverwritePrompt
CommonDialog1.ShowSave
Savefile Form2, CommonDialog1.Filename
Write #1, maxx
Write #1, minx
Write #1, cmax
Write #1, maxy
Write #1, miny
Write #1, diverse
Write #1, grid
返事が遅くなりました。
>それはどうすればいいんでしょう。
どうすればいい、とは?(?.?)
コモンダイアログの使い方もPrintの使い方もヘルプに載ってますが・・・。
abcさんは上の返答でいくつかコードを書かれていますが、これは何ですか?
これを試した、という意味でしょうか?
試したならどこまでうまくいったとか、どこがわからないとか、
読み手にわかるように説明した方がレスがつきやすいと思いますよ。(^^)
流れとしては、
1.コモンダイアログでファイルパスを取得
2.そのファイルパスでテキストを保存
の2つでよいのですが、
2に至るにはそのテキストはどのテキストなのか?等はabcさんしかわかりません。
RichTextBoxコントロールをご使用なら、SaveFileメソッドで保存できますが、
TextBoxコントロールなら、String型の変数にでも代入してやり、
Printステートメントで保存したりする方法になると思います。
通常のプレーンテキストファイルをご所望なら後者でしょう。
Writeステートメントはごめんなさい、あまり詳しくありません。
(しかし、ヘルプを見ているとこれでもいけるみたいですが)
>Write,Printステートメント
WriteはいわゆるCSV形式で出力。データはカンマ区切り。文字列はダブルクォートで囲む
Write #1,a,b,c
の場合a,b,cの各データがカンマで区切られ次のWriteステートメントが来ると改行します。
もちろん改行コードを入れると改行します
Printは文字列をダブルクォートで区切らずそのまま入れますが
Write#1a,a,c
の用にしたときにTABで区切ったと思います。
うろ覚えですが・・・
それと、abcさん。故意なのかどうかは分かりませんがOpenステートメントが見あたらないのですがOpenステートメントはデータの読み書きの命令の直前に書いた方がいいですよ
ツイート | ![]() |