摘要:
'删除字符串开始处指定字符(串) 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
阅读(3696)
评论(0)
推荐(0)

浙公网安备 33010602011771号