掲示板システム
ホーム
アクセス解析
カテゴリ
ログアウト
今日の日付の数をカウントするには？ (ID：35081)
名前
ホームページ(ブログ、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 CSV形式！？ですよくゎ？。 もしそうなら・・・以下を引き続きどうぞ もしそうでないなら・・・ここでさよなら procedure TForm1.Button1Click(Sender: TObject); var SL1,SL2 :TStringList; i :Integer; begin SL1 := TStringList.Create; SL2 := TStringList.Create; try SL1.Clear; SL1.LoadFromFile('c:\txt.txt');//テキストファイル読込み if SL1.Count > 0 then begin for i := 0 to SL1.Count - 1 do begin SL2.CommaText := SL1.Strings[i] ; //上記のTxtであれば //SL2.Strings[1]に日付、SL2.Strings[2]に時刻が //それぞれが格納される事でしょう。 //後は適当に比較などして今日の日付ならカウントします。 end; end; finally SL1.Free; SL2.Free; end; end; 余計なお世話ですが、CSVなら "kaj","09/07/06 17:15:30","yuo" "tyu","09/07/07 12:01:01","lmn" の様に書き出してもらうのが良いでしょう。 これなら各文字列データ内に空白文字やcommaが 入っても分かれませんので、曖昧さがなくなります。 って、もう遅い。
←解決時は質問者本人がここをチェックしてください。
戻る
掲示板システム
Copyright 2021 Takeshi Okamoto All Rights Reserved.