| 2017/11/17(Fri) 10:01:21 編集(投稿者)
2017/11/17(Fri) 10:00:06 編集(投稿者)
> 昨日、チラッと見かけたEOさんの配列変数バージョン、消えてる…
> 256KBまでなら速いかな？
さすが通りすがり様。
256KBしか変数に入らないのでレコード数の多いものには使えません^^;
変数領域サイズが最大256KBとは少なすぎる....
駄作ながら再度投稿します。
変数宣言 固有,数値{&i=1,&j,&e,&n=0},文字列{&sp="／"}
ファイル複写 "yoko_tate.tbl","yoko_tateX.tbl"
表 "yoko_tateX.tbl"
編集表 "yoko_tateX.tbl"
/* 配列変数の要素数を確定させる */
繰り返し (.not #EOF)
&n=&n+#対応文字列数2([担当],&sp)
ジャンプ 行番号=次行
繰り返し終了
/* 2度目の変数宣言が気になる */
変数宣言 固有,文字列{&名前[&n],&担当[&n]}
ジャンプ 行番号=先頭
/* データ切り出して配列変数へ */
繰り返し (.not #EOF)
&e=#対応文字列数2([担当],&sp)
繰り返し &j=1,&e
&名前[&i]=[名前],&担当[&i]=#対応文字列2([担当],&sp,&j)
&i=&i+1
繰り返し終了
ジャンプ 行番号=次行
繰り返し終了
/* 元データを削除後、配列変数を行追加 */
行削除 *, 圧縮
繰り返し &i=1,&n
行追加 [名前]=&名前[&i],[担当]=&担当[&i]
繰り返し終了
表形式編集
|
