تنظیم متن در لیست باکس

[iran2008]

سلام
من توی یه تکست باکس چند خط متن دارم که توی این خط ها نام چند تا آدرس وب هست .

حال میخوام وقتی که رو دکمه بزنم نام آدرس ها رو وارد کنه . ( بدون تکرار )
چون خودم که میزنم همش نام اولین آدرس وب که توی متن هست رو وارد میکنه .

میخوام یه جوری نام همه آدرس های وب رو جمع کنه و بذاره تو لیست باکس .
همین.

مرسی. :قلب:

( فایل ضمیمه اصلاح گردید و دوباره آپلود شد . فرم رو توش گذاشتم )

[Dr.Bronx]

عجله کار شیطونه .
فرم رو یادتون رفته بزارید دوست عزیز.

[iran2008]

فایل ضمیمه رو اصلاح کردم و فرم رو توش گذاشتم .
با تشکر..

[iran2008]

ببخشید که پست اضافی میزنم
اما احتیاج به کمک دارم
مرسی..

[parselearn]

Private Sub Command1_Click()
On Error Resume Next

Dim x() As String
Dim i%
List1.Clear
x = Split(Text1.Text, vbCrLf)
For i = 0 To UBound(x)
List1.AddItem CStr(x(i))
Next

For i = 0 To List1.ListCount
For j = 0 To List1.ListCount
If i <> j Then
If List1.List(i) = List1.List(j) Then
List1.RemoveItem (i)
End If
End If
Next j
Next i
End Sub




ببخشيد
به پروژتون توجه نكردم. ولي خوب كد پاك نمي كنم شايد ديگران لازم داشته باشيند
ولي فكر كنم در چند تاپيك قبلي من همچنين كدي رو ديده بودم
برگرديد به صفحات قبل

[parselearn]

On Error Resume Next
Dim m As Integer
m = 1
For i = 0 To 1000
http = InStr(1, T1.Text, "href=" & Chr(34))
akhar = InStr(http + 8, T1.Text, Chr(34))
T2.Text = T2.Text & vbCrLf & s
s = Mid(T1.Text, http, akhar - http)
List1.AddItem s
T1.Text = Right(T1.Text, Len(T1.Text) - akhar)
If List1.List(i - 1) = List1.List(i) Then
List1.RemoveItem (List1.ListCount - 1)
Exit For
End If
Next

Me.Caption = "Count:" & CStr(List1.ListCount)