判断文章中文字符数量

March 25,2004

dim WINNT_CHINESE
WINNT_CHINESE          = (len("论坛")=2)

function strLength(str)
   ON ERROR RESUME NEXT
   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

以上资料由动网先锋(http://www.aspsky.net)整理制作，转载请说明出处！