时间:2008-02-23 06:55来源:互联网
Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String) Dim vSearchLine As String, found As Integer found = InStr(SearchLine, SearchFor): vSearchLine = SearchLine If found 0 Then vSearchLine = "" If found 1 Then vSearchLi
Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String)
Dim vSearchLine As String, found As Integer found = InStr(SearchLine, SearchFor): vSearchLine = SearchLine If found <> 0 Then vSearchLine = "" If found > 1 Then vSearchLine = Left(SearchLine, found - 1) vSearchLine = vSearchLine ReplaceWith If found Len(SearchFor) - 1 < Len(SearchLine) Then _ vSearchLine = vSearchLine Right$(SearchLine, Len(SearchLine) - found - Len(SearchFor) 1) End If sReplace = vSearchLine |
|