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

[khlless]

سلام
دوستان من یک تابع نیاز دارم که با دریافت یک کلمه ( string ) تشخیص دهد که فارسی است یا نه.
آیا کسی چنین تابعی سراغ دارد؟
با تشکر .

[khlless]

جواب برای مراجعین
رنج کاراکترهای کلمه را بررسی کنید: http://www.alanwood.net/unicode/fontsbyrange.html در صورتی که خارج از محدوده بود یعنی کاراکتر فارسی نیست.

[bjbarnamenevis]

این یک کد ساده برای 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