| |
ませまです。
> 取り敢えず、マクロを使えばどうでしょう? マクロなら相対位置でも指定可
>能になるので、ある意味より便利です。
>//-------------- Jump2lineno.mac ----------------------------------
行でなくて桁を変えたいということです．
以下のマクロはどうでしょう．
いいかげんな実装だけど，とりあえず動くと思います．
# 適当に改造して下さい(^^;
起動するとタイトルバーに「桁番号： 0」と表示されるので，
番号を入力したらジャンプできます．
//---------------------
// 指定した桁にジャンプするマクロ
// BS：戻る j: 下移動 k: 上移動
$t = "桁番号：";
$$t = $t + " " + "0";
#ime = imestate; if( imestate ) imeswitch;
$col = "0";
while (true) {
##in = inputchar( $$t );
if( ##in >= '0' && ##in <= '9' ) { // repeat
$$n = char(##in);
$col = $col + $$n;
if (leftstr($col,1) == "0" ) $col = rightstr($col, strlen($col)-1);
} else if (##in == 8) {
if ( strlen($col) > 0 ) $col = leftstr($col, strlen($col)-1);
} else if (##in == 'r') {
$col = "0";
} else if (##in == 'k') {
up;
} else if (##in == 'j') {
down;
} else break;
movetolineno val($col), lineno;
$$t = $t + " " + $col;
};
if( #ime ) imeswitch;
endmacro;
//---------------------
|
|