Macro/投稿/67

  0
  1
  2
  3
  4
  5
  6
  7
  8
  9
 10
 11
 12
 13
 14
 15
 16
 17
 18
 19
 20
 21

# MarkLineClip.pls
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();