查看: 14|回复: 0

[文章教程] 判断字符串中是否含有字母

[复制链接]
冰河非非 发表于 2020-1-11 17:14:03 | 显示全部楼层 |阅读模式
  1. '判断字符串中是否含有字母

  2. Function chkChar(Str)
  3.     '先将str转为小写
  4.     Str = LCase(Str)
  5.     flag = False
  6.     enChar = "a,b,c,d,e,f,g,h,i,j,k,l,m,n,o,p,q,r,s,t,u,v,w,x,y,z"
  7.     onChar = Split(enChar, ",")
  8.     For i = 0 To UBound(onChar)
  9.         If InStr(Str, onChar(i))<>0 Then
  10.             flag = True
  11.             Exit For
  12.         End If
  13.     Next
  14.     chkChar = flag
  15. End Function
  16. %>
  17. ------------------应用-------------------
  18. memo = "00801"

  19. If  chkChar(memo)=false  Then
  20.     Response.Write "无字母"
  21.     else
  22.     Response.Write "有字母"
  23. End If
复制代码



您需要登录后才可以回帖 登录 | 注册

本版积分规则

快速回复 返回顶部 返回列表

在线客服

售前咨询
售后咨询
服务热线
023-58418553
微信公众号