" comm3$="" rem //ファイルオープン// open nikki$+"new.htm" for input as #2 open nikki$+"new.html" for output as #3 rem //これまでの日記の読み込み// *readold lastchk=0 line input #2, oldnik$ if mid$(oldnik$,13,4)="WWWC" then goto *wwwc if oldnik$=chk1$ then goto *new_time newchk$=left$(oldnik$,17) if newchk$=new$ then goto *readold if oldnik$="" then goto *readold if oldnik$="
【END】
【NEW】 (Last modified:"+date_1$+" "+time_1$+")
" date2$="
" long=len(newnik$) newnik$=date1$+right$(newnik$,long-2)+date2$ if comchk=1 then print #3, comm3$ : comchk=0 print #3, newnik$ goto *newnik *mail mail1$="
" comm2$="" newnik$=comm1$+newnik$+comm2$ print #3, newnik$ comchk=1 goto *newnik *fin close #1 if comchk=1 then print #3, comm3$ : comchk=0 print #3, last$ open newtxt$+"nik-end-format.dat" for input as #2 *nokori line input #2, end$ if eof(2) then goto *end print #3, end$ goto *nokori *end for i=0 to 500 : next i close *change open "c:\hp\msugaya\nikki\new.html" for input as #1 open "c:\hp\msugaya\nikki\new.htm" for output as #2 *htmlread line input #1, a$ if eof(1) then goto *end2 print #2, a$ goto *htmlread *end2 close *main_date_cng open "c:\hp\msugaya\index.htm" for input as #1 open "c:\hp\msugaya\index_dummy.htm" for output as #2 *main_read line input #1, a$ if eof(1) then goto *main_cng if a$="" then goto *date_add print #2, a$ goto *main_read *date_add print #2, a$ print #2, "(";date_1$;"更新)" line input #1, a$ goto *main_read *main_cng for i=0 to 10000 : next i print #2, "" print #2, "" close open "c:\hp\msugaya\index_dummy.htm" for input as #1 open "c:\hp\msugaya\index.htm" for output as #2 *main_read_2 line input #1, a$ if eof(1) then goto *end3 print #2, a$ goto *main_read_2 *end3 for i=0 to 10000 : next i print "[END]" end *image_table img_count=0 img$="" align$="" ww$="" hh$="" alt$="" link$="" *read_img img_count=img_count+1 line input #1, newnik$ if img_count=1 then img$=newnik$ if img_count=2 then align$=newnik$ if img_count=3 then ww$=newnik$ if img_count=4 then hh$=newnik$ if img_count=5 then alt$=newnik$ if img_count=6 then link$=newnik$ if newnik$="!img-out!" then goto *img_read_end goto *read_img *img_read_end if align$="l" then align$="left" if align$="r" then align$="right" if align$="c" then align$="center" ww=val(ww$):ww2=ww+10:ww2$=str$(ww2) if left$(ww2$,1)=" " then ww2$=right$(ww2$,len(ww2$)-1) hh=val(hh$):hh2=hh+10:hh2$=str$(hh2) if left$(hh2$,1)=" " then hh2$=right$(hh2$,len(hh2$)-1) table_1$="" if link$="none" then table_2$="" : goto *img_output table_2$="" *img_output table_3$="" table_out$=table_1$+table_2$+table_3$ print #3, table_out$ newnik$="" return