Diese Website nutzt Cookies, um bestmögliche Funktionalität bieten zu können. Weiteres erfährt man hier: Nutzungsbedingungen.
Geklammerte Textteile aus String löschen
Das geht so:Public Function OhneKlammern(S)If IsNull(S) Then OhneKlammern = Null Exit FunctionEnd IfDim Ch As String, I As Long, _ Geklammert As Boolean, Res As StringFor I = 1 To Len(S) Ch = Mid(S, I, 1) If Ch = "(" Then Geklammert = True If Ch = ")" Then Geklammert = False ElseIf Not Geklammert Then Res = Res & Ch End IfNext IOhneKlammern = ResEnd FunctionDie Mercedes-Version (mit verschiedenen Klammern und geschachtelten Klammerebenen):Public Function AllesOhneKlammern(S, _ Optional KlammerAuf As String = " Optional KlammerZu As String = ">)]}")If IsNull(S) Then AllesOhneKlammern = Null Exit FunctionEnd IfDim I As Long, J As Long, Ch As String, _ Klammern As String, Res As String, Klammertiefe As Long Res = "" Klammern = "" Klammertiefe = 0For I = 1 To Len(S) Ch = Mid(S, I, 1) J = InStr(KlammerAuf, Ch) If J > 0 Then Klammern = Mid(KlammerZu, J, 1) & Klammern Klammertiefe = Klammertiefe + 1 ElseIf InStr(KlammerZu, Ch) > 0 Then If Ch = Left(Klammern, 1) Then Klammern = Mid(Klammern, 2) Klammertiefe = Klammertiefe - 1 Ch = "" End If End If If Klammertiefe = 0 Then Res = Res & ChNext IAllesOhneKlammern = ResEnd FunctionReinhard
Gruß aus dem Norden
Reinhard
Bitte immer die Access-Version angeben
geschrieben von Reinhard Kraasch,
04.01.2001, 22:30 Uhr
, 26 mal gelesen