摘要: Function replace(ByVal sstr As String, ByVal stag As String, ByVal srep As String) As String Dim l1, l2, l3, x, i As Long Dim st As String x = InStr(sstr, stag) If x 0 Then Re... 阅读全文
posted @ 2007-09-07 14:22 temptation 阅读(941) 评论(0) 推荐(0) 编辑