• Home
 · 
• Data Structures
 · 
• split function with a textbox

split function with a textbox

Good example of the split and randomize commands.
lets you place a long list of text in a textbox and randomly grab a line. My use for this was I had about 500 cd keys to issue to customers as they would callin. I would run this script, give them a number, remove from my list later, etc.
Possible uses might be for numbers, tip of the day quotes, etc.
Rokinroj

Assumes
text1.text needs to contain a list of text that is seperated by a return

Rate split function with a textbox

• 1
• 2
• 3
• 4
• 5

(4(4 Vote))

Private sArray() As String
Private Sub cmdGetKey_Click()
Dim RandNum As Long
  Randomize
  RandNum = Int(Rnd * 1446) + 1
  Text1.Text = sArray(RandNum)
  
End Sub
Private Sub Form_Load()
   sArray() = Split(txtKeys.Text, vbCrLf)
End Sub