快精灵印艺坊 您身边的文印专家
广州名片 深圳名片 会员卡 贵宾卡 印刷 设计教程
产品展示 在线订购 会员中心 产品模板 设计指南 在线编辑
 首页 名片设计   CorelDRAW   Illustrator   AuotoCAD   Painter   其他软件   Photoshop   Fireworks   Flash  

 » 彩色名片
 » PVC卡
 » 彩色磁性卡
 » 彩页/画册
 » 个性印务
 » 彩色不干胶
 » 明信片
   » 明信片
   » 彩色书签
   » 门挂
 » 其他产品与服务
   » 创业锦囊
   » 办公用品
     » 信封、信纸
     » 便签纸、斜面纸砖
     » 无碳复印纸
   » 海报
   » 大篇幅印刷
     » KT板
     » 海报
     » 横幅

检测含有中文字符串的实际长度

"*************测字符串长度**************
Function CheckStringLength(txt)
 txt=trim(txt)
 x = len(txt)
 y = 0
 for ii = 1 to x
  if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then   "假如是汉字
   y = y + 2
  else
   y = y + 1
  end if
 next
 CheckStringLength = y
End Function

"************* 截取字符串 **************
Function InterceptString(txt,length)
 txt=trim(txt)
 x = len(txt)
 y = 0
 if x >= 1 then
  for ii = 1 to x
   if asc(mid(txt,ii,1)) < 0 or asc(mid(txt,ii,1)) >255 then   "假如是汉字
    y = y + 2
   else
    y = y + 1
   end if
   if y >= length then
    txt = left(trim(txt),ii) "字符串限长
    exit for
   end if
  next
  InterceptString = txt
 else
  InterceptString = ""
 end if
End Function
返回类别: 教程
上一教程: 正则表达式在网页处理中的应用四则
下一教程: 在ASP程序中执行SQL语句的安全性问题

您可以阅读与"检测含有中文字符串的实际长度"相关的教程:
· 控制输出字符串的长度,可以区别中英文
· 截取固定长度字符串显示在页面
· 再来一套加解密字符串的FUNCTION
· 一套加解密字符串的函数
· 使用SPLIT分割多字符的字符串的方式
    微笑服务 优质保证 索取样品