摘要: '删除字符串开始处指定字符(串) 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 阅读全文
posted @ 2011-12-13 08:29 shoupifeng 阅读(3649) 评论(0) 推荐(0) 编辑