最新国产好看的视频,伊人天堂AV在线,国产Aaaaaa视频,蜜臀视频在线观看一区,人妻av色图,密臀久久久精品影片,青青视频免费观看毛片,久草在线观看视,国产三级精品色情在线

ASP去掉字符串頭尾連續(xù)回車和空格的Function

 更新時間:2008年12月22日 00:45:48   作者:  
去掉字符串頭尾的連續(xù)的回車和空格 去掉字符串開頭的連續(xù)的回車和空格 去掉字符串末尾的連續(xù)的回車和空格

復(fù)制代碼 代碼如下:

'去掉字符串頭尾的連續(xù)的回車和空格
function trimVBcrlf(str)
trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
end function

'去掉字符串開頭的連續(xù)的回車和空格
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

'去掉字符串末尾的連續(xù)的回車和空格
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

相關(guān)文章

最新評論

克山县| 丰都县| 敦煌市| 遂昌县| 玉林市| 禄丰县| 四子王旗| 贵阳市| 天柱县| 阳原县| 康保县| 安岳县| 罗江县| 鹰潭市| 唐海县| 利辛县| 沾化县| 林甸县| 白银市| 临武县| 仁化县| 奉贤区| 怀柔区| 象州县| 邹平县| 马边| 湄潭县| 福安市| 威信县| 保定市| 金乡县| 山丹县| 平顶山市| 浏阳市| 石嘴山市| 旺苍县| 乌拉特后旗| 东城区| 绥化市| 确山县| 米林县|