(現在 過去ログ2 を表示中)

HOME HELP 新規作成 新着記事 トピック表示 ファイル一覧 検索 過去ログ

[ 最新記事及び返信フォームをトピックトップへ ]

■323 / inTopicNo.1)  #ファイル検索の時間
  
□投稿者/ たゆー -(2007/06/25(Mon) 19:15:32)
    たまたま8,000個くらいのファイルがあったので、
    「#ファイル検索」を、行ってみました
    イベントは・・・

    >  表 "ファイル検索.tbl"
    >  行削除 *
    >  表整理 余白割合=0
    >
    >  &i=1
    >  &選択ファイル名=#ファイル検索("d:\test\*.txt",&i)
    >  繰り返し(&選択ファイル名<>#u)
    >    行追加 [ファイル名]=&選択ファイル名,[時刻]=#時刻
    >    &i=&i+1
    >    &選択ファイル名=#ファイル検索("d:\test\*.txt",&i)
    >  繰り返し終了

    集計結果です(別に意味はありません)
    -----時刻----件数
    18時58分41秒 716
    18時58分42秒 432
    18時58分43秒 333
    18時58分44秒 280
    18時58分45秒 249
    18時58分46秒 224
    18時58分47秒 207
    18時58分48秒 192
    18時58分49秒 181
    18時58分50秒 172
    18時58分51秒 164
    18時58分52秒 157
    18時58分53秒 150
    18時58分54秒 144
    18時58分55秒 139
    18時58分56秒 134
    18時58分57秒 131
    18時58分58秒 127
    18時58分59秒 122
    18時59分00秒 120
    18時59分01秒 116
    18時59分02秒 115
    18時59分03秒 111
    18時59分04秒 110
    18時59分05秒 106
    18時59分06秒 105
    18時59分07秒 103
    18時59分08秒 102
    18時59分09秒 100
    18時59分10秒 98
    18時59分11秒 96
    18時59分12秒 95
    18時59分13秒 93
    18時59分14秒 92
    18時59分15秒 90
    18時59分16秒 89
    18時59分17秒 88
    18時59分18秒 87
    18時59分19秒 86
    18時59分20秒 85
    18時59分21秒 83
    18時59分22秒 82
    18時59分23秒 81
    18時59分24秒 81
    18時59分25秒 80
    18時59分26秒 79
    18時59分27秒 78
    18時59分28秒 77
    18時59分29秒 76
    18時59分30秒 76
    18時59分31秒 74
    18時59分32秒 75
    18時59分33秒 73
    18時59分34秒 73
    18時59分35秒 61


引用返信 [メール受信/OFF] 削除キー/
■325 / inTopicNo.2)  Re[1]: #ファイル検索の時間
□投稿者/ うにん -(2007/06/26(Tue) 12:10:33)

    > >  &選択ファイル名=#ファイル検索("d:\test\*.txt",&i)

    > 集計結果です(別に意味はありません)
    > -----時刻----件数
    > 18時58分41秒 716

    > 18時59分35秒 61

    &iが大きいほど時間がかかるこということですよね。8000個あると10倍も違うわけですね。
引用返信 [メール受信/OFF] 削除キー/
■328 / inTopicNo.3)  Re[1]: #ファイル検索の時間
□投稿者/ 原山 正洋 -(2007/07/13(Fri) 22:31:12)
    No323に返信(たゆーさんの記事)
    お久しぶりです
    面白そうなので、1年ぶりのブランクを埋める
    リハビリに、これを perl と桐でならば
    どのくらいで処理できるか考えて見ます。
    もっとも最近は、桐どころかパソコンさえも
    触れない状況がありますので・・・
    さしずめ perl で検索部分は
    #search.pl#######
    @val = ();
    if (@file = <"d:\test\*.txt">) {
    for (@file) {
    push @val,localtime(time).",$_";
    }
    }
    こんな感じでテキストファイルに落として、
    桐に読み込むというようなイメージで
    一括処理を考えています。
    多分、数秒で終わるような気がしていますが
    間抜けな部分が出るだろうから、
    いつ出来るだろうか・・・


引用返信 [メール受信/OFF] 削除キー/



トピック内ページ移動 / << 0 >>

このトピックに書きこむ

過去ログには書き込み不可

Mode/  Pass/

HOME HELP 新規作成 新着記事 トピック表示 ファイル一覧 検索 過去ログ

- Child Tree -
- Antispam Version -