| > 変数名もこんなカッコイイの付けたことないです笑 > > さっそく改良してみました。 > > 行追加版_改
拝見しました。
当方は、はるか昔の8ビットマイコン時代の漢字が使えない世代なものですから、
むしろ、漢字の変数名を使うことに慣れていないワケです。(^^ゞ
さて、拝読したところ、以下の点に気が付きましたので、お知らせいたします。
なお、罫線によるダイアグラムは拙作:整形ユーティリティで出力したものです。
◇ ◇ ◇ ◇ ◇ ◇ ◇
名札 メイン
*
手続き定義開始 ファイル検索() 変数宣言 固有, 文字列{ &ファイル名, &更新日, &更新時刻, &フォルダ, &拡張子, &検索ファイル, &表題 }, \ 数値{ &ファイル数 = 1, &ファイルサイズ, &multiTblNum }
&フォルダ="C:\" フォルダ名入力 初期値 = &フォルダ, プロンプト = "フォルダ選択", 許可作業=*,&フォルダ &拡張子 = "*.tbl" &検索ファイル = &フォルダ + &拡張子
*表 "ファイル検索.tbl" ← フォームの編集対象表なので不要です ※一括処理ならば必要ですが…
編集表 "ファイル検索.tbl" 解除 行削除 *, 圧縮 多重化 /* 多重化した表を編集表にする */ &multiTblNum = #is表 /* &multiTblNum のデータ型は整数 */
┌繰り返し │ │ &ファイル名=#ファイル検索(&検索ファイル,&ファイル数) │ │┌ケース開始 │├─ケース (&ファイル名<>"") ││ ││ 表 &ファイル名, モード=参照 ││ 編集表 &ファイル名 ││ ││ &表題 = #表題 ││ * 終了 表 編集対象表 ││ 中止 表 編集対象表 ││ ││ *編集表 &hwindow ← これは不要です 多重化した意味が無くなります ││ ││ &ファイルサイズ = #ファイルサイズ( &ファイル名 ) ││ &更新日 = #ファイル属性( &ファイル名, 2 ) ││ &更新時刻 = #ファイル属性( &ファイル名, 3 ) ││ ││ 編集表 &multiTblNum ││ 行追加 [番号]=&ファイル数, … ││ │├─ケース (&ファイル名="") ││ ←┼──繰り返し中止 │└ケース終了 │ │ 代入 &ファイル数 = &ファイル数 + 1 └繰り返し終了
終了 表 &multiTblNum /* 多重化した表を閉じる */ 編集表 &hwindow /* &hwindow はフォームの定数 */
並べ替え {[ファイル名]昇順}
手続き定義終了
|