08/05/01 05:14:00 ZsC5ZVrF0
>>303
数値をフォーマットするなら FORMAT() してから
半角スペースを 0 に置換する方が簡単だと思います
OPTION EXPLICIT
DIM i
FOR i=1 TO 1000
PRINT format_digit(i, 4)
NEXT
// 数値をフォーマットする
//
// 引数 : num - 数値 [入力] - フォーマットする数値を指定する
// 引数 : col - 数値 [入力] - 桁数を指定する
// 戻り値 : フォーマットされた数値を文字列で返す
FUNCTION format_digit(num, col)
RESULT = CHGMOJ(FORMAT(num, col), " ", "0")
FEND