2008年5月7日水曜日

TACK Local Links:ナンバーの再定義操作 その2

普通はいくつかの命令をまとめてモジュール化するのですが
漸進的なブログ形式での開発ということで
モジュールが細切れです

さて、ナンバーの再定義モジュールです
ファイル名:"write_number.hsp"
#module m_write_number
#deffunc def_write_number int p
m=p;*1
if m>999:m=999
repeat m
n=cnt+1
if n<10{s="00"+str(n)};*2
else{
if n<100{s="0"+str(n)};*3
else{s=str(n)}
}
noteadd ("NO."+s),(cnt*10),1;*4
loop
return

#global


*1:数値型引数に代入をすると怒られるので変数に代入しています
*2:1桁の数字の桁数を3桁に揃える
*3:2桁の数字の桁数を3桁に揃える
*4:上書きモードでテキストデータに書き込み

末尾データの復元操作の作成が先だったかな?

0 件のコメント: