تشخیص نوشته ی فارسی در TextBox

[davoodx]

سلام
چطوری میشه فهمید که نوشته ای که در TextBox تایپ شده فارسیه یا نه ؟

[Payman62]

سلام.
از رو کد اسکی کاراکتر ها میشه فهمید.

[davoodx]

می خوام رویدارد KeyPress زا طوری تنظیم کنم که فقط فارسی تایپ بشه .
از چه کدی باید استفاده کنم ؟
اگه امکانش هست یه مثال برام بزن . مرسی

[amirjan]

می خوام رویدارد KeyPress زا طوری تنظیم کنم که فقط فارسی تایپ بشه .
از چه کدی باید استفاده کنم ؟
اگه امکانش هست یه مثال برام بزن . مرسی

کد:

Private Sub Text1_KeyPress(KeyAscii As Integer)
If KeyAscii >= 97 And KeyAscii <= 122 Then SendKeys Chr(8)
End Sub

[davoodx]

امیر جان ممنون از لطفت

[amin_amin]

چجوری باید بررسی کنیم که توی یه تکست باکس کلا چند کارکتر فارسی و چند تا انگلیسی زده شده ؟ یعنی بگیم چند تا یونیکد داریم و ... ؟

[yeketaz]

باید از یک حلقه استفاده کنی و از اول تا آخر تکس باکس رو چک کنی

بعد تک تک به کد اسکی تبدیل و مقایسه می کنی

کد:

Dim i, Fa, En As Integer
Dim CGet As String
For i = 1 To Len(Text1.Text)
CGet = Mid(Text1.Text, i, 1)
Select Case Asc(CGet)
'Case Farsi Asci
Fa = Fa + 1
'Case English Asci
En = En + 1
End Select
Next
MsgBox "In This Text There Are " + Str(Fa) + " Farsi Character And " + Str(En) + " English Character"

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

[far_222000]

در حقیقت اونی که دوستمون yeketaz نوشته، ناقصه!

کاملش اینه که به شما تعداد کاراکتر های فارسی،تعداد کاراکتر های انگلیسی، تعداد اعداد و همچنین تعداد کاراکتر های خاص رو می ده
کاراکتر های خاص اینان: !@#$%^&*)(_+=-}{|[]\/?.,<>';:"~`

کد:

Dim i, Fa, En, No, Ch As Integer
Dim CGet As String

For i = 1 To Len(Text1.Text)
    CGet = Mid(LCase(Text1.Text), i, 1)
    
    If Asc(CGet) >= 97 And Asc(CGet) <= 122 Then
        En = En + 1
    ElseIf Asc(CGet) >= 48 And Asc(CGet) <= 57 Then
        No = No + 1
    ElseIf Asc(CGet) >= 33 And Asc(CGet) <= 46 Then
        Ch = Ch + 1
    ElseIf Asc(CGet) >= 58 And Asc(CGet) <= 64 Then
        Ch = Ch + 1
    ElseIf Asc(CGet) >= 91 And Asc(CGet) <= 96 Then
        Ch = Ch + 1
    ElseIf Asc(CGet) >= 123 And Asc(CGet) <= 126 Then
        Ch = Ch + 1
    Else
        Fa = Fa + 1
    End If
Next

MsgBox "In This Text There Are " + Str(Fa) + " Farsi Character And " + Str(En) + " English Character And " + Str(No) + " Number And " + Str(Ch) + " Special Character"

[yeketaz]

توجه نکردی چی شد

من گفتم این یک الگوریتم برای این کاره

تازه اون چیزی که من گفتم خوانا تره چون از Select Case استفاده کردم

و همه می دونند که استفاده زیاد از دستور IF تودرتو از خوانایی برنامه می کاهد

[far_222000]

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

[amin_amin]

کاملش اینه که به شما تعداد کاراکتر های فارسی،تعداد کاراکتر های انگلیسی، تعداد اعداد و همچنین تعداد کاراکتر های خاص رو می ده
کاراکتر های خاص اینان: !@#$%^&*)(_+=-}{|[]\/?.,<>';:"~`

کد:

ElseIf Asc(CGet) >= 33 And Asc(CGet) <= 46 Then
        Ch = Ch + 1
    ElseIf Asc(CGet) >= 41 And Asc(CGet) <= 46 Then
        Ch = Ch + 1

ممنون دوست عزیز
میشه در مورد یونیکد هم توضیح بدین که به چه رنج کارکترهایی اطلاق میشه ؟
و دیگه این که این دو خط که بالا کوت کردم توی کد اشتباه داده شده ؟
ممنون