Замена нескольких символов с строке

[krez0n]

Нужно в строке поменять несколько разных символов на один общий. Не хочется делать несколько раз Replace. К примеру: заменить все #, <, >, на пробел. Можно ли как-то реализовать это? Все это нужно сделать средствами VBA для 2003 офиса

[KL]

например так:

Код: Выделить всё

Function ClearName(ByVal strText As String, ByVal strPattern As String, ByVal strReplacement As String) As String
    Dim RegExp As Object
    Set RegExp = CreateObject("vbscript.regexp")
    With RegExp
        .Pattern = strPattern
        .Global = True
        ClearName = .Replace(Trim(strText), strReplacement)
    End With
End Function

Sub Test()
    MsgBox ClearName("P##rover>ka Prov#e>r<<<ka#", "[#<>]", "")
End Sub

[Krasnaja Shapka]

афигеть... KL, а не могли бы вы рассказать КАК оно работает??!
т.е. я попробовал... оно отлично работает, я вот только не могу понять в каком месте это делается? что такое vbscript.regexp? что делает replace от двух аргументов... он ведь меняет первый аргумент на второй?... колдовство какое-то...

[alibek]

Ключевое слово - regexp. Поиск по "regular expressions" (или "регулярные выражения") позволит получить алкаемое.

[Krasnaja Shapka]

спс... нашел... кому надо: тут в разных полезностях - http://vb.hut.ru/vb_tutor_rus.chm