String Help

HI guy

I need some help here what my problem

i have a set of number in the following formats

A) 1,2,3,4,5,6,7,8,9,10,12,20,22,23,24,25
or
b) 1 2 3 4 5 6 7 8 9 10 12 20 22 23 24 25


Then i got a string in a text box this string must contain either one or more number that can be found in either A or B.

i need some way to check this in VB 6 Please help me.

Thank you

Hmm, im not opening VB here or anything, but an obvious (but slow) way to find out would be to set an array with all the search numbers with one element per number, then check them against the master string to see if they are in it. For example, if you would like to know if 15 is in the list then if InStr(0, txtMaster.text, "15", vbTextCompare) <> 0 then it exists. Hoever be careful, because that will recognize 15 even if it is 150.

VB Code:

Dim NumberA() As String
Dim NumberB() As String
Dim Found() As Boolean
Dim AnyFound As Boolean
 
TextA.Text = Replace(TextA.Text, " ", ",")
NumberA = Split(TextA.Text, ",")
 
TextB.Text = Replace(TextB.Text, " ", ",")
NumberB = Split(TextB.Text, ",")
 
Redim Found(UBound(NumberB)) As Boolean
 
For i = 0 To UBound(NumberB)
  For j = 0 To UBound(NumberA)
    If Val(NumberB(i)) = Val(NumberA(j)) Then
      Found(i) = True
      AnyFound = True
    End If
  Next j
Next i

Quote:

---

Originally Posted by jeroen79

VB Code:

Dim NumberA() As String
Dim NumberB() As String
Dim Found() As Boolean
Dim AnyFound As Boolean
 
TextA.Text = Replace(TextA.Text, " ", ",")
NumberA = Split(TextA.Text, ",")
 
TextB.Text = Replace(TextB.Text, " ", ",")
NumberB = Split(TextB.Text, ",")
 
Redim Found(UBound(NumberB)) As Boolean
 
For i = 0 To UBound(NumberB)
  For j = 0 To UBound(NumberA)
    If Val(NumberB(i)) = Val(NumberA(j)) Then
      Found(i) = True
      AnyFound = True
    End If
  Next j
Next i

---

please help me a little more not too good at this

All you need two textboxes, named NumbersA and NumbersB.
NumbersA will contain the long list of numbers.
NumbersB will contain the short list of numbers, which will be looked for in NumbersA.

AnyFound will be true if any numbers in NumbersB are found in NumbersA.

Hi

i would like when it does not have one or more number message must pop up and say does not contain or if it contain a number that the long does not has message box pop and say does not contain.


Plese help me

You can also add space to the beginning and end of the temp copy of the long string

That way you only have to loop fewer times and check the long string with If InStr(1, " " & longstr & " ", " " & Nums(arrayindex) & " ") > 0

Guy Guy

Thank for the help but i do not know if you got what i mean i know you got most of it.


What is my main aim is that i has a text box with lot number like 1,2,3,4,5,10,12,14 (master text box)

and i want a to check a second text box that contain number too again the first text box(master text box).

if the second text does not contain one or more number then i want a message to popup.

if it find some number in the second box that does not contain in the first box(master) message box much pop up

Your looping through the numbers in your short "nums to check" string, right?

Everytime you determine that the number is not in the long list (through my implementation or jeroen79's) then you append this number to a string named as strErrNums.

strErrNums = strErrNums & "," & YourNumArray(currentIndex)

Later on, if Len(strErrNums) > 0 then there was an error. Prompt that to the user.

MsgBox "Wrong Input!! The numbers " & strErrNum & " are not in the master list"

Can you please write the code for me.

Thank you

andrnet2004 , writing the code for you might not be much of a problem. I am assuming you are new to programming or vb. That being the case you won't be learning much if we write the code for you. Post the code that you have written, then people here will let you know what modifications need to be made. That way you will be able to learn better and more.