|
时间：2022-09-28 点击： 次 来源：网络 添加者：佚名 - 小 + 大
| '获取字符长度,一个中文算两个字符 Function getLen(TempStr) Dim iLen,i,StrAsc iLen=0 for i=1 to len(TempStr) StrAsc=Abs(Asc(Mid(TempStr,i,1))) if StrAsc>255 then iLen=iLen+2 else iLen=iLen+1 end if next getLen=iLen End Function 若不区分中英文 直接len |
上一篇：Microsoft OLE DB Provider for SQL Server 错误 '80040e14' 从 datetime 数据类型到 smalldatetime 数据..