home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 November / VPR9711A.ISO / VPR_DATA / Special / Koda202 / koda202.lzh / htmstart.mac < prev    next >
Text File  |  1997-03-07  |  2KB  |  54 lines
  1. //こだマクロ（ＨＴＭＬ作成）
  2. //htmstart.mac
  3. //このマクロは「秀丸エディタ」用のマクロです。
  4. //97030722
  5.  
  6. //このマクロは複雑なhtmini.txtをいじらなくても最小限の設定を
  7. //できるようにすることを目標にしています。
  8. //ですから、ヘルプを参考にhtmini.txtを直接いじるならこのマクロは
  9. //初回以外必要ありません。
  10. //マクロの実行前には
  11. //このマクロ(htmstart.mac)を必ず秀丸エディタと同じフォルダにおき
  12. //htmtop.mac
  13. //htmini.txt
  14. //の２つもあることを確認してください。他のマクロは１つのフォルダに
  15. //まとめて、適当なところにおいてもよいですが上の２つのマクロ
  16. //とこのマクロは必ず秀丸エディタと同じフォルダにおいてくださ
  17. //い。
  18.  
  19.         message "ようこそ！こだマクロです。";
  20.         $init = getinistr ( hidemarudir + "\\htmini.txt" , "Topmenu" , "macropath" );
  21.         $key1 = "Topmenu";
  22.         $key2 = "macropath";
  23.         $ask = "マクロのパスを指定してください。\n（注意）htmini.txtとhtmtop.macは秀丸エディタと同じフォルダにおくこと";
  24.         $pas = "\\";
  25.         call write $init,$key1,$key2,$ask,$pas;
  26.         $init = getinistr ( hidemarudir + "\\htmini.txt" , "Browser" , "path" );
  27.         $key1 = "Browser";
  28.         $key2 = "path";
  29.         $ask = "確認する際に使用するブラウザのパスを指定してください";
  30.         $pas = "";
  31.         call write $init,$key1,$key2,$ask,$pas;
  32.         $init = getinistr ( hidemarudir + "\\htmini.txt" , "Topmenu" , "path" );
  33.         $key1 = "Topmenu";
  34.         $key2 = "path";
  35.         $ask = "主に作成したホームページを保存する場所のパスを指定してください";
  36.         $pas = "\\";
  37.         call write $init,$key1,$key2,$ask,$pas;
  38.         question "ブラウザを起動するときは常に一番上になるようにしますか？";
  39.         writeininum hidemarudir + "\\htmini.txt" , "Browser" , "active" , result;
  40.         $mes[0] = "「ブラウザは上に来ない」と登録しました。";
  41.         $mes[1] = "「ブラウザは常に一番上」と登録しました。";
  42.         message $mes[result];
  43.         message "以上で設定は終わりです。";
  44.         endmacro;
  45.  
  46. write:
  47.     $user = input ( $ask , $init );
  48.     if ( rightstr ( $user , 1 ) != "\\" ) $user = $user + $pas;
  49.     writeinistr hidemarudir + "\\htmini.txt" , $key1 , $key2 , $user;
  50.     if ( strstr ( $user , "iexplore.exe" ) != -1 ) writeinistr hidemarudir + "\\htmini.txt" , "Browser" , "app" , "IExplore";
  51.     if ( strstr ( $user , "netscape.exe" ) != -1 ) writeinistr hidemarudir + "\\htmini.txt" , "Browser" , "app" , "NETSCAPE";
  52.     message $user + "\nと登録しました。";
  53.     return;
  54.