Klammern samt Inhalt im String entfernen

[Rabe]

Hi Luc,

Ja, RaBe,
du hast's gefunden!
[...]
Und Google zeigt auch nicht immer die Treffer in chronologischer Reihenfolge.

ok, gut.

Ja, das habe ich gemerkt.

[snb]

oder

Code:

Sub M_snb()
  c00 = "Die Klammern [Info 1] samt [Info 2] deren Inhalt [Info 3] entfernen."
  msgbox  Join(Filter(Split(Replace(c00, " [", "]~"), "]"), "~", 0), "")
End Sub

[sotaros]

@snb Wow!!!

Erlaube mir aber für andere Besucher folgende Erweiterung:

Code:

Sub SNB_Lösung_Erweitert()
'Berücksichtigt auch Klammern am Satzanfang
 c00 = "[Info0]Die Klammern [Info 1] samt [Info 2] deren Inhalt [Info 3] entfernen."
 Debug.Print Mid(Join(Filter(Split(Replace("X " & c00, " [", "]~"), "]"), "~", 0), ""), 2)
End Sub

[snb]

Dann würde ich vorschlagen:

Code:

Sub M_snb()
  c00 = "[Info 0] Die Klammern [Info 1] samt [Info 2] deren Inhalt [Info 3] entfernen. [Info 4]"
  MsgBox Join(Filter(Split(Replace(" " & c00, " [", "]~"), "]"), "~", 0), "")
End Sub

[Wulfi]

Snb hatte in meinem Thread einen schönen und sehr effektiven Lösungsvorschlag zur Entfernung von Klammerinhalten in einem String gemacht.
Diese schöne Formel kann man auch umdrehen und nur die Klammerinhalte anzeigen. Da so etwas vielseitig einsetzbar, ist möchte ich die
Ergänzung hier posten:

Code:

Sub Erweiterung_SNB_Formel()
'Ableitung der Formel von SNB
 c00 = "[Info 0] Die Klammern [Info 1] samt [Info 2] deren Inhalt [Info 3] entfernen. [Info 4]"
'Keine Klammerinhalte original:
Debug.Print Join(Filter(Split(Replace(" " & c00, " [", "]~"), "]"), "~", 0), "")
'Nur Klammerinhalte Variation 1
Debug.Print Join(Filter(Split(Replace(" " & c00, "]", " [~"), " ["), "~", 0), "")
'Nur Klammerinhalte mit Sonderzeichen # als Trennzeichen der Klammerinhalte Variation 2
Debug.Print Join(Filter(Split(Replace(" " & c00, "]", " [~"), " ["), "~", 0), " # ")
End Sub

[Castor]

Und warum nun überflüssigerweise noch eins drauf, Wulfi;
was meinst du wohl, was MaskOn kann? Nämlich nicht nur das, sondern noch einiges mehr, was die EinzelfallVorschläge nicht berücksichtigen. Und die UDF steht praktisch schon seit 11 Jahren im Netz zV!
Gruß, Castor