/*
作者:何志强[[email protected]]
日期:2000-08-18
版本:1.0
功能:获取以字节计算的字符串长度
*/function bytelen(str){
var i,len,ret; if(str==null) return 0; str = "" + str;
len = str.length; ret = 0;
for(i=0;i<len;i++){
if(str.charCodeAt(i)<0x80) ret++;
else ret += 2;
} return ret;
}
作者:何志强[[email protected]]
日期:2000-08-18
版本:1.0
功能:获取以字节计算的字符串长度
*/function bytelen(str){
var i,len,ret; if(str==null) return 0; str = "" + str;
len = str.length; ret = 0;
for(i=0;i<len;i++){
if(str.charCodeAt(i)<0x80) ret++;
else ret += 2;
} return ret;
}
'作者:何志强[[email protected]]
'日期:2000-09-29
'版本:1.0
'功能:将一个字符串转换成不超过特定长度(以字节计算)的字符串Function FixLenString(str,fixlen)
Dim lenStr,lenByte,lenFix
Dim i
str = str & ""
lenStr = Len(str)+1
lenByte = 0
lenFix = 0
i = 1
Do While i<lenStr And lenByte<fixlen
lenByte = lenByte + 1
If Asc(Mid(str,i,1))<0 Then
If lenByte<fixlen Then
lenByte = lenByte + 1
Else
Exit Do
End If
End If
lenFix = lenFix + 1
i = i + 1
Loop
FixLenString = Left(str,lenFix)
End Function
</Script>
给段代码行吗?
System.out.print(s.length());
byte []b=s.getBytes();
System.out.print(b.length);