Buchstaben

Hab mal vor einiger Zeit ne func geschrieben welche heisst _Random09az

;===============================================================================
;
; Function Name: _random09az()
; Description: Returns a given number of signs, one sign can be a-z or 0-9 or A-Z
; Parameter(s): $iCount - Number of random signs ( standard = 1 )
; Requirement(s): None
; Return Value(s): On Success - Returns the random sign(s)
; On Failure - Returns -1 and sets @error
; Author(s): qon
;
;===============================================================================

func _random09az($iCount = 1)
If Stringisdigit($iCount) = 0 Then
Seterror(1)
Return -1
EndIf

Local $sString = ""

For $i = $iCount to 1 step -1
Local $iRandom = Random(1,4,1)
IF $iRandom = 1 Then
$iRandom = Chr(Random(48,57,1))
$sString = $sString & $iRandom
ContinueLoop
EndIf
If $iRandom = 2 Or $iRandom = 3 then
$iRandom = Chr(Random(97,122,1))
$sString = $sString & $iRandom
ContinueLoop
EndIf
IF $iRandom = 4 Then
$iRandom = Chr(Random(65,90,1))
$sString = $sString & $iRandom
ContinueLoop
EndIf
Next

Return $sString
EndFunc

Zitat von qon

Hab mal vor einiger Zeit ne func geschrieben welche heisst _Random09az

Guck mal Post 3
dann siehst du wie du das ganze deutlich verkürzen kannst