专注于互联网--专注于架构

最新标签
网站地图
文章索引
Rss订阅
*************测字符串长度**************Function CheckStringLength(txt) txt=trim(txt) x = len(txt) y = 0 for ii = 1 to x if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then \'如果是汉字 y = y + 2 else y = y + 1 end if next CheckStringLength = yEnd Function\'******* [阅读全文] [PDF]
1 共1条 分1页