如何检测备注字段的字节数

如何检测备注字段的字节数

　　视服务器操作系统语种不同,而采取不同的方法:
　　
　　1.E文下,len(rs("field")),就行了.len("中文abc")=7
　　
　　2.Z文下,复杂一点,len("中文abc")=5
　　
　　lenB("中文abc")=10,所以需要自己写程序判断其长度.
　　
　　functionstrLen(str)
　　
　　dimi,l,t,c
　　
　　l=len(str)
　　
　　t=l
　　
　　fori=1tol
　　
　　c=asc(mid(str,i,1))
　　
　　ifc<0thenc=c+65536
　　
　　ifc>255then
　　
　　t=t+1
　　
　　endif
　　
　　next
　　
　　strLen=t
　　
　　endfunction