| ■10948 / ) |
Re[2]: 桐でXMLファイル作成
|
□投稿者/ ONnoji -(2018/03/17(Sat) 17:31:41)
| > なお、印字コマンドでコントロール文字を展開するがデフォルトのオフの場合、
>
> &data = #文字置換( &data, "\", "\\" )
環境設定のコントロール文字を展開するがオンかオフかは、例えば以下のようにすると判定できる。
＜参考＞
手続き実行 prcTxtOutputModeGet( &コントロール文字を展開, &実行終了 )
手続き定義開始 prcTxtOutputModeGet( 参照 整数 &escapeCharacterUse, 参照 整数 &done )
変数宣言 自動，文字列｛ &icon, &title = "prcTxtOutputModeGet( )", &msg ｝
変数宣言 自動，文字列｛ &outputTxtFileName ｝
変数宣言 自動，文字列｛ &WQ = #jis( #hex("22") ), &line ｝
変数宣言 自動，整数 ｛ &error, &status ｝
変数宣言 自動，整数 ｛ &traceON = #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "ALL" ) .or #対応番号( #uc2( #変数( "INFmTraceModuleNameList" ) ), "INF" ) ｝
変数宣言 自動，文字列｛ &traceMsg = #cond( #変数( "INFmTraceFormPathAdd" ), &INFmMyWfmPath ) + &INFmMyWfmName + " hdl=" + #last( " " + #str( &hwindow ), 2 ) + ">" + &title ｝
**&traceON = 1
条件 ( &traceON ) トレース出力 &traceMsg + "を実行開始しました"
** Rev.78 2009.09.16 "フォームファイル名_info.txt" → "$$INFprcTxtOutputModeGet.txt"
**&outputTxtFileName = #ファイル名( &outputTxtFileName, 5 ) + "$$INFprcTxtOutputModeGet.txt"
&outputTxtFileName = #一括パス名 + "$$INFprcTxtOutputModeGet.txt"
&escapeCharacterUse = 0
&done = 0
印字終了
印字開始 &outputTxtFileName, 終了状態 = &status
** 戻り値 説明
** 1 ファイルの新規作成または開くことに成功。
** 0 共有違反以外の理由で、ファイルを作成できなかった（または開くことができなかった）。
** -1 他のプロセスがファイルを専有しているため、作成できなかった（または開くことができなかった）。
if ( &status = 1 )
&done = 1
印字 "## INFprcTxtOutputModeGet: " + &WQ + "tab=\t\t" + &WQ, _13, _10,
end
印字終了
if ( &done )
ファイル入力終了
ファイル入力開始 &outputTxtFileName, 終了状態 = &status
** 戻り値 説明
** 1 テキストを開いた。
** 0 共有違反以外のエラーが発生したため、ファイルを開くことができなかった。
** -1 他のプロセスがファイルを専有しているため、開くことができなかった。
&done = 0
if ( &status = 1 )
&done = 1
ファイル入力 &line, 行, 終了状態 = &error
** 戻り値 説明
** 1 テキストの読み込みに成功した。
** 0 テキスト読み込み時にエラーが発生した。
** -1 すべてのデータを読み終えた（EOF）。
&escapeCharacterUse = .not &error /* 成功 or EOF → 0 エラー → 1 */
end
ファイル入力終了
end
** Rev.78 2009.09.16 "$$INFprcTxtOutputModeGet.txt" を削除
ファイル削除 &outputTxtFileName, 終了状態 = &status
**条件 ( &traceON ) トレース出力 &traceMsg + " 引数：文字列 &outputTxtFileName = " + &outputTxtFileName + " ※Rev.78より固定ファイル名"
条件 ( &traceON ) トレース出力 &traceMsg + " 引数：参照 整数 &escapeCharacterUse ※戻り値 = " + #str( &escapeCharacterUse ) + " （印字コマンドでコントロール文字を展開するか否か）"
条件 ( &traceON ) トレース出力 &traceMsg + " 引数：参照 整数 &done ※戻り値 = " + #str( &done )
条件 ( &traceON ) トレース出力 &traceMsg + "を実行終了しました"
手続き定義終了
|
|
