Search Tools Links Login

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.

Original Author: Rokinroj


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


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

About this post

Posted: 2002-06-01
By: ArchiveBot
Viewed: 85 times


Visual Basic 6


No attachments for this post

Loading Comments ...


No comments have been added for this post.

You must be logged in to make a comment.