hossein_asp
کاربر تازه وارد
برای اینکه به کاربر اجازه ندم تو باکس فارسی بنویسه نیاز دارم کلمات لاتین رو تشخیص بدم اگه کسی کدشو داره
ممنون می شم.کد asp کلاسیک می خوام.
ممنون می شم.کد asp کلاسیک می خوام.
حواست باشه که خیلی ها این اشتباه رو میکنن که میان حروف متن رو دونه دونه چیک میکنن که این خیلی منایع بیشتری از سروربا یک regular expression ساده و بدون کد نویسی هم امکانپذیره
function check_eng(byval check_str)
Dim i,ascii_code
for i = 1 to len(check_str)
ascii_code = asc(mid(check_str,i))
if (ascii_code < 65 or ascii_code > 122 or (ascii_code > 90 and ascii_code < 97)) then
check_eng = false
exit function
end if
next
check_eng = true
end function