数字を読み取り、出てきた回数を表示させるためには？

解決

maru 2003-06-12 02:40:32 No: 107470

「サンプル.txt」に保存されている数字を読み取り、出てきた回数を
リストボックスに表示させたいのですがわかりません。

例  「サンプル.txt」の中身
（一行目）１０  １１  １２
（二行目）０９  １２  １５
（三行目）１０  １２  １６

例では、１２が３回、１０が２回、その他は１回なのでリストボックスには
１２・・・３回
１０・・・２回
０９・・・１回
１１・・・１回
１５・・・１回
１６・・・１回
と表示させるプログラムをぜひともよろしくお願いします。

名前なし 2003-06-12 02:59:27 No: 107471

なにが分からないのですか？
もっと細かく分割して質問して下さい。
・ファイルの読み込み方
・数字の出現回数の数え方
・リストボックスへの表示の仕方
などなど

これでは、『こういうプログラムを作って下さい』と
言っているようなものです。

maru 2003-06-12 06:02:28 No: 107472

質問の仕方がよくなかったみたいですいません。
ファイルの読み込み方はわかります。その後の数字の出現回数の数え方
の書き方がわからないんです。
まだVB始めたばかりだったのでほんとに申し訳ないです。
よろしくお願いします

maru 2003-06-12 06:03:22 No: 107473

maru 2003-06-12 06:04:12 No: 107474

二重カキコすいませんでした

oku URL 2003-06-12 06:37:42 No: 107475

配列にカウントを入れていくなんてどうですか？

まず配列変数を用意して
Dim intCount() As Integer
ファイルを読む
読み込んだ数字の配列をカウントアップする

ReDim Preserve intCount(読み込んだ数字)
intCount(読み込んだ数字) = intCount(読み込んだ数字) + 1
この場合、無駄な領域が出来ますが、シンプルかと。

無駄な領域を二次元配列にして、
読み込んだ数字にヒットするまでぶん回し、
ヒットしなければ、配列にセット。
この場合、データ量によっては遅くなりますけど。

oku URL 2003-06-12 06:40:21 No: 107476

すいません２個目文章が抜けました。
> 無駄な領域を二次元配列にして、
無駄な領域を作りたくない場合、二次元配列にして、

Say 2003-06-12 10:00:11 No: 107477

必ず２桁とわかってるなら、
ReadAllか何かで一気読みして、数えたい数文字列を空文字列でReplaceして、
変換前の文字列との文字数の差を半分にするのが手っ取り早いかと。

maru 2003-06-13 06:07:38 No: 107478

返事遅れてすいませんでした。
okuさんのやり方で試してみたところ、無事成功しました。
okuさん、sayさんありがとうございました。