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
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>
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>