hallo,
hat jemand eine idee, wie man diesen Code vereinfachen kann?
Func _random( $length )
Dim $a
Dim $b
Dim $return
While $a < $length
$b = Random( 1, 72, 1 )
If $b = 1 Then $return = $return & "A"
If $b = 2 Then $return = $return & "B"
If $b = 3 Then $return = $return & "C"
If $b = 4 Then $return = $return & "D"
If $b = 5 Then $return = $return & "E"
If $b = 6 Then $return = $return & "F"
If $b = 7 Then $return = $return & "G"
If $b = 8 Then $return = $return & "H"
If $b = 9 Then $return = $return & "I"
If $b = 10 Then $return = $return & "J"
If $b = 11 Then $return = $return & "K"
If $b = 12 Then $return = $return & "L"
If $b = 13 Then $return = $return & "M"
If $b = 14 Then $return = $return & "N"
If $b = 15 Then $return = $return & "O"
If $b = 16 Then $return = $return & "P"
If $b = 17 Then $return = $return & "Q"
If $b = 18 Then $return = $return & "R"
If $b = 19 Then $return = $return & "S"
If $b = 20 Then $return = $return & "T"
If $b = 21 Then $return = $return & "U"
If $b = 22 Then $return = $return & "V"
If $b = 23 Then $return = $return & "W"
If $b = 24 Then $return = $return & "X"
If $b = 25 Then $return = $return & "Y"
If $b = 26 Then $return = $return & "Z"
If $b = 27 Then $return = $return & "1"
If $b = 28 Then $return = $return & "2"
If $b = 29 Then $return = $return & "3"
If $b = 30 Then $return = $return & "4"
If $b = 31 Then $return = $return & "5"
If $b = 32 Then $return = $return & "6"
If $b = 33 Then $return = $return & "7"
If $b = 34 Then $return = $return & "8"
If $b = 35 Then $return = $return & "9"
If $b = 36 Then $return = $return & "0"
If $b = 37 Then $return = $return & "A"
If $b = 38 Then $return = $return & "C"
If $b = 39 Then $return = $return & "E"
If $b = 40 Then $return = $return & "G"
If $b = 41 Then $return = $return & "I"
If $b = 42 Then $return = $return & "K"
If $b = 43 Then $return = $return & "M"
If $b = 44 Then $return = $return & "O"
If $b = 45 Then $return = $return & "Q"
If $b = 46 Then $return = $return & "R"
If $b = 47 Then $return = $return & "S"
If $b = 48 Then $return = $return & "U"
If $b = 49 Then $return = $return & "W"
If $b = 50 Then $return = $return & "Y"
If $b = 51 Then $return = $return & "1"
If $b = 52 Then $return = $return & "3"
If $b = 53 Then $return = $return & "5"
If $b = 54 Then $return = $return & "7"
If $b = 55 Then $return = $return & "9"
If $b = 56 Then $return = $return & "B"
If $b = 57 Then $return = $return & "D"
If $b = 58 Then $return = $return & "F"
If $b = 59 Then $return = $return & "J"
If $b = 60 Then $return = $return & "L"
If $b = 61 Then $return = $return & "N"
If $b = 62 Then $return = $return & "P"
If $b = 63 Then $return = $return & "R"
If $b = 64 Then $return = $return & "T"
If $b = 65 Then $return = $return & "V"
If $b = 66 Then $return = $return & "X"
If $b = 67 Then $return = $return & "Z"
If $b = 68 Then $return = $return & "2"
If $b = 69 Then $return = $return & "4"
If $b = 70 Then $return = $return & "6"
If $b = 71 Then $return = $return & "8"
If $b = 72 Then $return = $return & "0"
$a = $a + 1
WEnd
Return $return
EndFunc