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

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

303:名無しさん＠お腹いっぱい。
08/05/01 01:07:48 HTs8AX2Y0
文字列生成なら文字コードいじるよりも効率的な方法があります。
URLﾘﾝｸ(scripts.web.fc2.com)

Class key　は、パスクラ用に１文字から順に文字の組み合わせを作りますが、
k[] = 1,1,1,1,0,0,0,0,0,0,0,0,0,0
とすれば０００１からの文字列を生成すると思います。
9999で止めるには呼び出し回数を決めるか、生成文字数をチェック。

汎用的にするためには、メンバ関数を追加します。
Procedure reset( 桁数 )
　for i = 0 to length(k) -1
　　Ifb i < 桁数 Then
　　　k[i] = 1
　　Else
　　　k[i] = 0
　　Endif
　next
Fend

数字の組み合わせだけなら
dim s = "0123456789"
とするだけです。
桁数固定で０００１から始まるならこれでいけますが、
このクラスは組み合わせを作るだけなので、予定桁を超えるときには使えません。
たとえば、９９の次は０００に戻ります。

桁数に関わらず１ずつ増加する文字列を作るには、k[]の配列ではなく、
普通に数値をformat()関数に渡すだけなのでわざわざクラスを作る意味はありませんね。
ただ、標準のformat()は頭の０は空白になるので、０００１から始まる場合は上記クラスも使えると思います。

次ページ

続きを表示

1を表示