جلوگیری از گذاشتن لینک در ادیت تکست

[majerajoo 161]

سلام دوستان 

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

کد اقای نیکروان رو دیدم ولی اون چیزی که من میخواستم رو نتونستم درست کنم

[Amir - B 184]

سلام 

کار سختی نیست 

خدمت شما:

Sub Globals
	Dim e As EditText

End Sub

Sub Activity_Create(FirstTime As Boolean)
e.Initialize("e")
Activity.AddView(e,0,0,Activity.Width,30%y)
End Sub

Sub Activity_Resume

End Sub

Sub Activity_Pause (UserClosed As Boolean)

End Sub
Sub e_TextChanged (Old As String, New As String)
	If e.Text.StartsWith("http://www.")=True Then
		ToastMessageShow("لطفا لینک را بردارید :)",True)
	End If
End Sub

 

 

اومدیم گفتیم اگر ابتدای متنی که تو ادیت تکست وارد میکنه، http://www. بود ، یک تواست مسیج نشون بده . به جای startWith هم میتونید endWith قرار بدید که آخر متن ادیت تکست رو میگیره . 

[majerajoo 161]

سلام 

این کد برای ادیت تکست های یه خطی خوبه

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

[نورنما 613]

سلام . ببینید این به دردتان میخوره ؟ اینو اینجوری نوشته ام امتحانش نکرده ام ولی روش کار عموما اینطوریه .

Sub EditText1_TextChanged (Old As String, New As String)  'وقتی متن تغییر کرد 
Dim new1 As String=New
Dim regex_new1() As String
 
Dim MatchEmail2 As Matcher = Regex.Matcher("http://www.", new1)
 

If MatchEmail2.Find = True Then
	  Log("لینک یافت شد")  
		'Return True
             regex_new1 = Regex.split(" ",new1) 'ریختن کاراکترهای متن داخل ارایه
				
                If new1.SubString2(new1.Length-11,new1.Length) ="http://www." Then   ''11= تعداد حروف موجود در http://www.
                 EditText1.Text=regex_new1(0)  'حذف لینک بطور خودکار 
                Else 	
                     EditText1.Text=regex_new1(0)& regex_new1(1)  'حذف لینک بطور خودکار
                End If 		 

                    'انتقال مکان کروسر ادیت تکست به آخر عبارت
                    If (EditText1.SelectionStart)=0 Then EditText1.SelectionStart=(EditText1.Text.Length)


 Else
        Log("لینک یافت نشد")  
		Log("new1: "&new1)
		'Return False
End If

End Sub

 

[پژمان نیکروان 6,055]

در در 1396/06/02, 08:15:01، majerajoo گفته است :

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

لازم نیست حتما کد رو توی قسمت TextChange بذارید.

بذارید قبل از انجام عملیات و کلیک روی دکمه... چک کنید اگر عبارت Http:// یا https یا www وارد شده بود اخطار بده.