2008年5月13日火曜日

TACK Local Links:テストコード末尾データの復元操作

TACK Local Linksでは読み込むテキスト形式のファイルは
10行単位と想定しています
なので10行で割り切れない行数だと正確に処理できないかもしれません
行数がずれていた場合、表示がおかしくなるので、わかりそうです
しかし10行の倍数で割り切れない行数のテキストファイルを
10行の倍数で読み込むとどうなるかは、予想がつきません
なので無理矢理10行の倍数まで行を埋める命令を作成してみました
ファイル名:set_note_last.hsp
#module m_set_note_last
#deffunc init_at_set_note_last str p
sdim t,256,16
t.2 ="TITLE:"
t.3 =p+" :";*1
t.4 ="memo1:"
t.5 ="memo2:"
t.6 ="memo3:"
t.7 ="memo4:"
t.8 ="memo5:"
t.9 ="memo6:"
t.10="memo7:"
return
#deffunc def_set_note_last
n=notemax\10
m=2
while n!=0
if n<=m{
noteadd t.m,-1,0
}
m++
n=notemax\10
wend
return
#global

*1:3行目は"URL :"と"pos :"の2種類のテキストの存在を
想定しているため引数を使用して代入しています

#単体テストは書きかけなのでまた明日!

0 件のコメント: