generate random alphanumeric text

[cypher175]

how can i generate some random alphanumeric text..??

Edited March 29, 2009 by cypher175

[Vindicator209]

Chr(Random(Asc("A"), Asc("Z"), 1))

is that what you are looking for?

[cageman]

i know chr(96) represents a letter. so if you look those up and create random numbers between the letters you want it should be fine?

so chr(Random(96,128,1)) for example? just look up that chr function

oh i see im too late read above

Edited March 29, 2009 by cageman

[cypher175]

sp how do i generate string that looks like this "A1B4C6D8E9F0G7" ..??

[PhilRip]

Func _Randomstring($length)
    $chars= StringSplit("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789","")
    $String = ""
    $i=0
    Do
        If $length<=0 then ExitLoop
        $String &=  $chars[Random(1,$chars[0])]
        $i += 1
    Until $i = $length
    Return $String
EndFunc

[GEOSoft]

Here's another one for you

;
$iLen = 12
$sStr = ""
Do
   $sHold = Chr(Random(48, 122, 1))
   If StringRegExp($sHold, "(?i)[a-z0-9]") Then $sStr &= $sHold
Until StringLen($sStr) = $iLen

MsgBox(0, "Results", $sStr)
;

If You want Just upper case then change

$sHold = Chr(Random(48, 122, 1))

To

$sHold = Chr(Random(48, 90, 1))

[cypher175]

thanks PhilRip, works nicely..!!

[cypher175]

Func _Randomstring($length)
    $chars= StringSplit("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789","")
    $String = ""
    $i=0
    Do
        If $length<=0 then ExitLoop
        $String &=  $chars[Random(1,$chars[0])]
        $i += 1
    Until $i = $length
    Return $String
EndFunc

is there anyway to tweek this code so that the first character is always a random letter..??

[TerarinK]

Func _RandomString($iLen)
    Local $sStr = ""
    Do
        If StringLen($sStr) Then
            $sTemp = Chr(Random(48, 122, 1))
            If StringRegExp($sTemp, "(?i)[a-z0-9]") Then $sStr &= $sTemp
        Else
            $sTemp = Chr(Random(65, 122, 1))
            If StringRegExp($sTemp, "(?i)[a-z]") Then $sStr &= $sTemp
        EndIf
    Until StringLen($sStr) = $iLen
    
    Return $sStr
EndFunc   ;==>_RandomString

For a character ascii table there are many out there.

Re-edited to show you the POINT in the exercise.

Edited March 29, 2009 by TerarinK

[Exit]

is there anyway to tweek this code so that the first character is always a random letter..??

The previous post returns a NUMBER as first char. Here is a solution with the requested LETTER in the first position. ;-)

Edit: previous post has been corrected.

Func _RandomString($iLength)
    $aChars = StringSplit("ABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789", "")
    $sString = ""
    While $iLength > StringLen($sString)
        If $sString < "A" Then $sString = ""
        $sString &= $aChars[Random(1, $aChars[0],1)]
    WEnd
    Return $sString
EndFunc   ;==>_RandomString

MsgBox(0, '', _RandomString(10))

Edited March 30, 2009 by forumer100