Entfernen Sie die aufeinanderfolgenden Wagenrückläufe und Leerzeichen am Anfang und am Ende der Zeichenfolge. Entfernen Sie die aufeinanderfolgenden Wagenrückläufe und Leerzeichen am Anfang und am Ende der Zeichenfolge.
Funktion trimVBcrlf(str)
trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
Endfunktion
'Entfernen Sie die aufeinanderfolgenden Wagenrückläufe und Leerzeichen am Anfang der Zeichenfolge
functionltrimVBcrlf(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
anders
isBlankChar=false
Ende wenn
wenden
ltrimVBcrlf=right(str,len(str)-pos+1)
Endfunktion
'Entfernen Sie aufeinanderfolgende Wagenrückläufe und Leerzeichen am Ende der Zeichenfolge
functionrtrimVBcrlf(str)
dim pos,isBlankChar
pos=len(str)
isBlankChar=true
während isBlankChar und pos>=2
if mid(str,pos,1)= then
pos=pos-1
elseif mid(str,pos-1,2)=VBcrlf then
pos=pos-2
anders
isBlankChar=false
Ende wenn
wenden
rtrimVBcrlf=rtrim(left(str,pos))
Endfunktion