テキストを引用付きで貼り付ける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さん，多分鶴亀メールもお使いだったようです。結果としてはそれで
もよかったようですので。
　それと，クリップボードから１行ずつ読み込んでいく方式では行数の制限があ
って，長いものになると途中で切れてしまうようです。次のようにしてみました。

//------- 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);

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

  　  では，　(^^)/~
                                        山紫水明
                                        SANSHISUIMEI
[ △ ]