7万
861
32万
论坛元老
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 = y End Function
使用道具 举报
0
1万
68
注册会员
8878
中级会员
13
2万
85
4
262
5
69
2
473
本版积分规则 发表回复 回帖后跳转到最后一页
手机版|小黑屋|网站地图|源码论坛 ( 海外版 )
GMT+8, 2024-11-22 00:20 , Processed in 0.128488 second(s), 26 queries .
Powered by Discuz! X3.4
Copyright © 2001-2020, Tencent Cloud.