[RESOLVED] Need help replacing a url!!

[jmsrickland]

Edgemeal, that is exactly what I showed him in post #5, he just didn't pay any attention to it.

[menzow]

Edgemeal, that is exactly what I showed him in post #5, he just didn't pay any attention to it.

That didn't work -.-"

[menzow]

And now i have a new problem

it shows duplicated ID's ( 2 times )
becouse there is a
thewebsite.com/id=12312
and
thewebsite.com/id=conf=12312

[Edgemeal]

And now i have a new problem

it shows duplicated ID's ( 2 times )
becouse there is a
thewebsite.com/id=12312
and
thewebsite.com/id=conf=12312

I assume you don't want duplicates in the listbox, if so add this,

Private Declare Function SendMessage Lib "user32" Alias "SendMessageA" (ByVal hWnd As Long, _
 ByVal wMsg As Long, ByVal wParam As Long, lParam As Any) As Long

Private Const LB_FINDSTRINGEXACT = &H1A2

Private Function FindItem(Lst As ListBox, strText As String) As Integer
    FindItem = SendMessage(Lst.hWnd, LB_FINDSTRINGEXACT, -1, ByVal strText)
End Function

and replace -> script.AddItem Mid$(s, q + 1) <- with,

If FindItem(script, Mid$(s, q + 1)) = -1 Then script.AddItem Mid$(s, q + 1)

[Edgemeal]

Edgemeal, that is exactly what I showed him in post #5, he just didn't pay any attention to it.

Ya I see it now.