掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
データの件数を取得するには？ (ID:36795)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
いろいろな方法があります。 どんな形式のCSVか判りませんが、 各部署名1 各部署名1 各部署名2 各部署名2 各部署名2 各部署名3 各部署名3 の様な形だと、 TStringListに読み込んで、ソートして部署ごとの件数を数えるのではどうでしょうか？ var StringList1,StringList2:TStringList; S1 : String; I, Count : Integer; begin S1 := ''; Count := 0; StringList1 := TStringList.Create; //入力用 StringList2 := TStringList.Create; //出力用 try StringList1.LoadFromFile('csvfilename'); StringList1.Sorted := true; for I := 0 to StringList1.count - 1 do begin if S1 <> '' and S1 <> StringList1[I] then begin StringList2.Add(S1 + ':' + IntToStr(Count)); Count := 1; S1 := StringList1[I]; end; if S1 = '' or S1 <> StringList1[I] then begin Count := 1; S1 := StringList1[I]; end; if S1 = StringList1[I] then begin Inc(Count); end; end; finally StringList2.Savetofile('別ファイル名'); Freeandnil(StringList1); Freeandnil(StringList2); end; end; 発言者名は、こんな形はやめましょう。
←解決時は質問者本人がここをチェックしてください。
更新する
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.