------摘自动易(RSSFeed.asp)
‘************************************************** ‘函数名:GetSubStr ‘作 用:截字符串,汉字一个算两个字符,英文算一个字符 ‘参 数:str ----原字符串 ‘ strlen ----截取长度 ‘返回值:截取后的字符串 ‘************************************************** Function GetSubStr(ByVal str, ByVal strlen, bShowPoint) If str = "" Then GetSubStr = "" 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 If strlen = "" Then strlen = 0 Else strlen = CLng(strlen) End If 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 If strTemp <> str And bShowPoint = True Then strTemp = strTemp & "…" End If GetSubStr = Replace(Replace(Replace(Replace(strTemp, " ", " "), Chr(34), """), ">", ">"), "<", "<") End Function
时间: 2024-11-09 12:09:10