lenb函数的问题

andy0618 2004-01-13 02:05:10

做的这个网页需要严格控制文字的格式，取出数据库里字段的内容，并判断它的字节（byte)数 lenb(rs("titel"))，网页上留有20个全角空格的下划线长度，让取出的内容写在下划线的中间，不能超过20空格
但问题是英文字母和数字的显示空间相当于汉字的一半（也就是说两个字母在屏幕上的显示空间等于一个汉字在屏幕上的显示空间）。

如果以上看不懂上面直看下面
我在一本介绍vbscript函数的书上看到是这么写的　
lenb("北京") 返回结果为4　　lenb("hangzhou")返回结果为8
这样的话 lenb("北京hangzhou") 返回的结果为12对吧！这样的话我就留6个全角空格的空间。
但是我的电脑　　lenb("hangzhou")返回结果为16　
　　　　　　　 lenb("北京hangzhou")返回的结果为20
这样的话是10个全角空格。 "北京hangzhou"写在10个全角空格里一定有余下的空间
文字的格式就不能控制的那么准了
这可怎么办？

...全文

119 3 打赏收藏转发到动态举报

写回复

用AI写文章

3 条回复

切换为时间正序

请发表友善的回复…

发表回复

jnyezhi 2004-01-13

打赏
举报

VBScript内置的函数无法准确检验中英文混合字符串的长度，使用下面的自定义函数吧。
function lenmix(checkstr)
lenTotal = 0
for i=1 to Len(checkstr)
strWord = mid(checkstr,i,1)
if asc(strWord) < 0 or asc(strWord) > 127 then
lenTotal = lenTotal + 2
else
lenTotal = lenTotal + 1
end if
next
lenmix = lentotal
end function

andy0618 2004-01-13