#include "hspext.as"
#include "hsp261cmp.as"
title "dircsv ver0.1"
wx=800:wy=600
screen 0,wx,wy
cls
gsel 0,1
sdim work,1024
sdim tmp,1024
sdim tools,256
sdim opt1,1024
sdim opt2,1024
sdim sname,1024
tools=curdir
work=curdir+"\\txt\\"
htmld=curdir+"\\html\\data\\"
htmltagd=curdir+"\\html\\"
taglistd=curdir+"\\tag\\"
opt1=""
opt2=""
objmode 1,1
objsize 380,24
strlen a,work
peek a,work,a-1
chdir work
dirlist2h 1,','
dirlist2 a,"*.*", 0, '\\'
sdim ftmp,a
dirlist2r ftmp
strlen fs,ftmp
sname=tools+"\\dir.txt"
bsave sname,ftmp,fs
notesel texb
noteload sname,-1
sdim taglist,500,100000
tagc=0
XXX=noteinfo(0)
chdir htmld
repeat XXX
notesel texb
noteget tn,cnt
gosub *makehtml
loop
stop
*makehtml
fname=work+"\\"+tn
fnameb=work+tn
sdim htmltext
htmltext+="<HTML>"
notesel texc
noteload fname,-1
noteget tdai,0
noteget ttag,1
GYO=noteinfo(0)
repeat GYO-9
noteget ttext,10+cnt
htmltext+=ttext+"<BR>"
loop
htmltext+="</HTML>"
mes dir_cur
mes fnameb
strlen zzz,tn
sdim tnn
tnn=strmid(tn,0,zzz-4)
tnn+=".html"
notesel htmltext
notesave tnn
return
これを実行しようとすると
#HSP script preprocessor ver3.21 / onion software 1997-2010(c)
#Use file [hspdef.as]
#Error:no default parameter in line 72 [hs.hsp]
#Fatal error reported.
と表示されて動きません。
いったい何が悪いんでしょうか?