This maybe sloppy, as I'm doing it from memory.
VB Code:
Imports System.Text.RegularExpressions ... 'Each line of data should now be a unique value in the array Dim Names() as String = _ Regex.Split(IO.File.OpenText("C:\namefile.txt").ReadToEnd(),"\r\n", RegexOptions.SingleLine) For i as Int32 = 0 to 2 'Call your random number generator Dim iRnd as Int32 = RandomNumber(0,Names.Length - 1) 'Process Names(iRnd) Next




Reply With Quote