| |
ませまです．
ひろさん，早速のレスありがとうございます．
> CraftLaunch を使っていないので、気づいたところだけフォローを入れます。
>
>> 選択中の文字列をいきなりオンラインの辞書で調べ
>> るとか，いきなりサーチエンジンで検索するとかできます．
> これについては、適切な文字列をブラウザに渡してやれば、外部ツールを
>使用しなくてもほとんどの場合上手くいきます。google の例が
>hidesoft.2:09310 にありますので、興味があればご覧ください。
＜途中省略＞
> ただどの場合も、個別にマクロを組まなければならないのが、今回のマク
>ロに比べると欠点と言えますね。
教えて頂いた記事確認しました．Readme 作るときに参考にしようと
思います．僕のマクロだと CraftLaunch の設定次第で何でもできるの
が売り，といったとこです．
本当は Fortran ソースの印刷に a2p とか xyzzy とか使うときに
いちいち印刷ツールごとにマクロ作るのいやなので作ったマクロです．
他にも，カレントフォルダをファイラで開くときにも使っています．
>> $Craft_Path="C:\\usr\\bin\\clnch\\clnch.exe";
> もしレジストリなどで、自動で取得可能なら、その様にコーディングする
>とユーザが使いやすいと思います。例えば、
>> openreg "LOCALMACHINE",
>> "Software\\Microsoft\\Windows\\CurrentVersion\\App Paths\\clnch.exe";
>> $Craft_Path = getregstr( "" );
>> closereg;
>という要領になると思います。(上記のレジストリは適当です。)
レジストリは使わないソフトなので無理そうです．一応実行ファイルの
名前でレジストリを検索してみたけど検出されませんでした．
自動推定の機能は欲しいと思うのだけど，うまい手が無いです．
>必ずしもクリップボーである必要がなければ、
>$sword = getext(seltopx.,seltopy,selendx,selendy);
>の方がベターだと思います。
全然考えてませんでした．これは即採用させて頂きます(^^)
>> run $Craft_Path + " " + $Craft_Optinon + $sword;
>これだと、$Craft_Path, $Craft_Optinon, $sword に空白が含まれていた場
>合、上手く動作しないと思いますが、良いのでしょうか? 必要ならば、
>「" (マクロ内なので「\"」)」で括る必要があると思います。
ホントだ，と思ってチェックしてみたら $Craft_Path, $Craft_Optinon
は何故か空白は大丈夫でした．ただ，Win98 と Win2k しかチェックしてい
ないので，環境によってはうまくいかないかもわかりません．
ちなみに，$sword は悲惨な結果に終わりました(^^;
取り急ぎ，ご指摘の不都合を修正したバージョンを作成したのでアップし
ておきます．後日，マニュアルを作り，ピカピカの最新バージョンをライ
ブラリにアップしようと思います(^^)
詳しいご指摘，ありがとうございました．
// ---( B E G I N )--------------------------------------------------
//【 マクロ名 】: ませCL Ver 1.00b2
//【ファイル名】: maseCL.mac
//【 作 者 】: ませま xxxxxx@ma4.justnet.ne.jp
//【 サポート 】: http://www4.justnet.ne.jp/~masema/
//【 機 能 】: 選択中の文字列を CraftLaunch に送信する．
//
// このマクロは CraftLaunch がインストールされていないと使えません．
// CraftLaunch の入手先：
// http://hp.vector.co.jp/authors/VA012411/
// ------------------------------------------------------------------
// パス設定：CraftLaunch のパスを設定して下さい．
$Craft_Path="C:\\usr\\bin\\clnch\\clnch.exe";
// オプション設定：わかる人だけ編集して下さい．
$Craft_Optinon="/c0 ;";
// 次の行いらないかも．
$Craft_Path = "\"" + $Craft_Path + "\"";
if (!selecting) {
$sword = "\"" + filename2 + "\""; // 選択中じゃないなら現在編集中のフ
ァイル名
} else {
$sword = "\"" + gettext(seltopx, seltopy, selendx, selendy) + "\"";
}
run $Craft_Path + " " + $Craft_Optinon + $sword;
if(!result) message "CraftLaunch の起動に失敗しました．\nclnch.exe の
Path の設定を確認して下さい．";
endmacro;
// ---( E N D )--------------------------------------------------
|
|