投稿日 | : 2002/09/03(Tue) 10:12 |
投稿者 | : nobu |
Eメール | : |
URL | : |
タイトル | : Re^3: ファイルの表示方法 |
> List1.AddItem strMyFile(i)
> End If
> Next i
> で現在表示させているのですが、これを、strMyFile(i)を
> Left(strMyFile(i),11)が同一で、であったら、List1には
> FileName = Right(strMyfile(i),11)の一つを表示させ、
ここは 左1文字がAが複数あれば1ケのみ表示、Bが複数あれば
Bを1ケ表示....重複削除ですね。
List1にはAとBは表示されていてAをクリックすれば
Aの付くファイル名を順次読み出しては表示して行く...。
表示エリアはどこか別の場所に....。
重複削除のアルゴリズム
1件目のレードを読み込み、キーがAならAをキーにして同じものがあるか
最後まで探す。同じものがあれば出力しない。
最後迄言ったら2件目を読み、キーがBなら、Bをキーにして..繰り返し。
List1_Click() での表示方法
クリックした文字を取得、Aならファイル名の先頭がAのものを読み込み
表示、他のもAの付くファイルがあれば読み込み、...終わりまで繰り返し。
....順に1ケずつやられてみたら如何でしょうか?