VB6.0用掲示板の過去のログ(No.1)−VBレスキュー(花ちゃん)
[記事リスト]
[新規投稿]
[新着記事]
[ワード検索]
[過去ログ]
[管理用]
| 投稿日 | ： 2003/07/02(Wed) 19:00 |
| 投稿者 | ： はちこ |
| Ｅメール | ： |
| ＵＲＬ | ： |
| タイトル | ： ファイル内の件数をカウントする方法 |
初めて掲載いたします。
Inputで読み込んだシーケンシャルファイルを条件分岐によって、分けています。
分けた３つのデータの各カウントをログに表示させたいのですが、うまくいきません。
うまくいかないというのは、A,B,Cのデータが混在しているファイルの場合ひとつしか表示しません。
カウントした結果は、P_LOGに転記しています。
かなりつたない現状説明ですが、分かっていただけるか心配ですが、助けてください！
（ログの表示方法が間違っているかもしれないですが…）
↓フォーム記述
Private Sub TORIKOMI_DATA(H_TXT As String)
Dim A_COUNT As Integer
Do Until EOF(DATA)
データの読み込み記述
：
Select Case CASE_KUBUN
Case A
A_COUNT = A_COUNT + 1
P_LOG = " Aデータ :" & A_COUNT & "件"
Case B
B_COUNT = B_COUNT + 1
P_LOG = " Bデータ :" & B_COUNT & "件"
Case Else
C_COUNT =C_COUNT + 1
P_LOG = " Cデータ :" & C_COUNT & "件"
End Select
Loop
- 関連一覧ツリー
（★ をクリックするとツリー全体を一括表示します）
- 返信フォーム
（この記事に返信する場合は下記フォームから投稿して下さい）