Supprimez les retours chariot et les espaces consécutifs au début et à la fin de la chaîne. Supprimez les retours chariot et les espaces consécutifs au début et à la fin de la chaîne.
fonction trimVBcrlf(str)
trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
fonction de fin
'Supprimer les retours chariot consécutifs et les espaces au début de la chaîne
fonctionltrimVBcrlf(str)
faible pos, isBlankChar
pos=1
isBlankChar = vrai
pendant que isBlankChar
si mid(str,pos,1)= alors
pos=pos+1
sinon si mid(str,pos,2)=VBcrlf alors
pos=pos+2
autre
isBlankChar = faux
finir si
wend
ltrimVBcrlf=right(str,len(str)-pos+1)
fonction de fin
'Supprimer les retours chariot consécutifs et les espaces à la fin de la chaîne
fonctionrtrimVBcrlf(str)
faible pos, isBlankChar
pos=len(chaîne)
isBlankChar = vrai
tandis que isBlankChar et pos>=2
si mid(str,pos,1)= alors
pos=pos-1
sinon si mid(str,pos-1,2)=VBcrlf alors
pos=pos-2
autre
isBlankChar = faux
finir si
wend
rtrimVBcrlf=rtrim(gauche(str,pos))
fonction de fin