スモールビジネスのIT日誌

• (2009-03-09 16:21:55)

たまには書かないと忘れがちな秀丸マクロ。手作業でもできたが、処理したいテキスト文(F4説明文)があったので書く。

//-------------------------------

//「a0001」のようなアルファベット＋3ケタ数字の前に連番を入れるマクロ

//連番は「1」から開始。

//(失敗)searchdownコマンドでファイルエンド到達で終了という下記基本ロジックを試すが、

//(失敗)searchdownではeofを検知できないので最後の検索ワードで無限ループに陥る。

//(失敗)while( code != eof ){searchdown}

//繰り返しロジックは「while(1)」を使用する。クールな構文。

//-------------------------------

#i = 1;

$i = str(#i);

gofiletop;

while(1){

searchdown "[a-z][0-9][0-9][0-9]",regular;

if (result == false){

endmacro;

}

else {

left;

insert $i + ",";

#i = #i + 1;

$i = str(#i);

}

//デバッグ用の中断コード

// message $i;

// question "終了しますか？";

// if( result == yes ) {

// endmacro;

// }

}

endmacro;