home *** CD-ROM | disk | FTP | other *** search
/ DOS/V Power Report 1997 November / VPR9711A.ISO / VPR_DATA / Special / Koda202 / koda202.lzh / kodama / kodaline.mac < prev   
Text File  |  1997-02-18  |  1KB  |  28 lines
  1. //こだマクロ
  2. //kodaline.mac
  3. //このマクロは任意の範囲の文字列を取り込む際、対話式で
  4. //範囲指定できるマクロです。（前もって指定してあってもＯＫ）
  5. //各マクロでクリップボードから直接読み込まないのは
  6. //同じ命令の重複分が多くなるためです。
  7. //「秀丸エディタ」用のマクロです。
  8. //
  9. //97021701
  10.  
  11. line:
  12.     if ( selecting == no ) {inputpos getinistr ( hidemarudir + "\\htmini.txt" , "Line" ,"message" + getinistr ( hidemarudir + "\\htmini.txt" , "Line" , "message" ) );}
  13.     if ( selecting == no ) {beginsel;inputpos getinistr ( hidemarudir + "\\htmini.txt" , "Line" ,"message" + str ( val ( getinistr ( hidemarudir + "\\htmini.txt" , "Line" , "message" ) ) + 10 ) );}
  14.     cut;
  15.     beginclipboardread;
  16.     #i = 0;
  17.     $newline[#i] = getclipboard;
  18.     while ( $newline[#i] != "" ) {
  19.         writeinistr hidemarudir + "\\htmini.txt" , "Line" , str ( #i ) , $newline[#i];
  20.         #i = #i + 1;
  21.         $newline[#i] = getclipboard;
  22.     }
  23. //最終行を取り込む
  24.     writeinistr hidemarudir + "\\htmini.txt" , "Line" , "line" , str ( #i );
  25. //    message rightstr ( $newline[#i-1] , 1 ) + "da";
  26.     if ( rightstr ( $newline[#i-1] , 1 ) == "\n" ) writeinistr hidemarudir + "\\htmini.txt" , "Line" , "ret" , "on";
  27.     endmacro;
  28.