阅读:111
评论:1
阅读:161
评论:0
阅读:124
评论:0
function strLen(str){ var len=0; for(var i=0;i<str.length;i++){ var intCode=str.charCodeAt(i); if(intCode>=0 && intCode<=128){ len = len + 1; }else{ len = len + 2; } } return len; }
Private Function Length(iTxt) Dim txt: txt = Trim(iTxt) Dim x: x = Len(txt) ...
阅读:228
评论:0