[RESOLVED] Compare string and array

[goofan]

Someone got an tutor on it or some code to show? cuz i got nothing tried alot and nothing worked so ...

[akhileshbc]

You should elaborate your question first, by providing more details and even codes that you had tried. We don't know what you have in your mind.

[goofan]

Well its the basic question of how to do it that i dont know...

Well code sample of ideés would be:

*dim splitcontent() as string


splitcontent = split(contents)  '~~~ splitting my string with all the text in it to make it go one word each into the array...
for r = Lbound(splitcontent()) to Ubound(splitcontent())

if strcomp(Trim$(add.text), Trim$(splitcontent(r)), vbtextcompare) = 0 then
msgbox "Allready exist"
exit sub
end if
next r

took ure code from the past threads and changed it "thought might work"

Hope this helps abit cuz all the other ides i forgott...

[goofan]

i got this in array:

Hey
You
Are
Here
Right
Now
And
...

I got this in the string:

Hey

Code:

If Hey is found in the array then 
msgbox "ID exist allready"
exit sub
end if

[akhileshbc]

The code you have provided will compare the entire line (splitcontent(r)) with the textbox content (add.text).

Is that what you want ? Did you tried(testing) the code ?

[goofan]

yes i tried and got subsciption out of range...

[goofan]

compare the entire line

it will not, it will compare the words within it... "right"?

[Merri]

You don't need to Split if all your strings are separated by space.

Dim lngPos As Long, strText As String, strFind As String

' original content
strText = "Hey You Are Here Right Now And"
strFind = "and"

' add spaces around so first and last words are also surrounded by a space
strText = " " & strText & " "

' force spaces around the search keyword as well!
strFind = " " & strFind & " "

' now find that word - you will not get a mismatch!
lngPos = InStr(1, strText, strFind, vbTextCompare")

' if lngPos > 0 then we found something: this is a short way to write it
If lngPos Then
    MsgBox "Found"
Else
    MsgBox "Not Found"
End If

In this sample space characters are always in the each side of a word, which can then be effectively used as an accurate separator information. Thus you'll end up doing a bit less work than you would do if you used Split to create and array and manually checked each item. InStr with TextCompare isn't the fastest thing in the world, but depending on what you're doing it should be fast enough.