Удаление строковых символов

Question

Мне нужно написать функцию «Исключение», которая имеет аргументы S в виде строки K1, K2 символов.Функция должна возвращать строку, которая получается, когда вы удаляете символы K1 и K2.

Так что, если я переадресую функцию ("Odgovornost", "o", s "), она возвращает" Odgvrnt ".

Я пытался:

Function Eliminacija(S As String, K1 As String, K2 As String)
Dim I As Integer
For I = 1 To Len(S)

If Mid(S, I, 1) Like "K1" Or Mid(S, I, 1) Like "K2" Then
Mid(S, I, 1) = ""

End If
Next
Elimination = S

Answer 1

Удалить символы

Заменить версию

Function Eliminacija(S As String, K1 As String, K2 As String)

  S = Replace(S, K1, "")
  S = Replace(S, K2, "")

  Eliminacija = S

End Function

Средняя версия

Function Eliminacija(S As String, K1 As String, K2 As String)

  Dim i As Integer
  Dim str As String

  For i = 1 To Len(S)

    If Not Mid(S, i, 1) Like K1 And Not Mid(S, i, 1) Like K2 Then
      str = str & Mid(S, i, 1)
    End If

  Next

  Eliminacija = str

End Function