Sorry, ich schaue wohl zuviel "Wer wird Millionär", beim Publikumsjoker läuft es da ähnlich.
Ich habe überlegt, mit der Klasse 'NotesView' und der Methode FTSearch zu arbeiten.
Also die Schleife arbeitet folgendes Script ab
Set view = db.GetView( "All Documents" )
j = view.FTSearch( "Kategorie1", 0 )
Set doc = view.GetFirstDocument
For i = 1 To j
'Feldwert Ortsteile auslesen, in Array speichern, doppelte Einträge raus (Array bereinigen)
Set doc = view.GetNextDocument(doc)
Next
Nachdem die Schleife die 1. Kategorie in die Datei gesetzt hat, weiß der Array, wieviele Ortsteile vorhanden sind. Der erste wird geschrieben, eine 2. Schleife arbeitet ähnlich wie zuvor und setzt die Vereine unter den Ortsteil.
Ist halt schwer zu skizzieren, wenn man es erst mal nur im Kopf hat.
Ob es funktioniert merke ich erst, wenn die ersten Zeilen geschrieben sind und der Debugger nicht meckert ;-)