研究了2小时怎么控制输出文章标题中的中英文，给大家铁出来
  函数在下面，是方法是：
  strvalue("复请Email通知如果不填写则取注册Email",26)
  这里26是指26个英文字母，也就是13个汉字
  
  
  function strlen(str)
  dim p_len
  p_len=0
  strlen=0
  if trim(str)<>"" then
  p_len=len(trim(str))
  for xx=1 to p_len
  if asc(mid(str,xx,1))<0 then
  strlen=int(strlen) + 2
  else
  strlen=int(strlen) + 1
  end if
  next
  end if
  end function
  
  function strvalue(str,lennum)
  dim p_num
  dim i
  if strlen(str)<=lennum then
  strvalue=str
  else
  p_num=0
  x=0
  do while not p_num > lennum-2
  x=x+1
  if asc(mid(str,x,1))<0 then
  p_num=int(p_num) + 2
  else
  p_num=int(p_num) + 1
  end if
  strvalue=left(trim(str),x)&"…"
  loop
  end if
  end function
  
  
  

 

评论 (0) All

登陆 还没注册？