تشخیص لینک در متن

[101011 50]

سلام دوستان

 

چجوری میشه یک متن رو که داخلش لینک هست رو تشخیص داد و لینک رو کاری کرد که وقتی روش کلیک میشه مرور گر باز بشه?

 

[امین مهدی نژاد 2,142]

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

Sub Label1_Click
	If Regex.IsMatch("(https?:\/\/(?:www\.|(?!www))[^\s\.]+\.[^\s]{2,}|www\.[^\s]+\.[^\s]{2,})",Label1.text) Then
		Dim p As PhoneIntents
		StartActivity(p.openbrowser(Label1.text))
	End If	
End Sub

کتابخونه Phone رو حتما به برنامتون اضافه کنید.

«موفق باشید.»

[101011 50]

تشکرّ

اگه چند تا لینک بود?

مثلا 2 3 تا لینک بود چیکار میکنه?یهويي همه رو باز میکنه یا لیست مياره هر کدوم رو کاربر خواست باز میکنه?

[AMiN.M7892 1,029]

سلام دوست عزیز،

توی همین فروم یا جای دیگه سرچ کنید "Linkify"

[امین مهدی نژاد 2,142]

در 22 دقیقه قبل، 101011 گفته است :

تشکرّ

اگه چند تا لینک بود?

مثلا 2 3 تا لینک بود چیکار میکنه?یهويي همه رو باز میکنه یا لیست مياره هر کدوم رو کاربر خواست باز میکنه?

نه اگه به این شکل بخواین می تونین از LabelExtras  استفاده کنین

لینک زیر رو چک کنین .

https://answercenter.ir/topic/11445-کتابخانه-edittextplus-افزودن-قابلیت-های-بیشتر-به-ادیت-تکست-بیسیک4اندروید/

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

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

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

مثلا :

Dim HtmlString As String="example text <a href='https://answercenter.ir/'>answercenter</a> with url"

«موفق باشید.»