这个函数我测试过,肯定可以
function Length (str)
Dim i , intStrLen
for i = 1 to LenB(Str)
if AscB(MidB(str,i,1)) > 0 then intStrLen = intStrLen + 1
next
end function
function RealLen(str)
Dim ReLen
Dim I
ReLen=0
For I=1 To Len(str)
If (Asc(Mid(str,I,1))>=0) And (Asc(Mid(str,I,1))<=255) Then
ReLen=ReLen+1
Else
ReLen=ReLen+2
End If
Next
RealLen=ReLen
end function