кода для замены из маркеров, если блоки

Question

мне нужны коды, чтобы заменить из маркеров, если блок, такие как

MYTEXT = «некоторый текст [IfIsFile: Правда]. Это файл [EndIfIsFile: Правда] [IfIsFile: ложные] это не файл [EndIfIsFile:. ложные] больше текста»

Я рад созвонимся, если блок отдельно (правда, то ложь) мне нужно отправить в функции myReplace (текст, маркер, Boolean если оставить текст или пустым его) в виде строки

Я могу назвать это myReplace (текст, «[IfIsFile: True]», true)

, а затем myReplace (текст, "[IfIsFile: Ложные]", ложь)

результаты будут «какой-то текст. это файл. больше текста»

Answer 1

хорошо, я думал, что это будет намного сложнее, но я был в состоянии написать его, если кто-то хочет, чтобы получить возможность отправлять улучшенный код -. Pls сделать

 Protected Function ReplaceIfToken(ByVal sText As String, ByVal startToken As String, ByVal endToken As String, ByVal bLeave As Boolean) As String 
     Dim str As String = sText 
     Dim iStart As Integer = 0 
     Dim iEnd As Integer = 0 
     iStart = InStr(str, startToken) 
     iEnd = InStr(str, endToken) 
     While iStart > 0 
      Dim fullTokenText As String = str.Substring(iStart - 1, iEnd + endToken.Length - iStart) 
      Dim fullTokenTextwoToken As String = fullTokenText.Replace(startToken, "").Replace(endToken, "") 
      If bLeave Then 
       str = str.Replace(fullTokenText, fullTokenTextwoToken) 
      Else 
       str = str.Replace(fullTokenText, "") 
      End If 
      iStart = InStr(str, startToken) 
      iEnd = InStr(str, endToken) 
     End While 
     Return str 
    End Function