桐質問掲示板 [One Topic All View / Re[3]: 特定文字の手前の行で改行 / Page: 0]

(現在過去ログ69 を表示中)

[ 最新記事及び返信フォームをトピックトップへ ]

■10608 / inTopicNo.1)

　特定文字の手前の行で改行

□投稿者/ 一太郎 -(2017/07/27(Thu) 19:48:22)

こんにちは、ご教示願います。
【住所.tbl】は行数が決まっていなく＜項目A＞"address"の手前で改行して【変換.tbl】を一括処理で構築できますか。
宜しくお願い致します。

【住所.tbl】
-----------------------------------------------------------------------------
＜項目A＞
address
郵便番号
住所
氏名
電話番号
address
郵便番号
住所
氏名
電話番号
その他１
address
郵便番号
住所
氏名
電話番号
その他１
その他２
-----------------------------------------------------------------------------

【変換.tbl】
-----------------------------------------------------------------------------
＜項目A＞　＜項目B＞　＜項目C＞　＜項目D＞　＜項目E＞　＜項目F＞　＜項目G＞
address　　郵便番号　　住所　　　氏名　　　　電話番号
address　　郵便番号　　住所　　　氏名　　　　電話番号　その他１
address　　郵便番号　　住所　　　氏名　　　　電話番号　その他１　その他２
-----------------------------------------------------------------------------

引用返信 [メール受信/OFF] 削除キー/

■10609 / inTopicNo.2)

　Re[1]: 特定文字の手前の行で改行

▲▼■

□投稿者/ まさやん -(2017/07/27(Thu) 22:49:39)

2017/07/27(Thu) 23:17:01 編集(投稿者)
2017/07/27(Thu) 23:13:09 編集(投稿者)
2017/07/27(Thu) 23:07:36 編集(投稿者)
2017/07/27(Thu) 22:57:36 編集(投稿者)
2017/07/27(Thu) 22:55:17 編集(投稿者)
2017/07/27(Thu) 22:54:33 編集(投稿者)
2017/07/27(Thu) 22:52:52 編集(投稿者)

■No10608に返信(一太郎さんの記事)
> こんにちは、ご教示願います。
> 【住所.tbl】は行数が決まっていなく＜項目A＞"address"の手前で改行して【変換.tbl】を一括処理で構築できますか。
> 宜しくお願い致します。

こんばんは。

文字列の　配列変数　　例えば　　&文字[10]　を使って

上から繰り返しコマンドで
文字を　&文字　に代入していきます

表　変換
表　住所

変数宣言　文字列,{&文字[10]}
変数宣言　整数,{&繰=0}

繰り返し　&繰+1

条件　([項目Ａ]="address")　&繰=1
if　(&繰=1 .and #行番号>1)
　編集表　変換
　行追加　[項目Ａ]=&文字[1],[項目Ｂ]=&文字[2]・・・省略
　編集表　住所
　変数宣言　文字列,{&文字[10]}
end
&文字[＆繰]=[項目Ａ]

ジャンプ　行番号=+1
条件　(#終端行)　繰り返し中止
繰り返し終了

と思いつきました。

勿論　　前後に　必要な　コマンドは省略してあります。

明日　サンプルを　アップしてみます。

ふと思い付きで書きました　結果は　思うようにならなかったらすみません

引用返信 [メール受信/OFF] 削除キー/

■10610 / inTopicNo.3)

　Re[1]: 特定文字の手前の行で改行

▲▼■

□投稿者/ 悲しげ -(2017/07/28(Fri) 01:21:35)

■No10608に返信(一太郎さんの記事)
こういう場合は印字コマンドを使うとシンプルにできます。

表　"住所a(変換前).TBX"
印字開始　"$$$.txt",制御文字展開=しない,終了状態=&実行リターン
　繰り返し( .not #eof)
　　条件([項目Ａ]="address")　印字　/*項目値が「address」なら手前で改行する→※*/
　　印字　[項目Ａ],"ζ",　　　　　　/*区切り文字「ζ」でテキスト出力、末尾に「,」なら改行しない*/
　　ジャンプ　行番号=次行
　繰り返し終了
印字終了
終了　表　編集対象表
表　"住所b(変換後).TBX"　　/*項目は[項目Ａ]～[項目Ｚ]まで随意*/
ジャンプ　行番号=終端　　　/*前回のデータがあれば末尾に読み込む*/
読み込み　テキスト, "$$$.txt", 区切り="ζ",終了状態=&実行リターン,*
****↓上記※で改行のみの空行を作ってしまったのでそれを削除する
絞り込み　[項目Ａ]=""　　　/*とにかく先頭項目*/
条件(&選択件数>0)　行削除　終了状態=&実行リターン
絞り込み解除　1

引用返信 [メール受信/OFF] 削除キー/

■10611 / inTopicNo.4)

　Re[2]: 特定文字の手前の行で改行

▲▼■

□投稿者/ 悲しげ -(2017/07/28(Fri) 02:05:21)

■No10610に返信(悲しげさんの記事)

　条件([項目Ａ]="address")　印字　/*項目値が「address」なら手前で改行する→※*/
　　↓
　条件([項目Ａ]="address" .and #行番号>1)　印字　/*項目値が「address」なら手前で改行する、ただし先頭行以外*/

とすれば無駄な空白行が出なかったですね。(^^;)

引用返信 [メール受信/OFF] 削除キー/

■10612 / inTopicNo.5)

　Re[2]: 特定文字の手前の行で改行

▲▼■

□投稿者/ まさやん -(2017/07/28(Fri) 12:29:59)

サンプルをｱｯﾌﾟします。

すみません　昨日のコマンドは　最後の行が追加されないようでした。

修正サンプルです。

なお　バージョンが書いていないので　桐9　で作りました。ご了承ください。