関連付けでカーソル行のファイルを起動し - 秀丸エディタ関連ソフト会議室 - スレッド24754, 2008/04/08

関連付けでカーソル行のファイルを起動し

☆彡ふらんぼう さん　08/04/08 14:44

　ファイル名が書いてある行のファイルを関連付けで起動したいと思い、以下のよう
なマクロを書きましたが、うまくいきません。
　resultを確認するとfalseになっています。

copyline;
beginclipboardread;
$a = getclipboard;
openbyshell $a;

RE:24754 関連付けでカーソル行のファイル

秀丸担当 さん　08/04/08 15:31

>　ファイル名が書いてある行のファイルを関連付けで起動したいと思い、以下のよう
>なマクロを書きましたが、うまくいきません。
>　resultを確認するとfalseになっています。

copylineでは改行を含んでしまうので、改行を除去する必要があると思います。

$a = gettext2( 0, lineno, linelen2, lineno );
openbyshell $a;

という感じにするとできると思いますが、どうでしょうか。

RE:24754 関連付けでカーソル行のファイル

Iranoan さん　08/04/08 15:36

　☆彡ふらんぼうさん今日は、Iranoan です。
　念の為お断りしておくと、開発者とは何の関わりも無い単なる一ユーザです。
> openbyshell $a;
の前に、
if( rightstr( $a, 1 ) == "\x0A" )$a = leftstr( $a, strlen( $a ) - 1 );
を追加してください。追加しなければならない理由は、マクロ・ヘルプで
getclipboard を御覧ください。
　##まあ、私なら
openbyshell gettext2( 0, lineno, linelen2, lineno );
というマクロを使うでしょうが。

RE:24755 関連付けでカーソル行のファイル

☆彡ふらんぼう さん　08/04/08 19:20

>
>>　ファイル名が書いてある行のファイルを関連付けで起動したいと思い、以下のよう
>>なマクロを書きましたが、うまくいきません。
>>　resultを確認するとfalseになっています。
>
>copylineでは改行を含んでしまうので、改行を除去する必要があると思います。
>
>$a = gettext2( 0, lineno, linelen2, lineno );
>openbyshell $a;
>
>という感じにするとできると思いますが、どうでしょうか。

　うまくいきました！。改行記号が問題だったのですか！。
　ありがとうございました！。

RE:24756 関連付けでカーソル行のファイル

☆彡ふらんぼう さん　08/04/08 19:22

>　☆彡ふらんぼうさん今日は、Iranoan です。
>　念の為お断りしておくと、開発者とは何の関わりも無い単なる一ユーザです。
>> openbyshell $a;
>の前に、
>if( rightstr( $a, 1 ) == "\x0A" )$a = leftstr( $a, strlen( $a ) - 1 );
>を追加してください。追加しなければならない理由は、マクロ・ヘルプで
>getclipboard を御覧ください。
>　##まあ、私なら
>openbyshell gettext2( 0, lineno, linelen2, lineno );
>というマクロを使うでしょうが。

　改行記号を含むことが問題だったのですね。教えていただいた方法で、うまくいき
ました！。
　ありがとうございました！。