quick help with a small script please

[t0ddie]

what i need to script, is a name generator that makes 32 character names, randomly.

the first half of the name should be any combination of letters between a-z (16 characters)

the second half of the name should be any combination of numbers between 0-9 (16 characters)

so, i would need an input box first, to ask how many names to create

so an example of what i should get if i wanted 3 names, should be something like this...

skwivnfhuryandlr9184058172645832

dhqicnahsgdytegf0198574673645624

ksjvhuryanvhxgzt9582701928746573

it should save the names to a .txt file of course...

i think i want to use an array to do this, but i need a little help...

i am going to make the script slightly more advanced, but i would like a place to start.

any help is appreciated! thanks

-Todd

[CyberSlug]

Call RandomName() to generate a name. I use $result to simply combine the names for display with the MsgBox; use @LF to insert line-feeds

$count = InputBox("How Many?", "How many names?")
$result = ""
For $i = 1 to $count
   $result = $result & RandomName() & @LF
Next
MsgBox(4096,"Example", $result)
Exit

Func RandomName()
   Local $i, $name = ""
   For $i = 1 to 8
      $name = $name & Chr(Random(Asc("a"), Asc("z")+1))
   Next
   For $i = 1 to 8
      $name = $name & Chr(Random(Asc("0"), Asc("9")+1))
   Next
   Return $name
EndFunc

Edited September 2, 2004 by CyberSlug

[t0ddie]

well, heres what i got, but it doesnt make a new line in the .txt document. instead, i get a square between the names where it should have gone to the next line.

$count = InputBox("How Many?", "How many names?")

$result = ""

For $i = 1 to $count

$result = $result & RandomName() & @LF

Next

;MsgBox(4096,"Example", $result)

$file = FileOpen("names.txt", 1)

If $file = -1 Then

MsgBox(0, "Error", "Unable to open file.")

Exit

EndIf

FileWriteLine($file, $result)

FileClose($file)

Exit

Func RandomName()

Local $i, $name = ""

For $i = 1 to 16

$name = $name & Chr(Random(Asc("a"), Asc("z")+1))

Next

For $i = 1 to 16

$name = $name & Chr(Random(Asc("0"), Asc("9")+1))

Next

Return $name

EndFunc

maybe i need to move the @LF command to another part of the script or something, i dont know. thanks for the help so far!

how do i fix this?

works good for the most part

thanks!

~T0ddie

[t0ddie]

hell yeah larry

i love you, in a totally heterosexual way

thanks also cyberslug.

~Toddie