求一个字符串函数

[tmpx]

问题：
输入一个字符串，自动识别字符和汉字，1个汉字算2个字符，求出字符串的长度

[KimSoft]

'------------------------------------------------------------
'　作用：让Len,Left,Right函数识别中文
' 对中文识别为两个字符，ASCII码为一个
' 可用此函数代替Len,Left,Right函数
'------------------------------------------------------------

Function StrLen(Str)
strTemp = Len(Str)
For I = 1 To strTemp
strTest = (Mid(Str, I, 1))
If Asc(strTest) > 0 Then
StrLen = StrLen + 1
Else
StrLen = StrLen + 2
End If
Next
End Function

Function StrLeft(Str, L)
strTemp = Len(Str)
For I = 1 To strTemp
strTest = (Mid(Str, I, 1))
StrLeft = StrLeft & strTest
If Asc(strTest) > 0 Then
Lens = Lens + 1
Else
Lens = Lens + 2
End If
If Lens >= L Then Exit For
Next
End Function

Function StrRight(Str, L)
strTemp = Len(Str)
For I = strTemp To 1 Step -1
strTest = (Mid(Str, I, 1))
StrRight = strTest & StrRight
If Asc(strTest) > 0 Then
Lens = Lens + 1
Else
Lens = Lens + 2
End If
If Lens >= L Then Exit For
Next
End Function

[KimSoft]

你要的是第一个函数

[竹林听雨2005]

这个东西不错，呵。收藏。