摘要:
'删除字符串开始处指定字符(串) FunctionTrimLeft(strIn,strTrim) IfIsNull(strIn)OrstrIn=""Then TrimLeft=""ExitFunction EndIf IfIsNull(strTrim)OrstrTrim=""Then TrimLeft=strIn ExitFunction EndIf While(Left(strIn,Len(strTrim))=strTrim) strIn=Mid(strIn,Len(strTrim)+1) Wend TrimLeft=str 阅读全文