Searhing Data in String

[mutley]

Hi

How can I to Find a Data in String ?

("AC","ADM","AL","ALA","ALT","AN","ANT","AP","AR","AT","B","BAN","BI","BL","BOX","BX", _
                      "C","CA","CAB","CAL","CAN","CD","CH","CJ","CL","CO","COB","CS","D","E","ED","EP","ESC", _
                      "F","FAZ","FR","FU","GAL","GAR","GB","GJ","GP","GT","GUI","HAR","HG","JD","KM","LA","LJ", _
                     "LO","LT","MZ","OF","PA","PAD","PAS","PD","PI","POR","PRO","PRT","PT","PTE","PTO","PV", _
                                      "QD","QS","REC","RES","SG","SIT","SJ","SL","SLO","SS","ST","STD","TE","TOR","TR","TRV","TYI", _
                                      "VLA","X","ZEL")

[timeshifter]

First, test it to make sure the desired result is in the string.
I'll use "CO" as my example:

If InStr(myStr, "CO") > 0 Then

If that returns a value greater than 0, a.k.a. your search exists, probably the easiest thing to do would be to break it into an array and search each value:

Dim myArray() As String
myArray = Split(myStr, ",")
For i = 0 to UBound(myArray)
   If myArray(i) = "CO" Then
      'your code here
   End If
Next i

[gavio]

Shouldn't it be:

'...
   If myArray(i) = [U]Chr(34) &[/U] "CO" [U]& Chr(34)[/U] Then
      'your code here
   End If
'...

?

[timeshifter]

Good call. We could always get rid of the quotes in the string before we split it... that would eliminate that problem...

myStr = Replace(myStr, chr(34), "")

Then run it through my subs...