如何统计一个字符串里中英文分别的个数

vbscript:

 程序代码
  Private Function ChkStrCount(ByVal strA As String) As String
        Dim i, j, k As Integer
        Dim strArray As Char()
        Dim result As String
        strArray = strA.ToCharArray
        j = Len(strA) - 1
        k = 0
        For i = 0 To j
            If Asc(strArray(i)) > 0 Then
                k += 1
            End If
        Next
        result = "字母" & k & "个,汉字" & Len(strA) - k & "个"
        Return result
    End Function



javascript:

 程序代码
<script language="javascript" type="text/javascript">
var s = "welecom 中华人民共和国";
var pattern = /[/u0391-/uFFE5]/g
var len1 = s.match(pattern);
    pattern = / /g
var len2 = s.match(pattern);
    pattern =/[a-zA-Z]/g
var len3 = s.match(pattern);
alert("汉字:"+len1.length + " 空格:" + len2.length + " 字母:" + len3.length);
</script>
评论
添加红包

请填写红包祝福语或标题

红包个数最小为10个

红包金额最低5元

当前余额3.43前往充值 >
需支付:10.00
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明:

1.余额是钱包充值的虚拟货币,按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载,可以购买VIP、付费专栏及课程。

余额充值