2个回答
展开全部
function IsEnglish(str)
on error resume next
dim n,i,l
n = Cstr(str)
IsEnglish = true
if isnull(str) then
IsEnglish = false
exit function
end if
l = len(n)
for i=1 to l
if (mid(n,i,1)<chr(65) or mid(n,i,1)>chr(90)) and (mid(n,i,1)<chr(97) or mid(n,i,1)>chr(122)) then
IsEnglish = false
exit function
exit for
end if
next
if err.number<>0 then err.clear
end function
用这个函数判断就OK。
abc="woafejiwoafjoewa"
if IsEnglish(abc)=true then
.........
on error resume next
dim n,i,l
n = Cstr(str)
IsEnglish = true
if isnull(str) then
IsEnglish = false
exit function
end if
l = len(n)
for i=1 to l
if (mid(n,i,1)<chr(65) or mid(n,i,1)>chr(90)) and (mid(n,i,1)<chr(97) or mid(n,i,1)>chr(122)) then
IsEnglish = false
exit function
exit for
end if
next
if err.number<>0 then err.clear
end function
用这个函数判断就OK。
abc="woafejiwoafjoewa"
if IsEnglish(abc)=true then
.........
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询