listbox search

[om-yousif]

i have a listbox with some items
a textbox with a word
a richtextbox with a paragaph


there is some of the words in the paragraph followed by a listbox item


check the richbox
if the word which in the textbox is followed by one of the listbox items then

delete that item from the richbox
delete that item from listbox

endif




how can do this

[gavio]

What??????????

[om-yousif]

for example

listbox items are:
hello mary
need sugar
teach them
good by


text1.textis:
Salma


richtext.text is:
example1: hfe urefheur hrfer f Salma need sugar jdsud hdcbuds

in this case the word Salma is followed by on of the list items
so delete this item from the list and delete from the richtext

so we will get this :
listbox items are:
hello mary
teach them
good by


richtext.text is:
example1: hfe urefheur hrfer f Salma jdsud hdcbuds

example2: hfe urefheur hrfer f Salma jdsud hdcbuds



here the word Salma is followed by a word which is not an item of the list
so nothing will happen in this case


is it clear now

[ganeshmoorthy]

try this

Dim iPos As Integer
    For i = 0 To List1.ListCount - 1
        iPos = InStr(1, List1.List(i), txtText1.Text)
        If Trim(txtText1.Text) = "" Then Exit For
        If iPos > 0 Then
            txtText1.Text = Mid(txtText1.Text, 1, iPos - 1) & Mid(txtText1.Text, iPos + Len(List1.List(i)))
            List1.RemoveItem (i)
        End If
        iPos = 0
    Next

change the control names to suit your requirement

[om-yousif]

Hi ganeshmoorthy
i tried the code
but i didn't work

i think because it should search the richtextbox for the word first then check
if it followed by on of the list items then
delete