asp截取字符串的两种应用原创

201 阅读 0 评论 133 点赞

我是靠谱客的博主勤奋魔镜，最近开发中收集的这篇文章主要介绍asp截取字符串的两种应用原创，觉得挺不错的，现在分享给大家，希望可以做个参考。

概述

1、纯粹的截取字符串

复制代码代码如下:

function cutstr(thestr1,strlen) 
dim l,t,c 
l=len(thestr1) 
if l<1 then exit function 
t=0 
for dxy1=1 to l 
c=Abs(asc(Mid(thestr1,dxy1,1))) 
if c>255 then 
t=t+2 
else 
t=t+1 
end if 
if t>=strlen then 
thev=mid(thestr1,1,dxy1) 
exit for 
else 
thev=thestr1 
end if 
next 
cutstr=thev 
end function

2、截取字符串，不足用空格补上

复制代码代码如下:

function cutstr(thestr,strlen) 
dim l,t,c 
l=len(thestr) 
t=0 
for dxy=1 to l 
c=Abs(asc(Mid(thestr,dxy,1))) 
if c>255 then 
t=t+2 
else 
t=t+1 
end if 
if t>=strlen then 
thev=left(thestr,dxy) 
exit for 
else 
bu=strlen-t 
for bui=1 to bu 
strbu=" " 
strbuall=strbuall&strbu 
next 
thev=thestr&strbuall 
strbu="" 
strbuall="" 
end if 
next 
cutstr=thev 
end function