home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 November / VPR9711A.ISO / VPR_DATA / Special / Koda202 / koda202.lzh / kodama / htmlist.mac < prev    next >
Text File  |  1997-02-16  |  5KB  |  159 lines
  1. //こだマクロ（ＨＴＭＬ作成）
  2. //htmlist.mac
  3. //このマクロは「秀丸エディタ」用のマクロです。
  4. //97013014
  5. //
  6.  
  7. list:
  8.     title "箇条書きの定義 － こだマクロ";
  9.     #menu = getininum ( hidemarudir + "\\htmini.txt" , "List" , "defnum" );
  10.     #i = 0;
  11.     while ( #menu + 1 > #i ) {
  12.         $top[#i] = getinistr ( hidemarudir + "\\htmini.txt" , "List" , "def" + str ( #i ) );
  13.         $menu[#i] = leftstr ( $top[#i] , strstr ( $top[#i] , ":" ) );
  14.         $command[#i] = rightstr ( $top[#i] , strlen ( $top[#i] ) - strstr ( $top[#i] , ":" )  - 1 );
  15.         #i = #i + 1;
  16.     }
  17.     menuarray $menu, #menu + 1;
  18.     #re = result-1;
  19.     if ( $command[#re] == "LH" ) {
  20.         call line 2,"<LH>","<LH>";
  21.         if ( $$return == "" ) $ins = "<LH>";
  22.         insert $ins + $$return;
  23.     } else if ( $command[#re] == "LI" ) {
  24.         call type;
  25.         $lip = "<LI" + $$return + ">";
  26.         call line 2,$lip,"<LI>";
  27.         if ( $$return == "" ) $ins = "<LI>";
  28.         insert $ins + $$return;
  29.     } else if ( $command[#re] == "DT" || $command[#re] == "DD" ) {
  30.         call line 1,"<" + $command[#re] + ">","<" + $command[#re] + ">";        if ( $$return == "" ) $ins = "<" + $command[#re] + ">";
  31.         insert $ins + $$return;
  32.     } else if ( $command[#re] == "UL" ) {
  33.         call line 1,"","";
  34.         $line = $$return;
  35.         call type2;
  36.         insert "<UL" + $$return + $line + "</UL>";
  37.     } else if ( $command[#re] == "OL" ) {
  38.         call line 1,"","";
  39.         $line = $$return;
  40.         call type3;
  41.         question "開始番号：無指定でいいですか？";
  42.         if ( result == no ){
  43.             $st = input ( "開始番号を指定してください" );
  44.             call zenkaku $st;
  45.             $st = " START=\"" + $$return + "\">";
  46.         }else {
  47.             $st = ">";
  48.         }
  49.         insert "<OL" + $type + $st + $line + "</OL>";
  50.     } else if ( $command[#re] == "DL" ) {
  51.         title "定義型の箇条書きを作る － こだマクロ";
  52.         call line 1,"","";
  53.         question "定義行と意味行を違う行に表示しますか？（初期設定）";
  54.         if ( result == no ) $dl = " COMPACT>";
  55.         else $dl = ">";
  56.         insert "<DL" + $dl + $$return + "</DL>";
  57.     }
  58.     endmacro;
  59. type:
  60.     title "いろいろな記号付きの箇条書きを作る － こだマクロ";
  61.     $type[0] = "無指定";
  62.     $type[1] = "(&I)大文字ローマ文字";
  63.     $type[2] = "(&i)小文字ローマ文字";
  64.     $type[3] = "(&A)大文字アルファベット";
  65.     $type[4] = "(&a)小文字アルファベット";
  66.     $type[5] = "(&1)通常の数字";
  67.     $type[6] = "(&Disc)●";
  68.     $type[7] = "(&Circle)□";
  69.     $type[8] = "(&Square)■";
  70.     $type[9] = "任意指定";
  71.     $ty[2] = "I";
  72.     $ty[3] = "i";
  73.     $ty[4] = "A";
  74.     $ty[5] = "a";
  75.     $ty[6] = "1";
  76.     $ty[7] = "disc";
  77.     $ty[8] = "circle";
  78.     $ty[9] = "square";
  79.     menuarray $type,10;
  80.     #re = result;
  81.     if ( #re == 1 ) $type = "";
  82.     else if ( #re == 10 ) $type = " TYPE=\"" + input ( "指定してください" ) + "\"";
  83.     else $type = " TYPE=\"" + $ty[#re] + "\"";
  84.     if ( #re >= 2 && #re <= 6 ){
  85.         question "開始番号：無指定でいいですか？";
  86.         if ( result == no ){
  87.             $st = input ( "開始番号を指定してください" );
  88.             call zenkaku $st;
  89.             $type = $type + " VALUE=\"" + $$return + "\"";
  90.         }
  91.     }
  92.     return $type;
  93.  
  94. type2:
  95.     title "記号付きの箇条書きを作る － こだマクロ";
  96.     $type[0] = "無指定";
  97.     $type[1] = "(&Disc)●";
  98.     $type[2] = "(&Circle)□";
  99.     $type[3] = "(&Square)■";
  100.     $type[4] = "任意指定";
  101.     $ty[2] = "disc";
  102.     $ty[3] = "circle";
  103.     $ty[4] = "square";
  104.     menuarray $type,5;
  105.     if ( result == 1 ) $type = ">";
  106.     else if ( result == 5 ) $type = input ( "指定してください" );
  107.     else {
  108.         #re = result;
  109.         $type = " TYPE=\"" + $ty[#re] + "\">";
  110.     }
  111.     return $type;
  112.  
  113. type3:
  114.     title "番号付きの箇条書きを作る － こだマクロ";
  115.     $type[0] = "無指定";
  116.     $type[1] = "(&I)大文字ローマ文字";
  117.     $type[2] = "(&i)小文字ローマ文字";
  118.     $type[3] = "(&A)大文字アルファベット";
  119.     $type[4] = "(&a)小文字アルファベット";
  120.     $type[5] = "(&1)通常の数字";
  121.     $type[6] = "任意指定";
  122.     $ty[2] = "I";
  123.     $ty[3] = "i";
  124.     $ty[4] = "A";
  125.     $ty[5] = "a";
  126.     $ty[6] = "1";
  127.     menuarray $type,7;
  128.     if ( result == 1 ) $type = "";
  129.     else if ( result == 7 ) $type = input ( "指定してください" );
  130.     else {
  131.         #re = result;
  132.         $type = " TYPE=\"" + $ty[#re] + "\"";
  133.     }
  134.     return $type;
  135.  
  136. zenkaku:
  137.     writeinistr hidemarudir + "\\htmini.txt" , "Zenkaku" , "line" , $$1;
  138.     execmacro getinistr ( hidemarudir + "\\htmini.txt" , "Topmenu" , "macropath" ) + "htmzen.mac";
  139.     $out = getinistr ( hidemarudir + "\\htmini.txt" , "Zenkaku" , "line" );
  140.     writeinistr hidemarudir + "\\htmini.txt" , "Zenkaku" , "line" ,0;
  141.     return $out;
  142.  
  143. line:
  144.     $lia1 = $$2;
  145.     execmacro getinistr ( hidemarudir + "\\htmini.txt" , "Topmenu" , "macropath" ) + "kodaline.mac";
  146.     #line = getininum ( hidemarudir + "\\htmini.txt" , "Line" , "line" );
  147.     #i = 0;
  148.     while ( #line > #i ){
  149.         if ( #i == 0 ) $lia1 = $$2;
  150.         else $lia1 = $$3;
  151.         $line = $line + $lia1 + getinistr ( hidemarudir + "\\htmini.txt" , "Line" , str ( #i ) ) + "\n";
  152.         writeinistr hidemarudir + "\\htmini.txt" , "Line" , str ( #i ) , 0;
  153.         #i = #i + 1;
  154.     }
  155.     $line = leftstr ( $line , strlen ( $line ) - 1 );
  156.     if ( ##1 == 1 && $line == "" ) $line = $lia1 + $line;
  157.     return $line;
  158.  
  159.