TSと申します。
　よろしくお願いします。

環境：XP、桐V9

　早速ですが、次のような処理をしたいと考えておりますが、上手くいきません。
●やりたいこと
　aaa.tblの最初の項目[busyo]が同じデータについて、その次（右側）以降の項目の
データを、[busyo]項目が同じものが続く間は、それらを１レコードとしてbbb.tblに書き出したい。

（例）
aaa.tbl
[busyo][no_01][kingaku]
1111,a012,123
1111,b12,234
2222,a65,345
3333,d23,456
3333,f45,567
3333,r98,678
3333,e55,789
4444,d56,321
・・・

これを

bbb.tbl
[syuukei]
1111_a012_123_b12_234
2222_a65_345
3333_d23_456_f45_567_r98_678_e55_789
4444_d56_321
・・・

のように、[busyo]項目が同じものが続く間は、各レコードの[no_01][kingaku]項目を最初の
レコードの後ろに付けるような、一括処理を作りたい。

　良い方法等ご存じの方がいらっしゃいましたら、その方法等をご教示頂ければと思います。
　よろしくお願いします。

いろいろな方法があると思いますが、一例として。(^^ゞ

*---------------------------------*
　＊これはWin桐の一括処理( .cmd )です
　変数宣言　数値　｛ &busyo ｝
　変数宣言　文字列｛ &no ｝
　変数宣言　数値　｛ &kingaku ｝
　変数宣言　文字列｛ &SP = "_" ｝

　表　"bbb.tbl"

　表　"aaa.tbl"
　並べ替え　｛ [busyo]昇順 ｝
　ジャンプ　行番号 = 先頭
┌繰り返し　( .not #eof )
│
│　&busyo = [busyo]
│　編集表　"bbb.tbl"
│　行追加　[syuukei] = #str( &busyo )
│
│　編集表　"aaa.tbl"
│┌繰り返し　( &busyo = [busyo] )
││
││　&no = [no_01]
││　&kingaku = [kingaku]
││
││　編集表　"bbb.tbl"
││　ジャンプ　行番号 = 最終
││　行訂正　[syuukei] = [syuukei] + &SP + &no + &SP + #str( &kingaku )
││
││　編集表　"aaa.tbl"
││　ジャンプ　行番号 = 次行
│└繰り返し終了
│
└繰り返し終了

　終了
*---------------------------------*

 aaa1.tbl
 [busyo][no_01kingaku]
 1111,_a012_123
 1111,_b12_234

と変換（読込して置換など）すれば、

 bbb1.tbl
 [busho][syuukei]

で併合の置換挿入
[busho]照合[busho]
[shuukei]複写2[no_01kingaku]
すれば一発で

  1111,_a012_123_b12_234

になるはずです。
まあ、中間表か項目の追加などが必要になるので一括処理のほうがいいですかね。。。

TSさん、こんにちは。
見本ファイルをアップしておきます。
連結した文字列を作業項目に生成し、行集計してもできます。
この一連の動作を括処理にすればいいかもしれません。

1)[syuukei](aaa.tblの作業項目)：項目計算式または置換式
#cond( #直前値([busyo],"")<>[busyo],#progn(#set(STR,""),#set(STR,[busyo]+"_"+[no_01]+"_"+[kingaku])) ,1, #set(STR,&STR+"_"+"_"+[no_01]+"_"+[kingaku]))

2)行集計の設定
最初の画面
・集計ｸﾞﾙｰﾌﾟにチェック入れる
・集計ｸﾞﾙｰﾌﾟ：小計：[busyo]
・ｸﾞﾙｰﾌﾟ項目で並べ替えるにチェック入れる
次の画面
・小計の計算式：syuukei：#項目値
実行

3)集計行のみ表示する
4)bbb.tblに書き出しまたは読み込み

なお、行集計のコマンドは、(2)(3)を１行で書けます。（履歴だと別々になります。）

アックン(=^･^=)

見本ファイルはV9-2006（V9-2004sp3＝最新版）で作成しました。
ファイルの式は正しいのですが、板に書いた式が違っていたので、訂正しておきます。m(__)m

#cond( #直前値([busyo],"")<>[busyo],#progn(#set(STR,""),#set(STR,[busyo]+"_"+[no_01]+"_"+[kingaku])) ,1, #set(STR,&STR+"_"+[no_01]+"_"+[kingaku]))

アックン(=^･^=)

ONnoji 様、うにん　様、アックン　様

res いただきまして有難うございます。

おかげざまで、出来るようになりました。
大変助かりました。

本当に有難うございました。

■No806に返信(ＴＳさんの記事)
> ONnoji 様、うにん　様、アックン　様
> res いただきまして有難うございます。
> おかげざまで、出来るようになりました。

ＴＳさん、こんにちは。

解決したとのことで、回答者の一人としては安堵していますよ。
おそらく、私( ONnoji )以外の回答者の方も同じ感想を持たれていると思いますよ。

これから以下に小姑みたいなことを書きますが、
ＴＳさん、どうか気を悪くしないでくださいね。

解決したのは嬉しいことなのですが〜、
この掲示板を閲覧していらっしゃる他に人のは、
どのように解決されたのかな〜？？？、と疑問を持たれた人が多いだろうと思います。
もちろん、回答者である私( ONnoji )も同じ感想を持っていますよ。

きっとお忙しいだろうと思いますので、詳しく説明していただく必要はありませんが…

もしも出来るならば、
Ａ法で解決！とか〜〜、
Ａ・Ｂ・Ｃ法のすべてで解決とか〜〜、
どのようにして問題を解決されたのかをお書きいただければ〜〜、
この掲示板を閲覧していらっしゃる人たちにとても参考になると思いますよ。

＜追伸＞

くどくどと小姑みたいなことを書きましたが、
ＴＳさん、どうか気を悪くしないでくださいね。

ONnoji　様

res 
遅くなって申し訳ありません。

>どのように解決されたのかな〜？？？、と疑問を持たれた人が多いだろうと思います。

ONnoji様方法と、うにん様方法の両方を試しました。
その結果、両方ともに期待する結果となりました。
今回は、一括処理で行いたかったので、最終的には、ONnoji様に
教えていただいた方法で行うつもりです。

余談ですが、テストデータではうまく言ったのですが、業務用に
動かそうと思ったところ、桐の仕様の4000文字に引っかかってしまいました。
う〜それでも、工夫して何とかしようと考えている今日この頃です。

ＴＳさん、こんにちは。

ONnojiです。

ご返事を書いてくださってありがとうございます。

ところで…
> ONnoji　様
今後は「様」付けはご遠慮ください。

> 余談ですが、テストデータではうまく言ったのですが、業務用に
> 動かそうと思ったところ、桐の仕様の4000文字に引っかかってしまいました。
> う〜それでも、工夫して何とかしようと考えている今日この頃です。

グッゲ！、４０００文字超えるんですか〜。