求解：含有汉字及数字的字节长度。

求解：含有汉字及数字的字节长度。汉字两位，字符一位 问题点数：20、回复次数：3Top

1 楼Bardo（巴顿(永远只有一个)）回复于 2001-12-03 22:03:16 得分 10

lenb(StrConv(UrStr,   VbFromUniCode))Top

2 楼cool222（坚持到底）回复于 2001-12-03 22:04:32 得分 10

分数全给我吧：  
  function   GetTrueLen(xStr   as   string)   as   long  
      dim   xLen   as   long,i   as   long  
      xLen=len(xStr)  
      for   i=1   to   xlen  
          GetTrueLen=GetTrueLen+   iif(asc(mid(xStr,i,1))<0,2,1)  
      next  
  End   Function  
  Top

3 楼blankhair（雪）回复于 2001-12-03 22:08:48 得分 0

okTop

相关问题

• 汉字
• 数字
• 求解
• gettruelen
• xstr
• 字节长度
• xlen
• 含有汉字及数字
• as long

• 帖主：blankhair
• Bardo
• cool222

• Visual Basic类图书
• Visual Basic类源码下载