自動化ツールuwsc使いよ集まれ3

自動化ツールuwsc使いよ集まれ3 at SOFTWARE

305:名無しさん＠お腹いっぱい。
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

次ページ

続きを表示

1を表示