連番をつけるマクロNo.26422
Jerry さん　09/03/28 10:08
　
データ1行ごとに連番をつけたいのですがどのようにしたらいいでしょうか？（マク
ロでできませんでしょうか？）具体的には次のようなことをしたいと思っています。

----------------------------
東京
神奈川
千葉
埼玉
栃木
群馬
----------------------------

というデータがあった場合，

----------------------------
01_東京.jpg
02_神奈川.jpg
03_千葉.jpg
04_埼玉.jpg
05_栃木.jpg
06_群馬.jpg
----------------------------

というように改変したいと思っています。

単純につけるだけならばできそうなのですが，例えばデータが6行だった場合には6行
目で終了，10行だった場合には10行目で終了，というようにする方法が分かりません。
情報をいただければ幸いです。
[ △ ]
RE:26422 連番をつけるマクロNo.26424
三月 さん　09/03/28 13:56
　
もっとスマートにできるかもしれないですが、
-----------------------------
gofiletop;                // ファイルの先頭から
#n = 1;
while(1){
  if(#n < 10) insert "0"; // １桁の場合は0を付ける
  insert str(#n) + "_";   // 行番号挿入
  golineend;              // 行末へ
  insert ".jpg";          // .jpgを付ける
  golinetop;              // 行頭に戻る
  down;                   // 次の行へ
  if(!result) break;      // 移動できなければ抜ける
  right;                  // 右に文字があるか？移動してみて確認
  if(!result) break;      // 移動できなければ最終行とみて抜ける
  left;                   // 左（行頭）へ戻る
  #n = #n + 1;            // 行をカウントアップ
}
-----------------------------
のようにすれば、要件をみたすかと。
[ △ ]
RE:26424 連番をつけるマクロNo.26425
Jerry さん　09/03/28 16:54
　
うまく行きました。ありがとうございます。助かりました。　<m(_ _)m>
[ △ ]