◀マクロトップへ
  • 199 マーク行を/集めてクリップボード/すべて削除

  • [199] マーク行を/集めてクリップボード/すべて削除 りーや 2005年09月11日 09:56

    わりと自分の中で利用頻度が高いのですが、類似ものが見当たらないので、、、
    面倒なのでPerlScriptのままです。

    データ系のちょっとした操作などに便利です

    ◇マーク行を集めてクリップボード
    MoveHistSet();
    GoFileTop();
    BookmarkNext();
    $newLn = ExpandParameter('$y');
    while($oldLn < $newLn){
    GoLineTop(1);
    GoLineEnd_Sel();
    $str = GetSelectedString(0);
    GoLineTop(1);
    if($oldLn < $newLn){
    $outStr = $outStr . $str . "\r\n";
    $oldLn = $newLn;
    BookmarkNext();
    $newLn = ExpandParameter('$y');
    }
    }
    use Win32::Clipboard;
    $CLIP = Win32::Clipboard();
    $str = GetSelectedString();
    $CLIP->Set( $outStr );
    MoveHistPrev();


    ◇マーク行をすべて削除
    MoveHistSet();
    GoFileEnd();
    $oldLn = ExpandParameter('$y') + 1;
    BookmarkPrev();
    $newLn = ExpandParameter('$y');
    while($oldLn > $newLn){
    GoLineTop(1);
    if($oldLn > $newLn){
    LineDeleteToEnd();
    Delete();
    $oldLn = $newLn;
    BookmarkPrev();
    $newLn = ExpandParameter('$y');
    }
    }
    MoveHistPrev();