|
|
主题: [加急求助！]关于vbs中 字节长度的计算
|
EdisonFan
职务：普通成员
等级：1
金币：0.0
发贴：61
|
#12005/6/8 9:15:20
大家好。我想让大家把帮我解决一下这个问题
response.write(len("你好")) '输出2
response.write(len("nh")) '输出2
有没有能区分 字符长度的函数啊？
|
缺缺
职务：管理员
等级：8
金币：41.0
发贴：9620
|
#22005/6/8 9:36:00
function strLength(str)
ON ERROR RESUME NEXT
dim WINNT_CHINESE
WINNT_CHINESE = (len("论坛")=2)
if WINNT_CHINESE then
dim l,t,c
dim i
l=len(str)
t=l[code]function strLength(str)
ON ERROR RESUME NEXT
dim WINNT_CHINESE
WINNT_CHINESE = (len("论坛")=2)
if WINNT_CHINESE then
dim l,t,c
dim i
l=len(str)
t=l
for i=1 to l
c=asc(mid(str,i,1))
if c<0 then c=c+65536
if c>255 then
t=t+1
end if
next
strLength=t
else
strLength=len(str)
end if
if err.number<>0 then err.clear
end function
编辑历史:[此帖最近一次被 allinhands 编辑过(编辑时间:2005-06-08 11:26:43)]
|
EdisonFan
职务：普通成员
等级：1
金币：0.0
发贴：61
|
#32005/6/8 11:08:28
能不能讲讲思路啊
|
蓝鲸
职务：版主
等级：5
金币：42.1
发贴：2614
|
#42005/6/8 14:32:24
字符分双字节的和单字节的，双字节的占二个位。双字节与单字节的ASC码是分段的，所以用ASC码是否在某一段以区分是双字节还是单字节
非常大鱼
|
EdisonFan
职务：普通成员
等级：1
金币：0.0
发贴：61
|
#52005/6/8 16:23:56
我差点儿晕死了。 看不懂 看来我还差得远呢。
function selectt(i)
dim sql
dim rs0
dim cd
cd=0
set rs0=server.createObject("adodb.recordset")
sql=" select * from productSort where fatherID= "&i&" order by id desc "
rs0.open sql,conn,1,1
if rs0.eof then
exit function
else
z=rs0.recordcount
for i=1 to z
rsID=rs0("id")
rsName=trim(rs0("name"))
response.write("<a class='dh' href='chanpin/product_xilie.asp?productSort="&rsID&"&sname="&rsName&"'>"&rsName&"</a>")
cd=lenB(rsName)+cd
if cd>=8 and i<z then
response.write("<br>")
cd=0
else
'最后一个不输出“|”
if i<z then
response.write(" | ")
end if
end if
rs0.movenext
next
end if
rs0.close
set rs=nothing
end function我就是这段代码。想让他区分出来 中文 和英文的长度来。我应该怎么改呢?
|
EdisonFan
职务：普通成员
等级：1
金币：0.0
发贴：61
|
#62005/6/9 8:30:26
各位老师在帮帮我好吗
|
