vbs和js都提供了截取一定长度的字符串的函数，但有一个问题是这些函数都将中文字符视为1个字节，而不是正常的2个字节，如果这些输入的数据要提交到数据库中的话，很可能这些数据的真正长度回答与数据库中该字段所允许的最大长度，于是就出错了。
最开始我不会这样做，看了 cheery_ke 兄发表的帖子
http://www.dev-club.com/club/bbs/showAnnounce.asp?id=1227955
后才知道该怎么做。具体程序是
'--------------------*****START*****--------------------
FUNCTION strLeft(str,num)
DIM p_str,p_num
p_str = ""
p_num = 0 '定义变量，标记中文为2字节时的实际字符数
IF TRIM(str)<>"" THEN
FOR i = 1 TO num
IF asc(mid(str,i,1))>255 OR ASC(mid(str,i,1))<0 THEN '判断下一个欲取的字符所占字节数
p_num = p_num + 2
Else
p_num = p_num + 1
End IF
IF p_num > num THEN EXIT FOR
NEXT
p_str = Left(str,i-1) '把i-1替换为i，则产生与“说明”中相反的情况。
END IF
strLeft=p_str
END FUNCTION
'--------------------******END******--------------------
可是在实际使用中发现cheery_ke兄提供的程序有些问题：如果提交的字符串字数少于所允许的最大字数则程序汇报错，原因是 FOR 循环处的循环次数大于字符串的实际长度，导致下一句中mid函数的参数 i 大于字符串的长度，出现错误。
我针对这个程序作了如下改进：
function strLeft(str,num)
dim p_str,p_num
p_str = ""
p_num = 0
if trim(str) <> "" then
p_len = len(str)
for i = 1 to p_len
if asc(mid(str,i,1)) > 255 or asc(mid(str,i,1)) < 0 then
p_num = p_num + 2
else
p_num = p_num + 1
end if
if p_num > num then
p_str = Left(str,i-1)
&nbs
最开始我不会这样做，看了 cheery_ke 兄发表的帖子
http://www.dev-club.com/club/bbs/showAnnounce.asp?id=1227955
后才知道该怎么做。具体程序是
'--------------------*****START*****--------------------
FUNCTION strLeft(str,num)
DIM p_str,p_num
p_str = ""
p_num = 0 '定义变量，标记中文为2字节时的实际字符数
IF TRIM(str)<>"" THEN
FOR i = 1 TO num
IF asc(mid(str,i,1))>255 OR ASC(mid(str,i,1))<0 THEN '判断下一个欲取的字符所占字节数
p_num = p_num + 2
Else
p_num = p_num + 1
End IF
IF p_num > num THEN EXIT FOR
NEXT
p_str = Left(str,i-1) '把i-1替换为i，则产生与“说明”中相反的情况。
END IF
strLeft=p_str
END FUNCTION
'--------------------******END******--------------------
可是在实际使用中发现cheery_ke兄提供的程序有些问题：如果提交的字符串字数少于所允许的最大字数则程序汇报错，原因是 FOR 循环处的循环次数大于字符串的实际长度，导致下一句中mid函数的参数 i 大于字符串的长度，出现错误。
我针对这个程序作了如下改进：
function strLeft(str,num)
dim p_str,p_num
p_str = ""
p_num = 0
if trim(str) <> "" then
p_len = len(str)
for i = 1 to p_len
if asc(mid(str,i,1)) > 255 or asc(mid(str,i,1)) < 0 then
p_num = p_num + 2
else
p_num = p_num + 1
end if
if p_num > num then
p_str = Left(str,i-1)
&nbs
相关文章
 我来说两句 |
对此文章发表了评论 |
评论列表 （最新 评论仅限网友观点！）
推荐文章
