Remova os retornos de carro e os espaços consecutivos no início e no final da string. Remova os retornos de carro e os espaços consecutivos no início e no final da string.
função trimVBcrlf(str)
trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
função final
'Remove os retornos de carro e espaços consecutivos no início da string
funçãoltrimVBcrlf(str)
dim pos,isBlankChar
posição = 1
isBlankChar = verdadeiro
enquanto isBlankChar
se meio(str,pos,1)=então
pos=pos+1
elseif mid(str,pos,2)=VBcrlfentão
pos=pos+2
outro
isBlankChar=falso
terminar se
vamos
ltrimVBcrlf=direita(str,len(str)-pos+1)
função final
'Remove retornos de carro consecutivos e espaços no final da string
funçãortrimVBcrlf(str)
dim pos,isBlankChar
pos=len(str)
isBlankChar = verdadeiro
enquanto isBlankChar e pos>=2
se meio(str,pos,1)=então
pos = pos-1
elseif mid(str,pos-1,2)=VBcrlfentão
pos = pos-2
outro
isBlankChar=falso
terminar se
vamos
rtrimVBcrlf=rtrim(esquerda(str,pos))
função final