预览模式: 普通 | 列表

获取字符串长度的函数(ASP/VB/JS)

作者:青锋幽灵 日期:2009-06-07 21:19

 

JavaScript代码
  1. function strLen(str){      
  2.     var len=0;      
  3.     for(var i=0;i<str.length;i++){      
  4.         var intCode=str.charCodeAt(i);      
  5.         if(intCode>=0 && intCode<=128){      
  6.             len = len + 1;      
  7.         }else{      
  8.             len = len + 2;      
  9.         }      
  10.     }      
  11.     return len;      
  12. }    

 

ASP/Visual Basic代码
  1. Private Function Length(iTxt)   
  2.     Dim txt: txt = Trim(iTxt)   
  3.     Dim x: x = Len(txt)   
  4.     Dim y: y = 0   
  5.     Dim ii, chrA   
  6.     For ii = 1 To x   
  7.         chrA = Mid(txt, ii, 1)   
  8.         If Asc(chrA) >= 0 And Asc(chrA) <= 255 Then  
  9.         y = y + 1   
  10.         Else    
  11.         y = y + 2   
  12.         End If    
  13.     Next  
  14.     Length = y   
  15. End Function  
类别: Javascript | 引用: 0 | 评论: 0 | 阅读: 1123 | 打印 | 打包
  • 1