تشخیص متن از عدد

[Hadi9900 1]

سلام...

بنده یک stringرا از ادیت تکست دریافت کرده که۱۳تا حرف یا عدد است (3weqwertyuiop)بعد حدودا ،۱۰رقم اول را با کد نویسی پاک کردم(qwertyuiop) و ۳رقم آخر باقی ماند حالا می خواهم تشخیص دهم که اگر در اون ۳رقم حروفی باشه مثلا3weاونو بشه تشخیص داد که بینشون حرف است یا عدد و بشه کد های لازمو در اون صورت انجام داد

[محمدرضا شاهپیری 5,631]

سوالتون خیلی گنگه و مبهمه عزیز. منظورتونو یکم شفافتر بیان کنید

[Hadi9900 1]

ببین داداش من یه متنی رو تو EditeText گرفتم و تو stringذخیره کردم اون متن می تونه تنها عدد باشه یا حرف englishیا هردو تا رو شامل بشه حالا من میخوام بدونم وقتی شخصی تو ادیت تکست یه چی نوشت  چطور بشه تشخیص داد که در ادیت تکست فقط عدد هست یا فقط حرف یا هردو تاش هست ...

مثلا وقتی شخص در ادیت تکست هم عدد و هم حرف english وارد کرد برنامه یه پیامی بده

باتشکر

در 19 دقیقه قبل، محمدرضا شاهپیری گفته است :

سوالتون خیلی گنگه و مبهمه عزیز. منظورتونو یکم شفافتر بیان کنی

[محمدرضا شاهپیری 5,631]

در 5 ساعت قبل، Hadi9900 گفته است :

 

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

واسه اینکه تشخیص بدید متن حاوی کاراکتر فارسی داره از متدذ جاوای زیر استفاده کنید.

#If java
  import java.util.regex.Matcher;
   import java.util.regex.Pattern;
   public boolean chekpersian(String string){
     final Pattern RTL_CHARACTERS =
            Pattern.compile("[\u0600-\u06FF\u0750-\u077F\u0590-\u05FF\uFE70-\uFEFF]");
      Matcher matcher = RTL_CHARACTERS.matcher(string);
     if(matcher.find()){
       return true;
      }
   return false;
}
#End If


واسه استفاده تو بیسیک.

Dim java As JavaObject
Dim ispersian As Boolean=java.InitializeContext.RunMethod("chekpersian",Array As Object("سلام خوبی."))

 

واسه اینکه تشخیص بدین متن حاوی کاراکتر انگلیسی هست یا نه از متد زیر استفاده کنید.

Sub chekenglish(matn As String) As Boolean
	If Regex.IsMatch(".*[a-zA-Z]+.*",matn) Then
	   Return True
	End If
	Return False
End Sub

 

واسه اینکه تشخیص بدین متن حاوی کاراکتر عددیه یا نه از متد زیر استفاده کنید.

 

Sub checknumber(matn As String) As Boolean
	If Regex.IsMatch(".*[0-9].*",matn) Then
	   Return True
	End If
	Return False
End Sub

 

[Hadi9900 1]

واقعا عالیییییییییی بود خیلی ممنون