| > > 印字開始 <ファイル名>,\ > 追加,\ > 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, 制御文字展開=する 手続き定義終了
|