コンボボックスに外部のテキストファイルを設定するには？

解決

ジョナさん 2003-10-21 04:14:35 No: 109282

コンボボックスにxxxx.txtの形式のファイルを読み込みたいと思います。

xxxx.txt(xは任意の文字列)の内容を以下のようにし、
VBのコンボボックスに取り込みたいと思います。
AAAA
BBBB
CCCC

色々サイトを巡ってみましたが解決しませんでしたので、
是非お力を貸していただければと思います。

Say 2003-10-21 06:47:51 No: 109283

>色々サイトを巡ってみましたが解決しませんでしたので
一般に、そのものズバリを探しても見つからないほうが多いでしょうね。
通常は、似た処理を探して、あとは自分で応用します。

「テキストファイルを開いて、中身を読み出す方法」と
「文字列をComboBoxに追加する方法」をしらべて、
それらを組み合わせて実現してみてください。

Green Eyes 2003-10-21 07:55:24 No: 109284

こんなもので、どうでしょう

i=0
Open "Text.txt" For Input As #1  'ファイルをオープン
  Do While EOF(1) = False        'END OF FILE まで繰り返す
    i = i + 1                    'データが何個あるかカウントする
    Input #1, Tx(i)              'データのInput  Tx()は配列変数
  Loop
Close #1
Txn = i                          'データ個数をTxnに格納

Cmb1.Clear                       'Cmb1(コンボボックス)をクリアする
  If Txn > 0 Then                'データがあれば
    With Cmb1                    'コンボへの書き込みを開始
      .AddItem ""                '1番目を空白とする。（不要なら削除）
      For i = 1 To Txn           'データの個数だけ繰り返す
        .AddItem Tx(i)           'コンボにデータを書き込む
      Next i
    End With                     'コンボへの書き込みを終了
  End If

カウンター(Txn)が不要、Do Whileの記述等
いろんな方法があります。
これは、ほんの一例と言う事で・・・

ジョナさん 2003-10-22 21:30:05 No: 109285

解決いたしました。

応用技って色々できるようですね。

ありがとうございました！