Удалите последовательные возвраты каретки и пробелы в начале и конце строки. Удалите последовательные возвраты каретки и пробелы в начале и конце строки.
функция tripVBcrlf(str)
tripVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
конечная функция
'Удаляем последовательные возвраты каретки и пробелы в начале строки
функция ltrimVBcrlf(str)
dim pos, isBlankChar
позиция=1
isBlankChar = истина
в то время как isBlankChar
если мид(str,pos,1)= тогда
поз=поз+1
elseif Mid(str,pos,2)=VBcrlf тогда
поз=поз+2
еще
isBlankChar = ложь
конец, если
идти
ltrimVBcrlf=right(str,len(str)-pos+1)
конечная функция
'Удалить последовательные возвраты каретки и пробелы в конце строки
функцияrtrimVBcrlf(str)
тусклая позиция, isBlankChar
pos=len(str)
isBlankChar = истина
в то время как isBlankChar и pos>=2
если мид(str,pos,1)= тогда
поз=поз-1
elseif Mid(str,pos-1,2)=VBcrlf тогда
поз=поз-2
еще
isBlankChar = ложь
конец, если
идти
rtrimVBcrlf=rtrim(слева(str,pos))
конечная функция