掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
今日の日付の数をカウントするには？ (ID：35080)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
ある程度検索文字列が長いのであれば、PosEx を使う事ができます。 uses ..., StrUtils; function SubStrCount(aFileName: TFilename; aSubStr: String): Integer; var SL: TStringList; Position: Integer; begin result := 0; SL := TStringList.Create; try SL.LoadFromFile(aFileName); Position := 1; repeat Position := PosEx(aSubStr, SL.Text, Position); if Position > 0 then begin Inc(Position, Length(aSubStr)); Inc(result); end; until(Position = 0); finally SL.Free; end; end; 呼び出し方はこんな感じで。 procedure TForm1.Button1Click(Sender: TObject); var Cnt: Integer; begin Cnt := SubStrCount('C:\Test.txt', FormatDateTime('YY/MM/DD', Date)); ShowMessage(IntToStr(Cnt)); end;
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.