گرفتن زبان فعلی تکست باکس

[نیما 30]

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

امیدوارم اسم تاپیک مناسب باشه ! نمیدونستم غیر این چی بزارم

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

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

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

مثلا تو سی شارپ میومدیم یه فرمت و شرط خاص برای استرینگ میزاشتیم که مثلا اگه اولین کاراکترمتن شامل (a-z) بود پس تعرفه انگلیسی میشه.
میخوام همچین چیزی رو استفاده کنم.

امید وارم واضح بوده باشه ! لطفا راهنمایی کنید میدونم سوال بچه های دیگه هم میتونه باشه

تشکر

[shahab.es 5,429]

سلام

یه چک بکنید اینو

Dim ed As EditText

If ed.Text != "" Then
	Dim str As String
	str = ed.Text.SubString2(0,1)
	If str.ToLowerCase = str.ToUpperCase Then
		ToastMessageShow("farsii")
	Else
		ToastMessageShow("english")
	End If
End If

[نیما 30]

استاد جوابتون کاملا درسته . فقط دوتا موضوع هست
اول اینکه باید به جای  =! تو بیسیک <> بزاریم
دوم هم اینکه باید اول متن تکس باکس رو Trim کنیم بعدش از رشته ساب استرینگ بگیریم. چون احتمال این هست که کاربر اولش رو فضای خالی بزاره .
بازم خیلی ممنونم . تشکر

[مجید آرتا 5,874]

سلام

شما می تونید به وسیله Regex   الگوی متن a-z  رو مشخص کنید و شرط بزارید که این حروف بودن که انگلیسی و در غیر اینصورت فارسی

اگه اشتباه نکنم الگوی حروف a-z به این شکل w\ باشه.

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

 

این تکه کد رو هم تست کن ببین جواب میگیری یا نه.( دستی نوشتم مطمئن نیستم جواب بده ) »

Dim TargetText As String = EdtInput.Text
Dim MatcherInput As Matcher = Regex.Matcher("\w",TargetText)
If MatcherInput.Find = True Then
 ToastMessageShow("En",True)
 Else
 ToastMessageShow("Fa",True)
End If