-PR-
締切り
済み

VBでテキストに保存したいのですが。

  • 困ってます
  • 質問No.85152
  • 閲覧数437
  • ありがとう数6
  • 気になる数0
  • 回答数2
  • コメント数0

お礼率 5% (2/36)

VBでプログラムを勉強してるのですが、リストボックスの内容をテキストに保存したいのです。しかし、保存した内容に””がついて保存されます。
””がつかないように保存したいのですがどうしたらよいでしょうか教えていただきたいと思います。
通報する
  • 回答数2
  • 気になる
    質問をブックマークします。
    マイページでまとめて確認できます。

回答 (全2件)

  • 回答No.1
レベル10

ベストアンサー率 31% (47/149)

Printステートメントを使ったらどうですか? Writeステートメントを使うと""がつきますが、 Printステートメントだとつきませんよ。 ソースはこんな感じです。WriteとPrintを比較してみてください。 Open "aaa.txt" For Output As #1 Write #1, "aaaa" Print # ...続きを読む
Printステートメントを使ったらどうですか?
Writeステートメントを使うと""がつきますが、
Printステートメントだとつきませんよ。

ソースはこんな感じです。WriteとPrintを比較してみてください。

Open "aaa.txt" For Output As #1
Write #1, "aaaa"
Print #1, "aaaa"
Close #1


  • 回答No.2
レベル8

ベストアンサー率 71% (5/7)

zerosixさんが言うように、print文を使うといいですよ。 一応、下に簡単なプログラムを載せておきます。 Private Sub Command1_Click() Dim i As Integer CommonDialog1.Filter = "テキストファイル(*.txt)|*.txt" CommonD ...続きを読む
zerosixさんが言うように、print文を使うといいですよ。
一応、下に簡単なプログラムを載せておきます。


Private Sub Command1_Click()

Dim i As Integer

CommonDialog1.Filter = "テキストファイル(*.txt)|*.txt"
CommonDialog1.CancelError = True
On Error GoTo err

CommonDialog1.ShowSave   '保存ダイアログボックスの表示

i = 0
Open CommonDialog1.FileName For Output As #1
Do Until List1.List(i) = ""
Print #1, List1.List(i)
i = i + 1
Loop
Close #1

err:

End Sub

Formに配置するのは、Command,listbox,commondialogです。(この場合)
commondialogがツールボックスになければ、[プロジェクト]の[コンポーネント]から(Microsoft Common Dialog Control 6.0)にチェックをいれます。
このコンポーネントにより、任意のファイル名で保存ができます。
このQ&Aで解決しましたか?
関連するQ&A
-PR-
-PR-
こんな書き方もあるよ!この情報は知ってる?あなたの知識を教えて!
このQ&Aにはまだコメントがありません。
あなたの思ったこと、知っていることをここにコメントしてみましょう。

その他の関連するQ&A、テーマをキーワードで探す

キーワードでQ&A、テーマを検索する
-PR-
-PR-
-PR-

特集


いま みんなが気になるQ&A

関連するQ&A

-PR-

ピックアップ

-PR-
ページ先頭へ