ASP去掉字符串头尾连续回车和空格的方法

2013-12-11消息称，诺基亚Normandy和Asha一样，主打低端市场，将...
2013-12-10雷军微博披露小米“魔方”项目
2013-12-1012306购票首度接入支付宝支付时间可以快至5秒
2013-12-10中国移动官网显示周四接受iPhone 5s预订
2013-12-0912306 App研发故事：变成开放系统社会人员助力
2013-10-15天猫“双十一”今年打通线上线下：实体店参与。
2013-10-15根据专利显示iPhone将有防摔功能。
2013-10-12百度或可全面收购人人网，传闻四起！
2013-10-07生物密码时代何时到来？尚存隐私泄露隐忧
2013-09-29国务院近日印发了上海自由贸易试验区总体方案，自贸区...

加关注：新浪微博腾讯微博

当前位置：首页 > 知道中心 > ASP > 文章

发表于：2013-09-08| 次阅读| 作者：藕码网

TAG： asp 函数

摘要：在处理字符转的时候一般都会遇到去除空格和去除回车的问题，不然可能会导致程序一些报错。

'去掉字符串头尾的连续的回车和空格
function trimVBcrlf(str)
trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
end function

'去掉字符串开头的连续的回车和空格
function ltrimVBcrlf(str)
dim pos,isBlankChar
pos=1
isBlankChar=true
while isBlankChar
if mid(str,pos,1)=" " then
pos=pos+1
elseif mid(str,pos,2)=VBcrlf then
pos=pos+2
else
isBlankChar=false
end if
wend
ltrimVBcrlf=right(str,len(str)-pos+1)
end function

'去掉字符串末尾的连续的回车和空格
function rtrimVBcrlf(str)
dim pos,isBlankChar
pos=len(str)
isBlankChar=true
while isBlankChar and pos>=2
if mid(str,pos,1)=" " then
pos=pos-1
elseif mid(str,pos-1,2)=VBcrlf then
pos=pos-2
else
isBlankChar=false
end if
wend
rtrimVBcrlf=rtrim(left(str,pos))
end function

注：本站部分信息可能源于互联网分享，如有侵权，请告知，我们将及时删除！

上一篇：ASP程序验证域名是否合法下一篇：ASP检测图片木马上传的函数