title image


Smiley 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!
DB-Wiki


Wie man Fragen richtig stellt

YaccessAccess-FAQUnd ansonsten: Wikipedia




geschrieben von

Login

E-Mail:
  

Passwort:
  

Beitrag anfügen

Symbol:
 
 
 
 
 
 
 
 
 
 
 
 
 

Überschrift: