else isBlankChar=false end if wend ltrimVBcrlf=right(str,len(str)-pos+1) end function '去掉字符串末尾的連續(xù)的回車和空格 function rtrimVBcrlf(str) dim pos,isBlankChar pos=len(str) isBlankChar=true while isBlankChar and pos>=2 if mid(str,pos,1)=" " then pos=pos-1 elseif mid(str,pos...
www.dbjr.com.cn/article/168...htm 2025-5-25