掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
データの件数を取得するには？ (ID：36794)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ここまで丸投げの質問では、なかなかレスが付かないと思います。 もうちょっと、ピンポイントの質問にされたほうがいいのでは？ 「ここまでやったが、ここがわからない」とかの方が回答者も 回答しやすいと思いますよ。 例えば、以下のような感じでしょうか？ var sl1, sl2, sl3, sll: TStringList; i1, i2, iCount: integer; begin sl1 := TStringList.Create; sl2 := TStringList.Create; sl3 := TStringList.Create; sll := TStringList.Create; try sl1.LoadFromFile('c:\部署.csv'); //データ形式＝部署 sl2.LoadFromFile('c:\データ.csv'); //データ形式＝部署,データ for i1 := 0 to Pred(sl1.Count) do begin iCount := 0; for i2 := 0 to Pred(sl2.Count) do begin sll.CommaText := sl2[i2]; if sll[0] = sl1[i1] then begin inc(iCount); end; end; sl3.Add(sl1[i1] + ',' + IntToStr(iCount)); end; sl3.SaveToFile('c:\件数.csv'); finally sl1.Free; sl2.Free; sl3.Free; sll.Free; end; end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.