Macro/投稿/67
をテンプレートにして作成
Land.to
[
ホーム
|
一覧
|
単語検索
|
最終更新
|
ヘルプ
]
開始行:
* マーク行を集めてクリップボード [#j6c59c51]
-ページ: [[Macro/投稿]]
-作者: [[りーや]]
-カテゴリー: pls
-投稿日: 2005-09-11 (日) 09:56:38
** メッセージ [#ee0e6b46]
#code(perl){{
# 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();
}}
----
#comment
終了行:
* マーク行を集めてクリップボード [#j6c59c51]
-ページ: [[Macro/投稿]]
-作者: [[りーや]]
-カテゴリー: pls
-投稿日: 2005-09-11 (日) 09:56:38
** メッセージ [#ee0e6b46]
#code(perl){{
# 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();
}}
----
#comment
ページ名: