سلام
دوستان من یک تابع نیاز دارم که با دریافت یک کلمه ( string ) تشخیص دهد که فارسی است یا نه.
آیا کسی چنین تابعی سراغ دارد؟
با تشکر .
سلام
دوستان من یک تابع نیاز دارم که با دریافت یک کلمه ( string ) تشخیص دهد که فارسی است یا نه.
آیا کسی چنین تابعی سراغ دارد؟
با تشکر .
جواب برای مراجعین
رنج کاراکترهای کلمه را بررسی کنید: http://www.alanwood.net/unicode/fontsbyrange.html در صورتی که خارج از محدوده بود یعنی کاراکتر فارسی نیست.
این یک کد ساده برای vb است که به راحتی و با سرعت وجود کاراکترهای فارسی را تشخیص می دهد
Public Function CheckSTr(str As String) As String
Dim s As String = "ضصثقفغعهخحجچشسیبلاتنمک پ/.وئدذرزطظًٌٍ،؛»«ـآۀَُِّةي ؤإأء؟×"
CheckSTr = "English"
For Each ch As Char In s
If InStr(str, ch) > 0 Then
CheckSTr = "Farsi"
Exit For
End If
Next
End Function