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

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

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

復制代碼 代碼如下:

'去掉字符串頭尾的連續(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

相關文章

最新評論

屯门区| 阿勒泰市| 临西县| 江山市| 黄梅县| 东宁县| 济阳县| 宜昌市| 灵璧县| 寿阳县| 澄迈县| 古交市| 温泉县| 迁安市| 东光县| 巫溪县| 威远县| 连江县| 曲阜市| 竹山县| 灵武市| 朝阳县| 霞浦县| 曲阳县| 英山县| 松滋市| 弋阳县| 阿巴嘎旗| 桐梓县| 德化县| 溧水县| 昌宁县| 公安县| 顺义区| 三门峡市| 泰兴市| 梓潼县| 平乡县| 兰溪市| 涪陵区| 博兴县|