->FunctionsReplace(SearchLineAsString,SearchForAsString,ReplaceWithAsString)
　　DimvSearchLineAsString,foundAsInteger
　　
　　found=InStr(SearchLine,SearchFor):vSearchLine=SearchLine
　　Iffound<>0Then
　　vSearchLine=""
　　Iffound>1ThenvSearchLine=Left(SearchLine,found-1)
　　vSearchLine=vSearchLine ReplaceWith
　　Iffound Len(SearchFor)-1<Len(SearchLine)Then_
　　vSearchLine=vSearchLine Right$(SearchLine,Len(SearchLine)-found-Len(SearchFor) 1)
　　EndIf
　　sReplace=vSearchLine
　　
　　EndFunction->->