说明：一个英文字符或是标点为一个字符，一个汉字为二个字符
<script language="vbscript">
Function LeftStr(Str)
TextCount = Len(Str) '得到整
For I = 1 To TextCount
MidTemp = Mid(Str,I,1)'得到当前第I个字符
AscTemp = Asc(MidTemp)'得到当前第I个字符的ANSI代码
If AscTemp > 0 Then '判断英文
TextLen = TextLen + 1'累计当前长度(英文)
Else'判断中文
TextLen = TextLen + 2'累计当前长度(中文)
End If
Next
LeftStr = TextLen '输出
End Function
msgbox """abcdefg""的长度为："&leftstr("abcdefg")
msgbox """加上中文试试!""的长度为：" &leftstr("加上中文试试!")
</script>
