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

名前

ホームページ(ブログ、Twitterなど)のURL (省略可)

本文 配列にカウントを入れていくなんてどうですか？ まず配列変数を用意して Dim intCount() As Integer ファイルを読む 読み込んだ数字の配列をカウントアップする ReDim Preserve intCount(読み込んだ数字) intCount(読み込んだ数字) = intCount(読み込んだ数字) + 1 この場合、無駄な領域が出来ますが、シンプルかと。 無駄な領域を二次元配列にして、 読み込んだ数字にヒットするまでぶん回し、 ヒットしなければ、配列にセット。 この場合、データ量によっては遅くなりますけど。