home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 November / VPR9711A.ISO / VPR_DATA / Special / Koda202 / koda202.lzh / kodama / htmbr.mac < prev    next >
Text File  |  1997-02-04  |  2KB  |  56 lines
  1. //こだマクロ（ＨＴＭＬ作成）
  2. //htmbr.mac
  3. //このマクロは「秀丸エディタ」用のマクロです。
  4. //97013014
  5.  
  6. br:
  7.     title "改行について － こだマクロ";
  8.     #menu = getininum ( hidemarudir + "\\htmini.txt" , "Br" , "defnum" );
  9.     #i = 0;
  10.     while ( #menu + 1 > #i ) {
  11.         $top[#i] = getinistr ( hidemarudir + "\\htmini.txt" , "Br" , "def" + str ( #i ) );
  12.         $menu[#i] = leftstr ( $top[#i] , strstr ( $top[#i] , ":" ) );
  13.         $command[#i] = rightstr ( $top[#i] , strlen ( $top[#i] ) - strstr ( $top[#i] , ":" )  - 1 );
  14.         #i = #i + 1;
  15.     }
  16.     menuarray $menu, #menu + 1;
  17.     $mbr1 = "グラフィックの横へのテキストの流し込みを許可しますか？";
  18.     if ( result == 0 ) endmacro;
  19.     else if ( $command[result-1] == "BR" ) {
  20.         question $mbr1;
  21.         #re = result + 10;
  22.         call line #re;
  23.         insert $$return;
  24.     } else if ( $command[result-1] == "WBR" ) {
  25.         inputpos getinistr ( hidemarudir + "\\htmini.txt" , "Line" , "messagex" );
  26.         insert "<WBR>";
  27.     } else if ( $command[result-1] == "NOBR" ) {
  28.         call line 1;
  29.         insert "<NOBR>";
  30.         insert $$return;
  31.         insert "</NOBR>";
  32.     }
  33.     endmacro;
  34.  
  35. line:
  36.     execmacro getinistr ( hidemarudir + "\\htmini.txt" , "Topmenu" , "macropath" ) +  "kodaline.mac";
  37.     if ( ##1 == 11 ) {
  38.         $lia1 = "<BR>";
  39.     } else if ( ##1 == 10 ) {
  40.         $lia1 = "<BR CLEAR=\"all\">";
  41.     }
  42.     #line = getininum ( hidemarudir + "\\htmini.txt" , "Line" , "line" );
  43.     #i = 0;
  44.     while ( #line > #i ){
  45.         if ( ##1 >= 10 ) {
  46.             if ( rightstr ( $newline[#i] , 1 ) == "\n" ) $newline[#i] = leftstr ( $newline[#i] , strlen( $newline[#i] ) - 1 );
  47.         }
  48.         $line = $line + getinistr ( hidemarudir + "\\htmini.txt" , "Line" , str ( #i ) ) + $lia1 +"\n";
  49.         writeinistr hidemarudir + "\\htmini.txt" , "Line" , str ( #i ) , 0;
  50.         #i = #i + 1;
  51.     }
  52.     $line = leftstr ( $line , strlen ( $line ) - 1 );
  53.     if ( #i == 0 ) $line = $lia1;
  54.     return $line;
  55.  
  56.