SCRIPTS

ＵＷＳＣ自作クラスソースコード

UWSCは機能ごとにクラス化してまとめることができる。
クラスを再利用する場合はソースコードの方が便利だと思うのでこちらで紹介します。

数字、アルファベットを組み合わせた文字列を作成する。

Class key
dim s = "0123456789abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
dim s_len
dim k[] = 0,0,0,0,0,0,0,0,0,0,0
dim k_end
dim keystring = ""
　
Procedure key
    s_len = Length(s)
    k_end = Length(k) - 1
Fend
Function next()
    inc(0)
    keystring = ""
    For i = k_end to 0 step -1
      Ifb k[i] Then
        For i = i to 0 step -1
          keystring = keystring + copy( s, k[i], 1 )
        Next
        Result = keystring
        Exit
      Endif
    Next
Fend
Procedure inc( c )
    k[c] = k[c] + 1
    Ifb s_len < k[c] Then
      k[c] = 1
      inc(c+1)
    Endif
Fend
EndClass

使用例：

for i = 1 to 100
print key.next()
next
sleep(20)

実行結果：

0
1
2
3
・・・
X
Y
Z
00
01
・・・
0A
0B

数字、アルファベットを組み合わせたランダムな文字列を作成する。

Class RandomStr
Dim S = "0123456789abcdefghijklmnopqrstuvwxyz"
Dim S_Len = 0
Dim Str = ""

Procedure RandomStr
    S_Len = Length(S)
Fend

// ランダムな文字列を返す
// N:文字列の長さ
Function Str( N )
    Str = ""
    For i = 1 to N
      Str = Str + copy(s, Random(S_Len), 1)
    Next
    Result = Str
Fend
EndClass

使用例：

print RandomStr.Str(8)
sleep(20)

実行結果：

q5pbu646

ＵＷＳＣ自作クラス ソースコード

ＵＷＳＣ自作クラスソースコード