hi.
uhm. im having a problem with coding such conditional statement that would check if a certain input contains a certain subs tring.
for example. i have a text box that is used for the user to input a string. (0,1)
then i have a command button to determine if the string inputted contains a sub string of '1' on the 3rd position. if the inputted string includes '1' at the third position then a label would display "accepted!" if not, "not accepted"

eg.
input | output
000101 not accepted
001001 accepted
011010 accepted
11001 not accepted

thankyou so much for the help :)

Re: dealing with substrings in vb6 80 80

Post your code. So we can fix it.

Re: dealing with substrings in vb6 80 80

Look up the MID, LEFT, RIGHT and INSTR commands.

Re: dealing with substrings in vb6 80 80

Waltp is exactly right. You have to use MID command.

Such as an example with this:

Private Sub Command1_Click()
if Mid(text1.text, 3, 1) = 1 then
label1.caption = "Accepted!"
else
label1.caption = "Not accepted!"
end if
end sub


"The number "3" on the right side of the text1.text pertains to the position of the input text(3rd position)

Re: dealing with substrings in vb6 80 80

Waltp is exactly right. You have to use MID command.

Such as an example with this:

Private Sub Command1_Click()
if Mid(text1.text, 3, 1) = 1 then
label1.caption = "Accepted!"
else
label1.caption = "Not accepted!"
end if
end sub


"The number "3" on the right side of the text1.text pertains to the position of the input text(3rd position)

thanks.but what happens is here is that the conditions waiting for an input of 1 before it says not accepted. it would be better if the labels caption of not accepted would change as soon as the 3rd sub string of 0 is inputted.

Re: dealing with substrings in vb6 80 80

thanks.but what happens is here is that the conditions waiting for an input of 1 before it says not accepted. it would be better if the labels caption of not accepted would change as soon as the 3rd sub string of 0 is inputted.

Ohh i see, then you have to put the code instead in the textbox itself and not with the command button.

For example:

Private Sub Text1_Change()
if Mid(text1.text, 3, 1) = 1 then
label1.caption = "Accepted!"
else
label1.caption = "Not accepted!"
end if
end sub

Try it! :)

Re: dealing with substrings in vb6 80 80

Ohh i see, then you have to put the code instead in the textbox itself and not with the command button.

For example:

Private Sub Text1_Change()
if Mid(text1.text, 3, 1) = 1 then
label1.caption = "Accepted!"
else
label1.caption = "Not accepted!"
end if
end sub

Try it! :)

thanks!!

Re: dealing with substrings in vb6 80 80

You're welcome! :)

Be a part of the DaniWeb community

We're a friendly, industry-focused community of 1.19 million developers, IT pros, digital marketers, and technology enthusiasts learning and sharing knowledge.