
Code: Alles auswählen
a$="Franz jagt im (komplett) verwahrlosten Taxi quer durch (Bayern)."
For n=1 To CountString(a$, "(")
auf=FindString(a$,"(",auf+1)
zu=FindString(a$,")",zu+1)
b$=Mid(a$,auf+1,zu-auf-1)
Debug b$
Next
- Getestet, hatte aber kein Bock schöne Einrückungen einzufügen.