문자열의 시작과 끝에서 연속 캐리지 리턴과 공백을 제거합니다. 문자열의 시작과 끝에서 연속 캐리지 리턴과 공백을 제거합니다.
함수 TrimVBcrlf(str)
TrimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
함수 종료
'연속적인 캐리지 리턴과 문자열 시작 부분의 공백을 제거합니다.
함수ltrimVBcrlf(str)
희미한 위치, isBlankChar
위치=1
isBlankChar=true
isBlankChar 동안
mid(str,pos,1)=이면
위치=위치+1
elseif mid(str,pos,2)=VBcrlf then
위치=위치+2
또 다른
isBlankChar=false
종료하면
향하게 하다
ltrimVBcrlf=오른쪽(str,len(str)-pos+1)
함수 종료
'문자열 끝의 연속된 캐리지 리턴과 공백을 제거합니다.
함수rtrimVBcrlf(str)
희미한 위치, isBlankChar
위치=len(str)
isBlankChar=true
isBlankChar 및 pos>=2인 동안
mid(str,pos,1)=이면
위치=pos-1
elseif mid(str,pos-1,2)=VBcrlf then
위치=pos-2
또 다른
isBlankChar=false
종료하면
향하게 하다
rtrimVBcrlf=rtrim(왼쪽(str,pos))
종료 기능