home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 November / VPR9711A.ISO / VPR_DATA / Special / Koda202 / koda202.lzh / kodama / htmcut.mac < prev    next >
Text File  |  1997-02-17  |  2KB  |  55 lines
  1. //こだマクロ（ＨＴＭＬ作成：レジスト用）
  2. //htmdel.mac
  3. //このマクロは「秀丸エディタ」用のマクロです。
  4. //97013014
  5. //
  6. //このマクロの複製、再配布を固く禁じます。
  7. //
  8.  
  9. main:
  10.     writeinistr hidemarudir + "\\htmini.txt" , "Line" , "message", "1";
  11.     execmacro getinistr ( hidemarudir + "\\htmini.txt" , "Topmenu" , "macropath" ) + "kodaline.mac";
  12.     writeinistr hidemarudir + "\\htmini.txt" , "Line" , "message", "0";
  13.     #line = getininum ( hidemarudir + "\\htmini.txt" , "Line" , "line" );
  14.     #i = 0;
  15.     while ( #line > #i ){
  16.         $newline[#i] = getinistr ( hidemarudir + "\\htmini.txt" , "Line" , str ( #i ) );
  17.         writeinistr hidemarudir + "\\htmini.txt" , "Line" , str ( #i ) , 0;
  18.         #left = 0;
  19.         #right = 0;
  20.         #left = strstr ( $newline[#i] , "<" );
  21.         #right = strstr ( $newline[#i] , ">" );
  22.         while ( #right + #left != -2 ){
  23.             if ( #left > #right ) #left = 0;
  24.             $left = leftstr ( $newline[#i] , #left);
  25.             if ( #right == -1 ) #right = 0;
  26.             $right = rightstr ( $newline[#i] , strlen( $newline[#i] ) - #right - 1);
  27.             call quote midstr ( $newline[#i] , #left , #right - #left + 1);
  28.             $newline[#i] = $left + $$return + $right;
  29.             title "タグ外し中 － こだマクロ：" + $newline[#i];
  30.             #left = strstr ( $newline[#i] , "<" );
  31.             #right = strstr ( $newline[#i] , ">" );
  32.             continue;
  33.         }
  34.         $out = $out + $newline[#i] + "\n";
  35.         #i = #i + 1;
  36.     }
  37.     $out = leftstr ( $out , strlen ( $out ) - 1 );
  38.     insert $out;
  39.     endmacro;
  40.  
  41. quote:
  42.     if ( getininum ( hidemarudir + "\\htmini.txt" , "Line" , "Cutoption" ) == 1 ) return "";
  43.     $mid = "";
  44.     #mid = strstr ( $$1 , "\"" + getinistr ( hidemarudir + "\\htmini.txt" , "Line" , "reserve" ) );
  45.     $midl = $$1;
  46.     while ( #mid != -1 ){
  47.         $leftq = leftstr ( $midl , #mid );
  48.         $rightq = rightstr ( $midl , strlen ( $midl ) - #mid - 1);
  49.         #midend = strstr ( $rightq , "\"" ) + 1;
  50.         $mid = $mid + leftstr ( $rightq , #midend - 1) + "\n";            $midl = rightstr ( $rightq , strlen ( $rightq ) - #midend );
  51.         #mid = strstr ( $midl , "\"" + getinistr ( hidemarudir + "\\htmini.txt" , "Line" , "reserve" ) );
  52.         continue;
  53.     }
  54.     return $mid;
  55.