- 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

0条记录访客评论