截字符串代码,ASP代码库,德仔网

代码语言

代码分类

【ASP】截字符串

作者: / 发布于2011/1/5/ 563

截字符串，汉字一个算两个字符，英文算一个字符

<div> '函数ID：[截字符串] 
 '函数名：SubstZFC 
 '作 用：截字符串，汉字一个算两个字符，英文算一个字符 
 '参 数：str ----原字符串 
 ' strlen ----截取长度 
 '返回值：截取后的字符串 
 '************************************************** 
 Public Function SubstZFC(ByVal str, ByVal strlen) 
 If str = "" Then 
 SubstZFC = "" 
 Exit Function 
 End If 
 Dim l, t, c, i, strTemp 
 str = Replace(Replace(Replace(Replace(str, " ", " "), """, Chr(34)), ">", ">"), "<", "<") 
 l = Len(str) 
 t = 0 
 strTemp = str 
 strlen = CLng(strlen) 
 For i = 1 To l 
 c = Abs(Asc(Mid(str, i, 1))) 
 If c > 255 Then 
 t = t + 2 
 Else 
 t = t + 1 
 End If 
 If t >= strlen Then 
 strTemp = Left(str, i) 
 Exit For 
 End If 
 Next 
 SubstZFC = Replace(Replace(Replace(Replace(strTemp, " ", " "), Chr(34), """), ">", ">"), "<", "<") 
 End Function
</div>

评论列表

本站所提供的代码，版权归原作者所有，若有侵犯作者版权，请与我们联系，我们将立即删除或修改。谢谢!
本站所有代码发布及提供者。

试试其它关键字

　截字符串　

同语言下

可能有用的

贡献的其它代码Label