Private Sub DeleStr(ByVal s1 As String, ByVal s2 As String)
Dim i%, ls1%, ls2%
i = InStr(s1, s2)
ls2 = Len(s2)
Do While i > 0
ls1 = Len(s1)
s1 = Left(s1, i - 1) + Mid(s1, i + ls2)
i = InStr(s1, s2)
Loop
End Sub
内容全部来源于网络收集，如有侵权，请联系网站删除：QQ：24596024