remove duplicate from multi line textbox

[bogaa]

i have had inuff searching wasted 30 min and cant find what am looking for so annoyed can anybody help

[RhinoBull]

30 minutes, eh?

Anyways, can you at least explain in details what you want to accomplish? Thanks.

[SamOscarBrown]

Well, as a mutliline textbox is really one STRING, you can use split or instr to seach in that string, word for word. If you want to remove a 'line', that could prove difficult. Another method (albiet a long one), you could also go word for word in that string, put them each in a listbox, go through the listbox and remove dupes, and then replace your textbox with your new string. But split is probably your best answer to remove duplicate 'words'/strings in the textbox.

[Max187Boucher]

first of all you need to know which words to find... and we need to know what is it for and maybe what kind of words you will be looking for and why is it your looking for these words

for example if you remove the words in a chat you could be doing something bad because if someone write

Hey how are you today? I hope today will be a good day! Do you need some help with your code?

...... so in here you have the word you 3 times (yes only 2, but one would also be "your", if you do use instr() )
...... and the word day
...... and the word a (if looking with split(text, " "))

anyways see how it is not good... you will need a list (kind of what sam said) and once you have that list you can look for the words

unless it is for something that is not suppose to have duplicate words like when receiving data make sure you dont get 3 times the username or 3 times the same file etc...

[Doogle]

@bogaa: You really do need to slow down and think about your questions before you post them. You give us very little information or detail of exactly what the circumstances are, how the 'duplicate' got there in the first place, what exactly you mean by 'duplicate' and what should happen to the remaining text (eg having removed the 'duplicate' should the whole TextBox then be re-formatted?).

I could read your question literally:

Dim lngPos As Long
Dim lngStart As Long
lngStart = 1
Do
    lngPos = InStr(lngStart, txt.Text, "duplicate")
    If lngPos > 0 Then
        txt.SelStart = lngPos - 1
        txt.SelLength = 9
        txt.SelText = vbNullString
    End If
    lngStart = lngPos + 1
Loop Until lngStart > Len(txt.Text) Or lngPos = 0

which does exactly what you've asked - but I doubt if that's what you want. How do you expect us to be able to help if you don't supply enough information ?

I suspect that there are some members here who take a look at your Posts, come to the conclusion that there's not enough information and just skip them, when, perhaps they could have helped if you'd given more details.

Remember that you're much closer to your code then we are.

[bogaa]

sorry doogle nxt time il add more info thanks

[Doogle]

So, would you like to tell us more about the problem you're having with duplicates?