Extracting and printing defined characters from a substring

[c4ss]

I wish to print into a label the first 3 characters from a text box called txtSurname.text, and a string variable called surname. The current code looks like

lblRef.Caption = surname & Int(Rnd * 100)

As it is, the full surname prints in the label followed by a random number between 1 and 99. I wish it to print the first 3 letters of the surname followed by the random number.

As far as I know this uses substrings. Could anybody show me how to do this.

The label is lblRef.caption the surname is txtSurname.text

[alex_read]

I wish it to print the first 3 letters of the surname followed by the random number.

lblRef.Caption = cstr(left(surname,3)) & CInt(Rnd * 100)

The substring is used in vb.net, in vb5/vb6, you need to use the left(), mid(), and right functions.

[Merri]

lblRef.Caption = Left$(surname, 3) & (Int(Rnd * 99) + 1)

Left$ takes the given number of characters out of the string and returns these. The edited Rnd code will result the 1 - 99 you mentioned, because Rnd returns a random number from 0 to anything below 1. Thus adding one makes sure 1 is the lowest score you can get.

[alex_read]

followed by a random number between 1 and 99

Ah, not quite! This will generate a number from 0 to 99. Use this instead:

CInt((Rnd * 99) + 1)

This will generate a random number from 0 to 98, then add a 1 to it!

[Merri]

CInt uses bankers' rounding, so it might even give results up to the given number.

Private Sub Command1_Click()
    Command1.Caption = CInt(Rnd * 2)
End Sub

See for yourself! Returns 0, 1 or 2

[alex_read]

ah, ok, didn't know that one! kiitos paljon!

[c4ss]

Thx for all your help, worked perfectly. Now onto this part:

http://www.vbforums.com/showthread.p...hreadid=314667