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
Original Author: Rokinroj
Assumptions
text1.text needs to contain a list of text that is seperated by a return
Code
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
Loading Comments ...
Comments
No comments have been added for this post.
You must be logged in to make a comment.