- 510 名前：名無しさん＠お腹いっぱい。 mailto:sage [2008/03/08(土) 11:52:50 ID:jLIhwGcN0]
- マクロを組んでみたっす。
区切り文字はお好みで。
// GoSelLine.mac
#X = x; // 現在位置を記憶しておく
#Y = y;
// 行番号・選択行数の入力待ち
$Inp = input( "行番号・選択行数を指定してください（半角スラッシュで区切る）", "" );
#Pos = strstr( $Inp, "/" );
if( #Pos < 1 ) endmacro;
// 指定行番号と選択行数の抜き出し
#LineNo = val( midstr( $Inp, 0, #Pos ) );
if( ( #LineNo < 1 )||( linecount2 < #LineNo ) ) endmacro;
#SelCount = val( midstr( $Inp, #Pos + 1, strlen( $Inp ) - 1 ) );
if( ( #LineNo < 1 )||( linecount2 < #LineNo ) ) endmacro;
// 指定行に移動 → 選択開始 → 指定行数分移動 → 選択終了 → コピー
movetolineno 1, #LineNo;
beginsel;
movetolineno 1, #LineNo + ( #SelCount - 1 );
golineend2;
endsel;
copy;
moveto #X , #Y; // カーソル位置の現状復帰
|
 |
