| 2018/03/27(Tue) 14:09:34 編集(投稿者)
一応、一括処理のリストを掲げておきます。※一本道のプログラムは変更が面倒で実用性が乏しいので掲載しません。
【物件1から物件2へ変換.cmd】
印字終了 印字開始 #一括パス名 + "物件1から物件2へ変換タブ区切りテキスト.txt"
表 "物件1view.tbl"
ジャンプ 行番号 = 先頭 繰り返し ( .not #eof )
手続き実行 prc同名処理( [物件] ) /* これは[ジャンプ 行番号 = 次行]と等価 */
繰り返し終了
印字終了
シェル実行 #一括パス名 + "物件1から物件2へ変換タブ区切りテキスト.txt" /* 結果の確認 */
終了 /* 一括処理終了 */
手続き定義開始 prc同名処理( 文字列 &物件 ) 変数宣言 自動,整数{ &cnt }
&cnt = 1 繰り返し ( &物件 = [物件] )
手続き実行 prcテキスト出力( &cnt, &物件, [面積], [所有者], [住所] )
&cnt = &cnt + 1 ジャンプ 行番号 = 次行 繰り返し終了
印字 _13, _10, /* 改行 CR LF */
手続き定義終了
手続き定義開始 prcテキスト出力( 整数 &cnt, 文字列 &物件, 数値 &面積, 文字列 &所有者, 文字列 &住所 )
if ( &cnt = 1 )
印字 &物件, _09, #str( &面積 ), _09, &所有者, _09, &住所, /* 改行しない */ else
印字 _09, &所有者, _09, &住所, /* 改行しない */ end
手続き定義終了
【物件1から物件3へ変換.cmd】
印字終了 印字開始 #一括パス名 + "物件1から物件3へ変換タブ区切りテキスト.txt"
表 "物件1view.tbl"
ジャンプ 行番号 = 先頭 繰り返し ( .not #eof )
手続き実行 prc同名処理( [物件] ) /* これは[ジャンプ 行番号 = 次行]と等価 */
繰り返し終了
印字終了
シェル実行 #一括パス名 + "物件1から物件3へ変換タブ区切りテキスト.txt" /* 結果の確認 */
終了 /* 一括処理終了 */
手続き定義開始 prc同名処理( 文字列 &物件 ) 変数宣言 自動,整数{ &cnt }
&cnt = 1 繰り返し ( &物件 = [物件] )
手続き実行 prcテキスト出力( &cnt, &物件, [面積], [所有者], [住所] )
&cnt = &cnt + 1 ジャンプ 行番号 = 次行 繰り返し終了
印字 _13, _10, /* 改行 CR LF */
手続き定義終了
手続き定義開始 prcテキスト出力( 整数 &cnt, 文字列 &物件, 数値 &面積, 文字列 &所有者, 文字列 &住所 )
if ( &cnt = 1 )
印字 &物件, _09, #str( &面積 ), _09, &所有者 + "(" + &住所 + ")", /* 改行しない */ else
印字 "、" + &所有者 + "(" + &住所 + ")", /* 改行しない */ end
手続き定義終了
|