سوال در مورد لیست باکس

[hackershz]

با سلام و خسته نباشید به دوستا ن عزیز


سوال بنده »


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

داخل لیست باکس به صورت رندوم بین 50-100 تا لینک است

لینک ها به صورت زیر است

http://www.site.com/folder/username/ezafatlink

http://www.site.com/folder/username1/ezafatlink4155

http://www.site.com/folder/username2/ezafatlink41ssds5


بنده میخوام این لینک ها تبدیل بشند به صورت زیر

username
username1
username2

و اضافهات و... پاک بشه

یعنی در اصل میخوام که فقط یوزر نیم ها توی لینک باکس بمونند

با تشکر

[Mori Bone]

سلام. اگر همیشه لینک به صورت بالا هست و یوزر نیم در همون مکان و در اندیس 21(از http بشمارید) قرار داره. راحت می تونید با تابع mid این کارو بکنید.

mid(mylink,21,instr(21,mylink,"/"))

[hackershz]

سلام. اگر همیشه لینک به صورت بالا هست و یوزر نیم در همون مکان و در اندیس 21(از http بشمارید) قرار داره. راحت می تونید با تابع mid این کارو بکنید.

mid(mylink,21,instr(21,mylink,"/"))

میشه با ذکر مثال به بنده توضیح بدید ؟

تشکر

[hackershz]

یه دوست محترم و عزیز برای من مثال بزنه به صورت پروجه اگه امکانش هست


ممنونم میشم

[meys34]

البته کدی که دوست عزیز قرار داده بودند رو یکمی تغییر دادم تا بشه اون چیزی که میخواید...

Private Sub Command1_Click()

Dim j As Integer



Dim i As Integer

For i = 0 To List1.ListCount - 1

     j = InStr(1, List1.List(i), "folder/")

     If j Then j = j + 7: List1.List(i) = Mid$(List1.List(i), j, InStr(j, List1.List(i), "/") - j)

Next

End Sub



Private Sub Form_Load()

List1.AddItem "http://www.site.com/folder/username/ezafatlink"

List1.AddItem "http://www.site.com/folder/username1/ezafatlink4155"

List1.AddItem "http://www.site.com/folder/username2/ezafatlink41ssds5"

End Sub

فایل اش رو هم ضمیه کردم...

[Mori Bone]

یه دوست محترم و عزیز برای من مثال بزنه به صورت پروجه اگه امکانش هست


ممنونم میشم

من الان به ide دسترسی ندارم. ولی کدی که دادم کار می کنه.

Dim loopC as Integer

Dim listItem as String

Dim userNames() as String

ReDim userNames(list1.ListCount-1)

For loopC=0 To list1.ListCount-1

     listItem = list1.List(i)

     userNames(i) = mid(listItem, 21, Instr(21 , listItem, "/") - 21)

Next

این یه نمونه

[hackershz]

کد رو به این صورت زدم

Text10.Text = Mid(txtURL.Text, 29, InStr(8, txtURL, "/"))


متاسفانه یوزر نیم اگه عددی بهش اضافه بشه دیگه پیداش نمیکنه

مثلا یوزر باشه
alireza123

یا
rezatehraniii

تعداد حروف و اعداد یوزر ها ثابت نیست

[Mori Bone]

کد رو به این صورت زدم

Text10.Text = Mid(txtURL.Text, 29, InStr(8, txtURL, "/"))


متاسفانه یوزر نیم اگه عددی بهش اضافه بشه دیگه پیداش نمیکنه

مثلا یوزر باشه
alireza123

یا
rezatehraniii

تعداد حروف و اعداد یوزر ها ثابت نیست

کد دوم من درست عمل می کنه