Elimine los retornos de carro y los espacios consecutivos al principio y al final de la cadena. Elimine los retornos de carro y los espacios consecutivos al principio y al final de la cadena.
función recortarVBcrlf(cadena)
trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(cadena))
función final
'Elimina los retornos de carro consecutivos y los espacios al principio de la cadena
funciónltrimVBcrlf(cadena)
posición tenue, es carácter en blanco
pos=1
isBlankChar=verdadero
mientras que está en blanco
si mid(str,pos,1)= entonces
pos=pos+1
elseif mid(str,pos,2)=VBcrlf entonces
pos=pos+2
demás
isBlankChar=falso
terminar si
encaminarse a
ltrimVBcrlf=derecha(cadena,len(cadena)-pos+1)
función final
'Elimina retornos de carro consecutivos y espacios al final de la cadena
funciónrtrimVBcrlf(cadena)
posición tenue, es carácter en blanco
pos=len(cadena)
isBlankChar=verdadero
mientras que isBlankChar y pos>=2
si mid(str,pos,1)= entonces
pos=pos-1
elseif mid(str,pos-1,2)=VBcrlf entonces
pos=pos-2
demás
isBlankChar=falso
terminar si
encaminarse a
rtrimVBcrlf=rtrim(izquierda(cadena,pos))
función final