□投稿者/ 一括小僧 -(2020/03/12(Thu) 11:24:45)
| >
> 印字開始 <ファイル名>，\
> 追加，\
> SJIS出力 = しない｜する，\
> 制御文字展開 = しない｜する，\
> 終了状態 = <変数名>
>
> なお、パスを含めたファイル名があまりにも長いと、それが原因で上手く行かない場合がありますのでご注意ください。
>
ヒントを戴き、ありがとうございました。
自己解決しました。
記述例：
変数宣言 固有, 数値{&i,&ok}
変数宣言 固有, 文字列{&圧縮,&圧縮pdf,&圧縮tbx,&引数｝
変数宣言 固有, 文字列{&圧縮ファイル名[5]={"圧縮その1","圧縮その2","圧縮その3","",""}}
変数宣言 固有, 文字列{ &ライン,&エラーファイル,&エラー,&詳細 } /* エラー処理用変数。使用していない変数もある。*/
エラー処理 手続き名 = エラー取得
条件 (&エラー<>"") 分岐 終了e
繰り返し &i=1,5
条件 (&i="") 繰り返し中止
&圧縮 = &圧縮ファイル名[&i]+".zip"
&圧縮pdf = #文字列(&i)+".pdf"
&圧縮tbx = #文字列(&i)+".tbx"
&引数 = "7z.exe a """+&圧縮+""" """+&圧縮pdf+""" """+&圧縮tbx+"""
印字開始 "zipcmd.bat"，追加，SJIS出力=する，制御文字展開=する
印字 &引数 /* 改行コード「_13」は印字コマンドが自動付与する。*/
印字 "exit" /*「exit」を末尾に記述しないとコマンドプロンプトが自動終了しない。 */
印字終了
シェル実行 "zipcmd.bat", 同期=しない, プロセス番号=&ok
条件 (&エラー<>"") 分岐 終了e
プロセス終了 &ok
条件 (&エラー<>"") 分岐 終了e
ファイル複写 "zipcmd.bak", "zipcmd.bat"
条件 (&エラー<>"") 分岐 終了e
繰り返し終了
メッセージボックス "処理終了" ,"圧縮しました。 ",ボタン指定=1, 制御文字展開=する
名札 終了e
条件 (&エラー<>"") メッセージボックス "処理失敗" ,"圧縮できませんでした。 ",ボタン指定=1, 制御文字展開=する
エラー処理
条件 (&エラー<>"") 中止 表 *
*
* 手続き
*
* エラー全般処理
手続き定義開始 エラー取得()
&ライン = #文字列(&lineno)
&エラーファイル = &cmdname
&エラー = &errmsg
&詳細 = &detail
メッセージボックス "エラー表示","\
エラーが発生しました。\n\n\
エラー発生の行番号 ：「"+#文字列(&lineno)+"」\n\
エラーの発生したファイル ：「"+&cmdname+"」 \n\
エラーメッセージ ：「"+&errmsg+"」 \n\
エラー詳細 ：「"+&detail+"」 \n\n\
一括処理を終了します。\
",ボタン指定=1, 制御文字展開=する
手続き定義終了
|
解決済み! |
