掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
今日の日付の数をカウントするには？ (ID：35084)
名前
ホームページ(ブログ、Twitterなど)のURL (省略可)
本文
>kaj,09/07/06 17:15:30,yuo >tyu,09/07/07 12:01:01,lmn >ABC,09/07/08 20:21:00,XYZ >def,09/07/08 20:22:00,asd てことは改行されてて、他に日付らしいもん見つからんし 質問者は難しいことわかっとらんようなんで 目的を達成するだけやったら以下でええんちゃうか？ var i: Integer; StrList: TStringList; Cnt: Integer; begin // ファイルを読み込んで文字列リストに入れる StrList := TStringList.Create; StrList.LoadFromFile('ファイル名'); // カウントの初期化 Cnt := 0; // １行ずつ処理するi行目の文字列はStrList.Strings[i-1] for i := 1 to StrList.Count do begin // Pos(D,S)はSの文字列にDの文字列があれば位置を返しよる // なけりゃ0を返すんで0以上ならDの文字列があるということや // 今日の日付はFormatDateTimeで求めるか // やり方がわからなければEditボックスで手入力すればいい if Pos('09/07/08', StrList.Strings[i-1]) > 0 then Cnt := Cnt + 1; end; ShowMessage('カウント=' + IntToStr(Cnt)); // CreateしたクラスはFreeで破棄する StrList.Free; end; ちょっとずつ勉強して少しずつ機能ふやしていったらええんや。 ほな、がんばってや！
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.