На самом деле, лучший способ оценить китайский — это js, о котором я писал в прошлой статье. Это разновидность asp. Пока он двухбайтовый, в ASP (язык — VBScript) он считается китайским. возвращаемое значение функции Asc меньше 0, можно расценивать как китайские иероглифы. Функция Asc возвращает код символа ANSI, соответствующий первой букве строки.
Скопируйте код кода следующим образом:
'Определяем, есть ли в строке китайские иероглифы
'Да - вернуть true
'Нет - возвращает ложь
«Здесь китайские иероглифы могут также включать японские, корейские и другие восточные иероглифы.
функция HasChinese(str)
Хаскитайский = ложь
тусклый я
для i=1 до Len(str)
если Asc(Mid(str,i,1)) < 0, то
Хаскитайский = правда
выход для
конец, если
следующий
конечная функция