两款查找替换所选字符函数

 '函数1   只能查找替换
' SearchLine is input, SearchFor is what to search for, ReplaceWith is the replacement
'--------------------------------------
'函数名:sReplace                     --
'输入: SearchLine=字符串             --
'      SearchFor=要查找的字符串      --
'      ReplaceWith=替换的字符串      --
'输出: sReplace=替换后的字符串       --
'描述: 在全字符串中查找替换字符      --
'作者:                               --
'--------------------------------------
Function sReplace(SearchLine As String, SearchFor As String, ReplaceWith As String)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

End Function

'函数2   '1不设置查找字符串时，可以追加字符串，可以设置是否区分大小写查找。
'******************************************************************
'**函 数 名：Substitute
'**输    入：
'**          Expression   字符串表达式
'**          FindStr      要搜索的子字符串。
'**                       如果为空，就在原有字符串后面加上替换字符。
'**          ReplaceStr   用来替换的子字符串
'**          Start        搜索的开始位置。忽略，从1开始。
'**          DivideSize   是否区分大小写，忽略，区分大小写。
'**输    出：Substitute   替换后的字符串
'**描    述：在全字符串中查找替换字符,如果不指定查找，就添加。
'**作    者：陈峰
'**日    期：2008-10-05
'*******************************************************************
Function Substitute(Expression As String, _
                  FindStr As String, ReplaceStr As String, _
                  Optional Start As Long = 1, _
                  Optional DivideSize As Boolean = True) As String
    Dim StrText As String, TextWZ As Long
    If FindStr <> "" Then
        If DivideSize = False Then
            TextWZ = InStr(Start, LCase(Expression), LCase(FindStr), vbTextCompare)
        Else
            TextWZ = InStr(Start, Expression, FindStr, vbTextCompare)
        End If
        If TextWZ <> 0 Then
            StrText = Left(Expression, TextWZ - 1) & ReplaceStr
            StrText = StrText & Right(Expression, Len(Expression) - (TextWZ + Len(FindStr) - 1))
        End If
    Else
        StrText = Expression & ReplaceStr
    End If
    Substitute = StrText
End Function