Temptation

摘要： 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... 阅读全文