سلام

کد زیر متن خاصی رو جستجو میکنه و سپس انها را در لیست باکس اضافه میکنه

اما مشکل من این هست که متن های تکراری رو اضافه نمیکنه!


Const a As String = "<P dir=rtl>"
Const b As String = "</P>"
Dim j%, k%, f

Dim i As Integer
For i = 1 To 100
Do
j = InStr(1, Text, a, vbTextCompare)
If j = 0 Then Exit Do
f = InStr(j, Text, b, vbTextCompare) - j + Len(b)
List1.AddItem Mid$(Text, j, f)
Text = Replace(Text, Mid$(Text, j, f), "")
Loop
Next i