西安做网站ASP计算字符串长度以及左右截取字符串

9442015-04-17
西安做网站ASP计算字符串长度以及左右截取字符串

Public Function Strlength(Str)
Dim Temp_Str, i, Test_Str
Temp_Str = Len(Str)
For i = 1 To Temp_Str
Test_Str = (Mid(Str, i, 1))
If Asc(Test_Str) > 0 Then
Strlength = Strlength + 1
Else
Strlength = Strlength + 2
End If
Next
End Function
'从左边截取
Public Function Strleft(Str, L, SpiltStr)
Dim Temp_Str, i, Test_Str, lens
if Str<>"" then
Temp_Str = Len(Str)
For i = 1 To Temp_Str
Test_Str = (Mid(Str, i, 1))
Strleft = Strleft & Test_Str
If Asc(Test_Str) > 0 Then
lens = lens + 1
Else
lens = lens + 2
End If
If Strlength(Str) > L And lens >= L - 2 Then Exit For
Next
If Strlength(Str) > lens Then Strleft = Strleft & SpiltStr
end if
End Function
'从右边截取
Public Function Strright(Str, L, SpiltStr)
Dim Temp_Str, i, Test_Str, lens
Temp_Str = Len(Str)
For i = Temp_Str To 1 Step -1
Test_Str = (Mid(Str, i, 1))
Strright = Test_Str & Strright
If Asc(Test_Str) > 0 Then
lens = lens + 1
Else
lens = lens + 2
End If
If Strlength(Str) > L And lens >= L - 2 Then Exit For
Next
If Strlength(Str) > lens Then Strright = SpiltStr &Strright
End Function

通过本文您对西安网站建设有了进一步了解,本公司温馨提醒:找西安做网站公司,请选择手续齐全、业务精、服务好的正规公司。

工商网上亮照

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1

客户服务电话:15229292610

公司注册地址:西安市雁塔区融鑫路丽湾蓝岛1幢3单元16层31605号

临时办公地址:西安市雁塔区朱雀大街紫郡长安F3

Sitemap 网站地图 手机版

服务热线:15229292610

客服信箱:vip@dianmo.cc

846461336327

版权所有:西安点墨网络科技有限公司 信息备案编号: 陕ICP备11004160号-1