ลบการขึ้นบรรทัดใหม่และการเว้นวรรคที่ต่อเนื่องกันที่จุดเริ่มต้นและจุดสิ้นสุดของสตริง ลบการขึ้นบรรทัดใหม่และการเว้นวรรคที่ต่อเนื่องกันที่จุดเริ่มต้นและจุดสิ้นสุดของสตริง
ฟังก์ชั่น trimVBcrlf (str)
trimVBcrlf=rtrimVBcrlf(ltrimVBcrlf(str))
ฟังก์ชั่นสิ้นสุด
'ลบการขึ้นบรรทัดใหม่และการเว้นวรรคที่ต่อเนื่องกันที่จุดเริ่มต้นของสตริง
functionltrimVBcrlf(str)
ตำแหน่งสลัว isBlankChar
ตำแหน่ง=1
isBlankChar=จริง
ในขณะที่ isBlankChar
ถ้า mid(str,pos,1)= แล้ว
ตำแหน่ง=ตำแหน่ง+1
elseif mid(str,pos,2)=VBcrlf แล้ว
ตำแหน่ง=ตำแหน่ง+2
อื่น
isBlankChar=เท็จ
สิ้นสุดถ้า
เวน
ltrimVBcrlf=right(str,len(str)-pos+1)
ฟังก์ชั่นสิ้นสุด
'ลบการขึ้นบรรทัดใหม่และการเว้นวรรคที่ส่วนท้ายของสตริงออก
functionrtrimVBcrlf(str)
ตำแหน่งสลัว isBlankChar
pos=เลน(str)
isBlankChar=จริง
ในขณะที่ isBlankChar และ pos>=2
ถ้า mid(str,pos,1)= แล้ว
POS=POS-1
elseif mid(str,pos-1,2)=VBcrlf แล้ว
POS=POS-2
อื่น
isBlankChar=เท็จ
สิ้นสุดถ้า
เวน
rtrimVBcrlf=rtrim(ซ้าย(str,pos))
ฟังก์ชั่นสิ้นสุด