| |
一般ユーザのたけのこです。
処理相手がPGつーことで、かなりエラー処理を省いていますが以下のようなマク
ロでどうでしょう？ #NUMBER_COLUMNの値は行番号の桁数、$NUMBER_DELIMITER
の値は行番号とテキストの間の文字列です。
#NUMBER_COLUMN = 5;
$NUMBER_DELIMITER = " : ";
if(selecting){
#sx = seltopx;
#sy = seltopy;
#ex = selendx;
#ey = selendy;
escape;
moveto #ex, #ey;
#line = lineno;
#num = 0;
moveto 0, #sy;
while(#num == 0){
$num = input("start number", str(lineno));
if($num == ""){
endmacro;
}
#num = val($num);
}
setclipboard "";
while(lineno < #line){
golinetop;
beginsel;
golineend2;
$s = gettext(seltopx, seltopy, selendx, selendy);
call padding #num;
addclipboard $$return + $NUMBER_DELIMITER + $s + "\n";
escape;
#num = #num + 1;
right;
}
}else{
message "you must select text.";
}
endmacro;
padding:
$$s = str(##1);
while(strlen($$s) < #NUMBER_COLUMN){
$$s = " " + $$s;
}
return $$s;
(^^)/”
|
|