| やまもとさんこんにちは、以下のように記述すればすっきりします。 規則的な命名をすれば繰り返しが使えるという例です。 オブジェクト操作は英字でobjectと表記します。 横位置は必要ないように思いましたが、一応つけています。 オブジェクトをコピーする時は複製を選ぶとオブジェクト名+"_0""_1""_8" と命名されるので、なるべく桐に任せて時間の節約をすればjisコードなどを 使わなくても簡単に文字列は生成できます。
手続き定義開始 変更() /* この手続きにより、各列の項目値表示用テキストオブジェクトと項目名表示用ラベルオブジェクトのソースを書き換え */ var int { &Icount,&Imax=10,&Icode=#J( "A" )-1 } , Str { &Shgobj ,&Shrobj ,&Shtobj ,&Sname ,&Smtex } for &Icount=1,&Imax /* 繰り返し の英字表記 */ &Shgobj = "u"+#全角(#STR(&Icount)) , &Shrobj = "a賞金名" + #全角(#str(&Icount)) &Shtobj = "a賞金名"+#全角(#str(&Icount)) + "_1" , &Smtex = "t"+#J(&Icode+&Icount) &Sname = "#合計( "+&項目[&番号+&Icount]+" )" object &Shgobj.グループソース = &Sname,&Shrobj.ソース=&ソース[&番号+&Icount]\ ,&Shtobj.ソース=&ソース1[&番号+&Icount],&Smtex{ソース=&項目[&番号+&Icount],横位置=&横表示[&番号+&Icount]} end /* 繰り返し終了 の英字表記 */ グループ選択解除 グループ選択 手続き定義終了
>
|