| 2018/01/28(Sun) 21:05:37 編集(投稿者)
■No10873に返信(eoさんの記事)
>ドライブ名取得とはチョット違いますが >ファイル名入力でcsvファイルを取得みたいな? >Windowsらしくてみなさんわかりやすいかも? >USB差し込んだと同時に全て完了がカッコ良いんでしょうけど笑 > >ファイル名入力 初期値="*.csv",プロンプト="csvファイルを選択してください",&csv
なるほど、これもいいですね。 確かに自動取得するとしても、例えばUSBメモリ等が複数挿さっていたらどう すんだ、との心配もありますし。 「ドライブ名取得」コマンドなんてのがあるといいんですけどね。
-----------------------------
その辺りでちょっと試していて思いつきました。 USBメモリを挿した時点で、通常はOSから何らかのメッセージがドライブ名 入りで出るはずだから、それを見てから次の処理を実行させる。
例えば 書き出し CSV,"マスター.csv",終了状態=&実行リターン,* メニュー2 &menuD,3,(10,20),"USBメモリを入れたドライブを指定","D,E,F,G","H,I,J,K" cond(&menuD<1 .or &menuD>8) return &Drive名=#対応文字列("D,E,F,G,H,I,J,K",&menuD)+":\" ファイル複写 "マスター.csv",&Drive名,終了状態=&実行リターン ・・・・・・(複数ファイルの場合くり返す) 以上は送る側で
次に受ける側も同様に メニュー2 &menuD,3,(10,20),"USBメモリを入れたドライブを指定","D,E,F,G","H,I,J,K" cond(&menuD<1 .or &menuD>8) return &ぱ=#データパス名 &CSVfile名=#対応文字列("D,E,F,G,H,I,J,K",&menuD)+":\マスター.csv" ファイル複写 &CSVfile名,&ぱ,終了状態=&実行リターン ・・・・・・(複数ファイルの場合くり返す) 表 "マスター.tbx" 行削除 *,圧縮 読み込み CSV,"マスター.csv",終了状態=&実行リターン,*
今更ながら私の好きな「メニュー2」ですいません。(^^;) こんな感じで後日実データで実験してみることにします。
|