في الواقع، أفضل طريقة للحكم على اللغة الصينية هي Js التي كتبتها في المقالة الأخيرة. وطالما أنها بايتات مزدوجة، يتم الحكم عليها على أنها صينية قيمة الإرجاع للدالة Asc أقل من 0، ويمكن الحكم عليها كأحرف صينية. تقوم الدالة Asc بإرجاع رمز حرف ANSI المطابق للحرف الأول من السلسلة.
انسخ رمز الكود كما يلي:
"تحديد ما إذا كانت هناك أحرف صينية في السلسلة."
'نعم - العودة الحقيقية
'لا شيء - يُرجع خطأ
"قد تتضمن الأحرف الصينية هنا أيضًا أحرفًا يابانية وكورية وشرقية أخرى
الدالة HasChinese(str)
HasChinese = خطأ
خافت أنا
لأني = 1 إلى لين (شارع)
إذا كان Asc(Mid(str,i,1)) < 0 إذن
HasChinese = صحيح
الخروج ل
نهاية إذا
التالي
وظيفة النهاية