$付きの単語コピー
No.02979
たぐち
さん 02/01/29 11:45
田口と申します｡
今月24日に秀丸エディタ情報交換で下記の質問「$付きの単語」
を投稿したものです。
マクロでやるのが良いのでは、という返事が有りました。
若しかして既に誰かが作成しているのではと思い、インターネット
を検索しましたが見つかりませんでした。
（Perlの行をコメント可する、などは有った）
このようなマクロが既にあるのか情報をお願いします。
無ければ作成したいと思いますが、当方、秀マクロは簡単な
ものを幾つか作成した事は有るのですが、直ぐには出来ません。
まずは、アドバイスをお願いします。
-------------------------------------------------------
田口、Perlをこよなく愛するものです。
Perlの変数は、$scalar、@array、%hashのように単語の頭に
特殊文字が付きます。変数を単語コピーしてペーストする時、
特殊文字が付いてきません。
これをなんとか出来ないでしょうか?
私の希望では「単語コピー」が、もし単語の先頭に$、@、%が
有ったらそれも一緒にコピーする、というものであると
嬉しいのですが。
-------------------------------------------------------
[
△
]
RE:02979 $付きの単語コピー
No.02980
ながさわ
さん 02/01/29 12:24
こんにちは、昼食中の長澤です。
とりあえずこんな感じでどうでしょう？
// 現在のカーソル位置を記憶
#x = x;
#y = y;
// とりあえず単語選択
selectword;
// 単語終了位置を記憶
#endx = selendx;
#endy = selendy;
// 単語先頭に移動
moveto seltopx, seltopy;
// 選択状態を解除
escape;
// 単語の左に移動
left;
// 単語の左の文字をチェック
if(strstr("$%@", char(code)) == -1){
// $%@のいずれでもなければ、カーソルを戻して普通に単語コピー
right;
copyword;
}else{
// $%@のいずれかなら、その位置から単語終了位置までコピー
beginsel;
moveto #endx, #endy;
copy;
}
// 元々のカーソル位置に移動
moveto #x, #y;
[
△
]
RE:02980 $付きの単語コピー
No.02981
たぐち
さん 02/01/29 12:30
>こんにちは、昼食中の長澤です。
こんにちは、昼食済んで返ってきた所です。
>とりあえずこんな感じでどうでしょう？
有り難う御座います。（早い！）
早速、使ってみます。
[
△
]
RE:02981 $付きの単語コピー
No.02984
たぐち
さん 02/02/02 18:18
こんにちは、休みも出社の田口です。
作成頂いたマクロ、調子いいです。
これとペアで使うPerl変数の選択マクロを作ってみました。
Perl変数コピーをPF5に、Perl変数選択をPF6に設定し、
単語コピーをCtrl+PF5に、単語選択をCtrl+PF6に設定すると、
かなり快適に編集できます。
もっと早く聞いときゃ良かった。
有り難う御座いました。
// Perl変数、または単語を選択
// PerlVarSelect.mac
// 2002-02-02xxxxxx@tokyo.pm.org
//（昼食中の長澤さんからのコードを借りて）
// 現在位置を記憶
#x = x;
#y = y;
// とりあえず単語選択
selectword;
// 単語終了位置を記憶
#endx = selendx;
#endy = selendy;
// 単語先頭に移動
moveto seltopx, seltopy;
// 選択状態を解除
escape;
// 単語の左に移動
left;
// 単語の左の文字をチェック
if(strstr("$%@", char(code)) == -1){
// $%@のいずれでもなければ、カーソルを戻して普通に単語選択
right;
selectword;
}else{
// $%@のいずれかなら、その位置から単語終了位置まで選択
beginsel;
moveto #endx, #endy;
}
// ___END___
[
△
]