home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 November / VPR9711A.ISO / VPR_DATA / Special / Koda202 / koda202.lzh / kodama / htmframe.mac < prev    next >
Text File  |  1997-01-30  |  5KB  |  148 lines
  1. //こだマクロ（ＨＴＭＬ作成）
  2. //htmframe.mac
  3. //このマクロは「秀丸エディタ」用のマクロです。
  4. //97013014
  5. //
  6. //flamespecingってネットスケープ対応なのかな？
  7.  
  8. main:
  9.     title "フレームについて － こだマクロ";
  10.     #menu = getininum ( hidemarudir + "\\htmini.txt" , "Frame" , "defnum" );
  11.     #i = 0;
  12.     while ( #menu + 1 > #i ) {
  13.         $top[#i] = getinistr ( hidemarudir + "\\htmini.txt" , "Frame" , "def" + str ( #i ) );
  14.         $menu[#i] = leftstr ( $top[#i] , strstr ( $top[#i] , ":" ) );
  15.         $command[#i] = rightstr ( $top[#i] , strlen ( $top[#i] ) - strstr ( $top[#i] , ":" )  - 1 );
  16.         #i = #i + 1;
  17.     }
  18.     menuarray $menu, #menu + 1;
  19.     if ( result == 0 ) endmacro;
  20.     else if ( $command[result-1] == "fr" ) call frame;
  21.     else if ( $command[result-1] == "ifr" ) call iframe;
  22.     else if ( $command[result-1] == "fs" ) call frameset;
  23.  
  24.     endmacro;
  25.  
  26. frameset:
  27.     title "フレーム分割 － こだマクロ";
  28.     $fla1 = "分割の仕方を選択してください。";
  29.     $fla12[0] = "(&Rows)縦方向";
  30.     $fla12[1] = "(&Cols)横方向";
  31.     $fla13[1] = "ROWS=\"";
  32.     $fla13[2] = "COLS=\"";
  33.  
  34.     menuarray $fla12,2;
  35.     #re = result;
  36.     $sepa = $fla13[#re];
  37.  
  38.     $qbun = input ( "何分割しますか？" );
  39.     call zenkaku $qbun;
  40.     $qbun = $$return;
  41.     #qbun = val ( $qbun );
  42.  
  43.     #i = 1;
  44.     while ( #qbun + 1 > #i ) {
  45.         $i = str ( #i );
  46.         $fla31 = $i + " 番目のフレームについてお応えください。";
  47.         message $fla31;
  48.         $fla32 = "このフレームが使用する割合を％値またはピクセル値で";
  49.         $fla33 = "\n" + "指定してください。（“*”で残りすべて）";
  50.         $bun1 = input ( $fla32 + $fla33 );
  51.         call zenkaku $bun1;
  52.         if ( #qbun > #i ) $bun = $bun + $$return + ",";
  53.         else $bun = $bun + $$return;
  54.         #i = #i + 1;
  55.     }
  56.     $fla5a = "フレームの境界線の太さを指定してください。";
  57.     $fb = input ( $fla5a );
  58.     call zenkaku $fb;
  59.     if ( $fb != "" ) $fb = " FRAMEBORDER=\"" + $$return + "\"";
  60. //このflamespaingって標準の機能なのかなぁ？「窓の杜」でつかってるけど。
  61.     $fla5b = "フレームの間をどのくらい空けるか指定してください。";
  62.     $fs = input ( $fla5b );
  63.     call zenkaku $fs;
  64.     if ( $fs != "" ) $fs = " FRAMESPACING=\"" + $$return + "\"";
  65.     #i = 1;
  66.     insert "<FRAMESET " + $sepa + $bun + "\"" + $fb + $fs + ">";
  67.     insertreturn;
  68.     insert "</FRAMESET>";
  69.     insertreturn;
  70.     up 2;
  71.     golineend;
  72.     return;
  73.  
  74. frame:
  75.     title "フレームの内容の定義 － こだマクロ";
  76.     $fla52 = "呼び出すページを入れてください。";
  77.     $src = input ( $fla52 );
  78.     $fla51 = "フレームに名前をつけてください。";
  79.     $name = input ( $fla51 );
  80.     if ( $name != "" ) $name = " NAME=\"" + $name + "\"";
  81.     $fla53 = "フレーム内での左右マージンをピクセル値で指定してください。";
  82.     $fla54 = "フレーム内での上下マージンをピクセル値で指定してください。";
  83.     $wid = input ( $fla53 );
  84.     call zenkaku $wid;
  85.     if ( $wid != "" ) $wid = " MARGINWIDTH=\"" + $$return + "\"";
  86.     $hei = input ( $fla54 );
  87.     call zenkaku $hei;
  88.     if ( $hei != "" ) $hei = " MARGINHEIGHT=\"" + $$return + "\"";
  89.     $fla5a = "フレームの境界線の太さを指定してください。" + "\n";
  90.     $fb = input ( $fla5a );
  91.     call zenkaku $fb;
  92.     if ( $fb != "" ) $fb = " FRAMEBORDER=\"" + $$return + "\"";
  93.     $fla55 = "このフレームのスクロールバーの設定：デフォルト";
  94.     $fla555 = "でいいですか？";
  95.     question $fla55 + "\n" + $fla555;
  96.  
  97.     if ( result == no ) {
  98.         $fla551[0] = "(&None)必ず付ける";
  99.         $fla551[1] = "(n&Ever)付けない";
  100.         $fla551[2] = "(&Default)普通（デフォルト）";
  101.         $fla552[1] = " SCROLLING=\"yes\"";
  102.         $fla552[2] = " SCROLLING=\"no\"";
  103.         $fla552[3] = "";
  104.         menuarray $fla551,3;
  105.         #re = result;
  106.         $scr = $fla552[#re];
  107.     } else {
  108.         $scr = "";
  109.     }
  110.  
  111.     question "フレームサイズは変更可でいいですか？";
  112.     if ( result == no ) $resize = " NORESIZE>";
  113.     else $resize = ">";
  114.     insert "<FRAME SRC=\"" + $src +"\"";
  115.     insert $name + $hei + $wid + $scr + $fb + $resize;
  116.     return;
  117.  
  118. iframe:
  119.     title "フローティングフレームの内容の定義 － こだマクロ";
  120.     $fla52 = "呼び出すページを入れてください。";
  121.     $src = input ( $fla52 );
  122.     $fla53 = "フレーム内での窓の左右の大きさをピクセル値で指定してください。";
  123.     $fla54 = "フレーム内での窓の上下の大きさをピクセル値で指定してください。";
  124.     $fla5a = "フレームの境界線の太さを指定してください。" + "\n";
  125.     $wid = input ( $fla53 );
  126.     call zenkaku $wid;
  127.     if ( $wid != "" ) $wid = " WIDTH=\"" + $$return + "\"";
  128.     $hei = input ( $fla54 );
  129.     call zenkaku $hei;
  130.     if ( $hei != "" ) $hei = " HEIGHT=\"" + $$return + "\"";
  131.     $fb = input ( $fla5a );
  132.     call zenkaku $fb;
  133.     if ( $fb != "" ) $fb = " FRAMEBORDER=\"" + $$return + "\"";
  134.     insert "<IFRAME src=\"" + $src +"\"";
  135.     insert $hei + $wid + $fb + ">" + "\n";
  136.     insert "\n" + "</IFRAME>" + "\n";
  137.     golinetop;
  138.     up 2;
  139.  
  140.     return;
  141.  
  142. zenkaku:
  143.     writeinistr hidemarudir + "\\htmini.txt" , "Zenkaku" , "line" , $$1;
  144.     execmacro getinistr ( hidemarudir + "\\htmini.txt" , "Topmenu" , "macropath" ) + "htmzen.mac";
  145.     $out = getinistr ( hidemarudir + "\\htmini.txt" , "Zenkaku" , "line" );
  146.     writeinistr hidemarudir + "\\htmini.txt" , "Zenkaku" , "line" ,0;
  147.     return $out;
  148.