random number generator

[PHPWarner]

Hello,

I need little help for random number generator code, I want to start generate serial numbers between 00000001 - 00000002 - 00000003 - 00000004 ... 00000010 - 00000011 ... until 99999999.

Can anyone help me for that?

Also second issue, generating random 8 numeric digits code is very useful for me

Thanks now.

[BrewManNH]

Use StringFormat("%08s", Random(1, 99999999, 1)) to get the leading zero(s).

[water]

Random and serial numbers are mutually contradictory

What do you need exactly?

Do you already have some code you can post?

[jdelaney]

try this out:

$stest = RndNum ( 8)
MsgBox ( 1,1, $stest )
Func RndNum ( $iCallersStringLen )
 $i = Random ( 1, (10^($iCallersStringLen-1))-1 )
 $i = Round ($i, 0 )
 While StringLen ( $i ) < $iCallersStringLen
  $i = 0 & $i
 WEnd
 Return $i
EndFunc

[PHPWarner]

@jdelaney, thank you very much for your code it generate random numbers but their first number is always "zero".

@BrewManNH, your help is very useful, thank you very much.

$stest = StringFormat("%08s", Random(1, 99999999, 1))
MsgBox ( 1,1, $stest )

works fine.

Can I use serial numbers using this code below?

$number=00000001
while $number < 99999999
...
$number = $number+1
wend

Does it increase to 00000002 00000003 etc?

Edited August 24, 2012 by PHPWarner

[water]

No, it increases to 2 and 3 etc. You have to use StringFormat after calculation to prepend the 0's.

[jdelaney]

my bad:

#include <Array.au3>
dim $array[1000]
For $j = 0 to UBound ( $array ) - 1
 $array[$j] = RndNum (8)
Next
_ArrayDisplay ( $array )
Func RndNum ( $iCallersStringLen )
 $i = Random ( 1, (10^($iCallersStringLen))-1 )
 $i = Round ($i, 0 )
 While StringLen ( $i ) < $iCallersStringLen
  $i = 0 & $i
 WEnd
 Return $i
EndFunc

[BrewManNH]

Wouldn't StringFormat be easierr than running through a loop to add zeros to the string?

[Malkey]

Wouldn't StringFormat be easierr than running through a loop to add zeros to the string?

And it would be easier to use StringRight than using StringFormat to add leading zeros to a number, in my honest opinion.

Local $iNum = 25
Local $sString = StringRight("00000000" & $iNum, 8)

MsgBox(0, "Result", $sString, 4)

[BrewManNH]

Easier no, as easy probably.