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 >
Wrap
Text File
|
1997-02-04
|
2KB
|
56 lines
//こだマクロ(HTML作成)
//htmbr.mac
//このマクロは「秀丸エディタ」用のマクロです。
//97013014
br:
title "改行について - こだマクロ";
#menu = getininum ( hidemarudir + "\\htmini.txt" , "Br" , "defnum" );
#i = 0;
while ( #menu + 1 > #i ) {
$top[#i] = getinistr ( hidemarudir + "\\htmini.txt" , "Br" , "def" + str ( #i ) );
$menu[#i] = leftstr ( $top[#i] , strstr ( $top[#i] , ":" ) );
$command[#i] = rightstr ( $top[#i] , strlen ( $top[#i] ) - strstr ( $top[#i] , ":" ) - 1 );
#i = #i + 1;
}
menuarray $menu, #menu + 1;
$mbr1 = "グラフィックの横へのテキストの流し込みを許可しますか?";
if ( result == 0 ) endmacro;
else if ( $command[result-1] == "BR" ) {
question $mbr1;
#re = result + 10;
call line #re;
insert $$return;
} else if ( $command[result-1] == "WBR" ) {
inputpos getinistr ( hidemarudir + "\\htmini.txt" , "Line" , "messagex" );
insert "<WBR>";
} else if ( $command[result-1] == "NOBR" ) {
call line 1;
insert "<NOBR>";
insert $$return;
insert "</NOBR>";
}
endmacro;
line:
execmacro getinistr ( hidemarudir + "\\htmini.txt" , "Topmenu" , "macropath" ) + "kodaline.mac";
if ( ##1 == 11 ) {
$lia1 = "<BR>";
} else if ( ##1 == 10 ) {
$lia1 = "<BR CLEAR=\"all\">";
}
#line = getininum ( hidemarudir + "\\htmini.txt" , "Line" , "line" );
#i = 0;
while ( #line > #i ){
if ( ##1 >= 10 ) {
if ( rightstr ( $newline[#i] , 1 ) == "\n" ) $newline[#i] = leftstr ( $newline[#i] , strlen( $newline[#i] ) - 1 );
}
$line = $line + getinistr ( hidemarudir + "\\htmini.txt" , "Line" , str ( #i ) ) + $lia1 +"\n";
writeinistr hidemarudir + "\\htmini.txt" , "Line" , str ( #i ) , 0;
#i = #i + 1;
}
$line = leftstr ( $line , strlen ( $line ) - 1 );
if ( #i == 0 ) $line = $lia1;
return $line;