テキストを引用付きで貼り付けるNo.19652
hhk_sumi さん 05/07/18 09:00
 
初めまして、hhk_sumiと申します。
秀丸エディタで、文章を引用記号付きで貼り付ける場合、まず引用記号付きで貼り付
けたい文章を選択して「引用付きコピー」を実行してから「貼り付け」を実行する必
要がありますが、
インターネットブラウザなどで普通にコピーした文字列を、引用記号付きで貼り付け
をする方法はないでしょうか。

インターネットの掲示板やブログなどで、引用記号付きのコメントを返す場合、上記
の方法があったら便利なんですが・・・。
お願いします。

[ ]
RE:19652 テキストを引用付きで貼り付けるNo.19653
山紫水明 さん 05/07/18 11:17
 
 hhk_sumiさん,こんにちは。

>インターネットブラウザなどで普通にコピーした文字列を、引用記号付きで貼
>り付けをする方法はないでしょうか。

 貼り付けたい画面上で次のマクロを実行してみてください。

//------- PasteQuote.mac -------------------------------------//
openreg "CURRENTUSER", "Software\\Hidemaruo\\TuruKame\\Config";
$quote = getregstr( "Quote" );
closereg;
beginclipboardread;
while( 1 ) {
    $s = getclipboard;
    if( $s == "" ) break;
    insert $quote + $s;
}
endmacro;
//----------------------------------------------------------//

     では, (^^)/~
                                        山紫水明(ユーザー)
                                        SANSHISUIMEI

[ ]
RE:19653 テキストを引用付きで貼り付けるNo.19654
hhk_sumi さん 05/07/18 13:57
 
山紫水明さん

山紫水明さんが書いてくださったマクロを実行すると、インターネットブラウザなど
でコピーした文字の、引用記号付きの貼り付けができました。
助かりました。 どうもありがとうございました!

[ ]
RE:19653 テキストを引用付きで貼り付けるNo.19655
h-tom さん 05/07/18 21:29
 

h-tom です。

>openreg "CURRENTUSER", "Software\\Hidemaruo\\TuruKame\\Config";
>$quote = getregstr( "Quote" );
これだと鶴亀メールの設定を見ているのでは?
秀丸だと"Software\\Hidemaruo\\Hidemaru\\Env"の"RefMark"ですね。
両端が"@"で囲まれているので、そのままでは使えませんが。

[ ]
RE:19655 テキストを引用付きで貼り付けるNo.19656
山紫水明 さん 05/07/18 22:14
 
 h-tomさん,こんばんは。

>>openreg "CURRENTUSER", "Software\\Hidemaruo\\TuruKame\\Config";
>>$quote = getregstr( "Quote" );
>これだと鶴亀メールの設定を見ているのでは?
>秀丸だと"Software\\Hidemaruo\\Hidemaru\\Env"の"RefMark"ですね。

 あっ,本当だ!ぼんやりしていて気づきませんでした。ご指摘ありがとうござ
います。
 hhk_sumiさん,多分鶴亀メールもお使いだったようです。結果としてはそれで
もよかったようですので。
 それと,クリップボードから1行ずつ読み込んでいく方式では行数の制限があ
って,長いものになると途中で切れてしまうようです。次のようにしてみました。

//------- PasteQuote.mac -------------------------------------//
openreg "CURRENTUSER", "Software\\Hidemaruo\\Hidemaru\\Env";
$quote = midstr(getregstr( "RefMark" ), 1, 2);
closereg;
disabledraw;
paste;
gofiletop;
while( code != eof ) {
    golinetop2;
    insert $quote;
    #line = lineno;
    movetolineno 1, lineno + 1;
    if( lineno == #line ) break;
}
endmacro;
//----------------------------------------------------------//

     では, (^^)/~
                                        山紫水明
                                        SANSHISUIMEI

[ ]
RE:19656 テキストを引用付きで貼り付けるNo.19657
山紫水明 さん 05/07/18 22:58
 
 追伸です。

>$quote = midstr(getregstr( "RefMark" ), 1, 2);

 これは自分の設定に合わせていました。

$quote = getregstr( "RefMark" );
$quote = midstr($quote, 1, strlen($quote) - 1);

の2行にした方がいいようです。

     では, (^^)/~
                                        山紫水明
                                        SANSHISUIMEI

[ ]