home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 November / VPR9711A.ISO / VPR_DATA / Special / Koda202 / koda202.lzh / kodama / htmcol.mac < prev    next >
Text File  |  1997-01-30  |  2KB  |  42 lines
  1. //こだマクロ（ＨＴＭＬ作成）
  2. //htmcol.mac
  3. //このマクロは「秀丸エディタ」用のマクロです。
  4. //97013014
  5.  
  6. color:
  7.     $messe = getinistr ( hidemarudir + "\\htmini.txt" , "Color" , "message" );
  8.     $qcol1 = getinistr ( hidemarudir + "\\htmini.txt" , "Color" , "message" + $messe );
  9.     if ( $messe == "6" ) goto color2;
  10.     question $qcol1 + "：無指定でよろしいですか？";
  11.     if ( result == 1 ) {
  12.         $color = "";
  13.         endmacro;
  14.     }
  15. color2:
  16.     title $qcol1 + " － こだマクロ";
  17.     #menu = getininum ( hidemarudir + "\\htmini.txt" , "Color" , "colornum" );
  18.     #i = 0;
  19.     while ( #menu + 1 > #i ) {
  20.         $top[#i] = getinistr ( hidemarudir + "\\htmini.txt" , "Color" , "color" + str ( #i ) );
  21.         $menu[#i] = leftstr ( $top[#i] , strstr ( $top[#i] , ":" ) );
  22.         $command[#i] = rightstr ( $top[#i] , strlen ( $top[#i] ) - strstr ( $top[#i] , ":" )  - 1 );
  23.         #i = #i + 1;
  24.     }
  25.     menuarray $menu, #menu + 1;
  26.     #re = result;
  27.     if ( result == 0 ) endmacro;
  28.     if ( #re > 1 ) $color = $command[#re-1];
  29.     else {
  30.         $fcak11 = "１６進数６ケタで表わしてください。";
  31.         $fcak12 = "             XXXXXX               ";
  32.         $fcak13 = "             赤緑青               ";
  33.         $fcak1 = $fcak11 + "\n" + $fcak12 + "\n" + $fcak13;
  34.         $fcak2 = "000000";
  35.         $color = input ( $fcak1 , $fcak2 );
  36.         writeinistr hidemarudir + "\\htmini.txt" , "Zenkaku" , "line" , $color;
  37.         execmacro getinistr ( hidemarudir + "\\htmini.txt" , "Topmenu" , "macropath" ) + "htmzen.mac";
  38.         $color = "#" + getinistr ( hidemarudir + "\\htmini.txt" , "Zenkaku" , "line" );
  39.     }
  40.     writeinistr hidemarudir + "\\htmini.txt" , "Color" , "get" , $color;
  41.     endmacro;
  42.