• ベストアンサー

リストボックスのテキストを保存

リストボックスに追加されたテキストを名前を付けて保存をしたいのですがどんなコードを書いたらいいのかわからなかったので質問させていただきました。 開発環境はVisualStudio2008です。

質問者が選んだベストアンサー

  • ベストアンサー
  • imogasi
  • ベストアンサー率27% (4737/17068)
回答No.2

実行キッカケをボタンクリックとして Imports System.IO を Public Class Form1の前(外)に入れて Private Sub Button8_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button8.Click Dim i As Integer Me.ListBox1.Items.Add("東京") Me.ListBox1.Items.Add("神奈川") Me.ListBox1.Items.Add("千葉") Me.ListBox1.Items.Add("埼玉") MsgBox(Me.ListBox1.Items.Count) '-- Dim writer As StreamWriter writer = New StreamWriter("C:\Documents and Settings\XXXX\My Documents\NETTEXT.txt") For i = 0 To Me.ListBox1.Items.Count - 1 MsgBox(Me.ListBox1.Items(i)) writer.WriteLine(Me.ListBox1.Items(i)) Next i writer.Close() End Sub XXXXの箇所などは修正のこと。前半Items.Addの部分はテストのため 入れたもの。 結果はNETTEXT.txtをメモ帳で開いて確認する。

関連するQ&A

  • リストボックスの保存2

    リストボックスの全ての項目をテキストファイルに保存する方法を、先程教えて頂きスレッドを締めてしまったのですが、新たに問題が発生したのでこちらで質問させて頂きます。 先程教えて頂いた構文でリストボックスの項目をファイルに保存する事はできたのですが、追加保存されてしまい、繰り返して実行すると同じ内容のデータが増えてしまいます。追加保存ではなく全て内容を入れ替えるにはどうしたらよいでしょうか? ----------教えて頂いた構文----------- Dim hFile As Integer hFile = FreeFile() '<< 書き込むファイルをオープン Open "C:\Text.txt" For Append As #hFile Dim nCnt As Integer nCnt = 0 Do Until (nCnt >= List1.ListCount) '<< 書き込み Print #hFile, List1.List(nCnt) nCnt = nCnt + 1 '<< カウントアップ Loop Close #hFile '<< ファイルクローズ ----------------ここまで-------------- これですと、リストボックスに 東京 大阪 名古屋 上のように3つの項目があるとして、上記のコマンドを複数回行うと 東京 大阪 名古屋 東京 大阪 名古屋 東京 大阪 名古屋 とデータが重複してしまいます。 これを回避する方法を教えて下さい。

  • リストボックスのリストをコモンダイアログを使って保存

    タイトルにあるようにリストボックスの内容をテキストファイルにコモンダイアログを使って保存したいのですが、どのようにするのでしょうか? ちなみにコモンダイアログの「名前をつけて保存」は表示させることが出来ます。 宜しくお願いします

  • リストボックスの保存

    ■VB6.0 リストボックスの全ての項目をテキストファイルに保存する方法を教えて下さい。 色々試してみたのですが出来ませんでした;; よろしくお願い致します。

  • リストボックスからテキストボックスに連続入力

    リストボックス内を選択したときテキストボックス入力が上書きになるが空欄に順々に列記するコードをどなたかご教授のほどお願いします。

  • リストボックスの選択項目をテキストボックスへ

    リストボックス1の選択項目7項目を左列のテキストボックス10個のうち7個に反映するコードがわかりません。どなたかご教授のほどよろしくお願いします。

  • 動的なリストボックスにしたい

    シートAには縦にコード、名称があり、シートBには横にシートAのコードがあり、それぞれのコード下に属する値の一覧があるとします。 シートAではそれぞれの行にデータの入力規則のリストを設定して該当する行のコードに対応する値をリストボックスで選ばせるようにしたいと考えています。 実際のコードは3000程度あり定期的に追加されるものとして、追加作業の手間を減らすため範囲の名前設定等は使用しないようにしたいのですがいい方法はないでしょうか。 考えているのはOFFSETでシートAのコードをINDEXとMATCHを使ってシートBから該当コードの値一覧をリストボックスに反映できないかとやってみているのですが、文字数が多くなりデータの入力規則に落とし込めません。 また、ワークセルはできるだけ使用しないで実現できればと考えています。 いい方法がありましたら教えていただけると助かります。

  • リストボックスについて

    リストボックスの横幅は指定できるのでしょうか? リストボックスの見栄えを良くするため、リストボックス内にテーブルを使用 したいのですが可能でしょうか? 下図のように、コード+名称を1つの選択項目とする為、コードと名称の  桁位置を固定したいのですが、、、   aaa あああ bb いいいいい ccc ううううう 環境はIEです、宜しくお願いします 

    • ベストアンサー
    • HTML
  • コンボボックスのリストに追加

    歌手のアルバムリストを作成しています。 コンボボックスに新規入力した歌手の名前をコンボボックスのリストに追加し、既にある歌手名はそのままコンボボックスから選択できるようにしたいんですがどの様にコードを書いていいかわかりません。 お解りになる方がいらっしゃいましたらよろしくお願い致します。

  • リストボックスの保存方法を教えてください

    初心者です。VB.NET(VBのケースでもいいです)で、リストボックスにファイルからデーターを読み込み、項目を一覧表示し、その項目を追加、削除し、更新した内容をファイルに保存したいのですが、 データーの読み込み、追加、削除、まではできたのですが、ファイルに保存する方法がわかりません。 リストの項目すべてを取得して保存する方法を教えてください。 よろしくお願い致します。

  • リストボックス内の配列を保存・呼び出し

    お世話になります。 VB2005ユーザーです。 リストボックスに格納した配列をファイルへ保存・呼び出しをするにはどうすればいいのでしょうか? リストボックスにはTextbox1,2,3の内容を格納し、オーバーライドによりリストボックスにはTextbox1が表示されるようにすることはできたのですが、 SaveFileDialogを使って配列をファイルに保存する方法がわかりません。 http://dobon.net/vb/dotnet/file/xmlserializer.html こちらなどを参照させていただいたりしたのですが、よく理解できませんでした。 リストボックスに格納するコードは下記のようなものです。 Public Structure MyStruct Private _a As String Private _b As String Private _c As String Public Property a() As String Get Return _a End Get Set(ByVal Value As String) _a = Value End Set End Property Public Property b() As String Get Return _b End Get Set(ByVal Value As String) _b = Value End Set End Property Public Property c() As String Get Return _c End Get Set(ByVal Value As String) _c = Value End Set End Property ' ToStringメソッドをオーバーライドする Public Overrides Function ToString() As String Return Me._a End Function End Structure Private Sub リストに追加_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click Dim myStruct As New MyStruct myStruct.a = Textbox1.Text myStruct.b = Textbox2.Text myStruct.c = Textbox3.Text ' アイテム追加 ListBox1.Items.Add(myStruct) ListBox1.SelectedIndex = 0 End Sub 望む結果としては、リストボックスに格納した複数の配列をファイルに保存、呼び出し時には保存した内容を基にリストボックスに復元、という動作をして欲しいのです。 ご教示のほう、宜しくお願いいたします!!

専門家に質問してみよう