zoukankan      html  css  js  c++  java
  • 中文姓名的VbScript验证方法

            <script language=vbscript>
            
    'xm 姓名
            function valiName(xm)
                ret 
    = true
                
    for i = 1 to len(xm)
                    
    if asc(mid(xm, i, 1)) >= 0 and asc(mid(xm, i, 1)) <= 128 then
                        ret 
    = false
                        
    exit for
                    
    end if
                
    next
                valiName 
    = ret
            
    end function
            
            
    'mc 名称
            'g 不能连续出现的英文字符
            'h 不能连续出现的相同的中文字符
            function valiNameContinuousChar(mc, g, h)
                c 
    = 0 : d = 0
                b 
    = false
                last 
    = ""
                
    for i = 1 to len(mc)
                    
    if last <> "" and last = mid(mc, i, 1then
                        d 
    = d + 1
                    
    end if
                    
    if asc(mid(mc, i, 1)) > 0 then
                        
    if not b then
                            b 
    = true
                        
    end if
                        c 
    = c + 1
                        
    if c >= g then exit for
                    
    else
                        b 
    = false
                        c 
    = 0
                    
    end if
                    last 
    = mid(mc, i, 1)
                
    next
                valiNameContinuousChar 
    = c < g and d <= h - 2
            
    end function
            
    </script>
  • 相关阅读:
    Dolls
    无题II hdu 2236(二分枚举区间)
    Cyclic Nacklace
    剪花布条
    Oulipo
    最短路
    Bzoj3211花神游历各国
    Zjoi2010排列计数Perm
    Zjoi2011看电影(movie)
    关于一次同余方程的一类解法(exgcd,CRT,exCRT)
  • 原文地址:https://www.cnblogs.com/faib/p/797718.html
Copyright © 2011-2022 走看看