Delphi-PRAXiS

Delphi-PRAXiS (https://www.delphipraxis.net/forum.php)
-   Object-Pascal / Delphi-Language (https://www.delphipraxis.net/32-object-pascal-delphi-language/)
-   -   Ordnerstruktur aus Textdatei erstellen (https://www.delphipraxis.net/141059-ordnerstruktur-aus-textdatei-erstellen.html)

Sharky 1. Okt 2009 12:36


Ordnerstruktur aus Textdatei erstellen
 
Hai ihr,

ich habe eine Textdatei mit diesem Aufbau:
Code:
Style
    1. Assets
        1.1 GRP 1
            1.1.1 Overview
                1.1.1.1 List of properties (2)
                1.1.1.2 Pictures - Maps
                    1.1.1.2.1 Pictures (89)
                    1.1.1.2.2 Maps (87)
            1.1.2 Property related doc
                1.1.2.1 Extracts from the land register (70)
                1.1.2.10 Important contracts
                1.1.2.11 Public funding
                1.1.2.12 Disputes
                1.1.2.13 Sales (1)
                1.1.2.14 Building Plans
                1.1.2.15 Expert opinion (1)
                1.1.2.2 Site plan (61)
                1.1.2.3 Public building charges (69)
                1.1.2.4 Building permit (15)
                1.1.2.5 Protection of ancient monuments (58)
                1.1.2.6 Contaminations (20)
                1.1.2.7 Other public limitations (86)
                1.1.2.8 Neighbour agreement
                1.1.2.9 Condominium owners association-Leasehold Agreement
            1.1.3 TDD (14)
            1.1.4 LDD (1)
                Appendices (23)
            1.1.5 SPA (1)
        1.2 GRP 2
... Natürlich um einiges Länger.

Darum soll ich nun auf der Festplatte eine Ordnerstruktur erstellen.
Irgendwie habe ich heute eine (oder mehrere) Bretter vor dem Kopf und komme auf keine Idee.

Help me please.

worker 1. Okt 2009 12:48

Re: Ordnerstruktur aus Textdatei erstellen
 
Liste der Anhänge anzeigen (Anzahl: 1)
Parse Zeile für Zeile und beziehe Dich einfach auf die Paragraphen. Ändert sich deren Anzahl an Elementen, so änderst Du enstsprechend die Ebene Deiner Ordnerstruktur.

1. -> Ebene 1
1.1 -> Ebene 2
1.1.1 -> Ebene 3
1.2 -> Ebene 2
1.3 -> Ebene 2
2. -> Ebene 1
[...]

Erzeuge ein dynamisches Array und speichere dort jeweils das aktuell erzeugte Verzeichnis in dem Index, der zur Ebene passt. Wenn Du eine neue Ebene erzeugen musst, erweiterst Du das Array entsprechend. Gehst Du in den Ebenen zurück, so kannst Du ganz einfach das zuletzt erzeugte Verzeichnis der Vorebene aus dem Array holen und dort drin weiterarbeiten.

Edit:
Habe mal ein kleines Beispiel angehängt. Nicht groß getestet und ohne weiteres Exception-Handling etc. Soll nur das mögliche Vorgehen verdeutlichen!

Sharky 2. Okt 2009 09:35

Re: Ordnerstruktur aus Textdatei erstellen
 
Danke für den Tipp. :-)

Ich werde mir das am WE mal ansehen.

Pilloker 5. Okt 2009 09:22

Re: Ordnerstruktur aus Textdatei erstellen
 
Zitat:

Zitat von worker
Habe mal ein kleines Beispiel angehängt.

Ha, das kommt mir gerade richtig :!: Vielen Dank :)


Alle Zeitangaben in WEZ +1. Es ist jetzt 01:42 Uhr.

Powered by vBulletin® Copyright ©2000 - 2024, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz