如何删去字符串中指定的字符(在线等候)

Question

抱歉，打错了。应该是：
replace(text1.txt,"xyz","") 

Answer 1

'------------------------------------------------------------------------------
    '功能描述：去除任意字符，该函数去除字符串中任意要去除的字符。例如：去空，去chr(0)等，
    '        去除的字符不仅仅是两头的字符，它去除字符串中所有的要去除的空或chr(0)等等。
    '参数描述：strString,strTrim
    '         strString=要被处理的字符串，strTrim=要去除的字符。
    '错误处理：跳到下一条语句，不处理。
'------------------------------------------------------------------------------
Public Function Ntrim(ByVal strString As String, ByVal strTrim As String) As String
On Error Resume Next
    Dim intCount As Long
    Dim lngString As Long
    lngString = Len(strString)
    intCount = 0
    For intCount = 1 To lngString
        '//判断如果是查到的字符=strtrim，那么去除该字符。
        If Mid(strString, intCount, 1) = strTrim Then
            strString = left(strString, intCount - 1) & Mid(strString, intCount + 1)
            lngString = Len(strString)
            intCount = intCount - 1
        End If
        If intCount = lngString Then Exit For
    Next
    Ntrim = strString
End Function

Answer 2

楼上说得正确
但我觉得有点麻烦,我感觉用replace函数就可以了