textdatei auslesen und daten in tabelle speichern

[hilmix]

Hallo,

ich möchte aus dem Text:

#
Achtnich, Martin Dr.med.
Gustav-Seitz-Str. 4 68163 Mannheim (0621) 24775
Ärzte: Internist Mannheim
1 Bewertungen

* Stadtplan
* Kostenlos anrufen!

jetzt eintragen!
#
Brand Bernhard Dr.med. u., Jakobs Christian Dr.med.
Waldstr. 143 68305 Mannheim (0621) 752034
Ärzte: Internist Mannheim
1 Bewertungen

* Stadtplan
* Kostenlos anrufen!

jetzt eintragen!
#
Dangl, Stefan Dr. med.
Grohbergstr. 9 68309 Mannheim (0621) 736800
Ärzte: Internist Mannheim
1 Bewertungen

* Stadtplan
* Kostenlos anrufen!

jetzt eintragen!

jeweils die Zeile mit Name, Anschrift und Telefonnummer in Spalten nach dem Schema

Name, Vorname | Straße | Plz | Ort | Telefon

extrahieren und das Ergebnis in eine Tabelle schreiben um es mit excel weiter zu bearbeiten. Hat jemand eine Idee? Danke im Voraus!

Grüße
hilmix

[Christian Marquardt]

Excel unter Linux?

Das ist mit jeder Programmiersprache machbar. Du hast die freie Wahl bei der Realisierung

[hilmix]

Geht das nicht mit sed und awk unter Linux?

Excel unter Linux?

Nein, OOCalc oder Excel.

[Christian Marquardt]

Sicherlich wird es mit denen auch gehen, wenn auch ungleich komplizierter.

[hilmix]

Hm, vielleicht ein Vorschlag wie's geht?

[Christian Marquardt]

mit sed,awk -> nein. Würde das mit PERL machen

[hilmix]

ja, und wie?

[Christian Marquardt]

Wenn ich vor dem Problem stehen würde, würde ich

- die Datei einlesen
- alle nicht benötigten Zeilen löschen
- regl. Ausdrücke entwerfen zum parsen der Namenszeile und der Adresszeile
- klären wie mit Doppelnamen umgegangen wird
- das Ergebnis in eine CSV-Datei schreiben

[Markus Lahr]

und wie?

Perl installiert ? Kommandozeile -

perl -v

Ansonsten: Perlmodul Tie::File in Verb. mit dem split-Befehl und einer Schleife vom Dateianfang bis zum Dateiende

[Christian Marquardt]

@Markus
Was sollte ihm die Ausgabe der PERL-Verison bringen? Er wird doch wohl wissen, was auf dem Rechner installiert ist

Was sollte es bringen, die ganze Datei - nach was überhaupt? - aufzuteilen? Wo willst du dann noch einen Zusammenhang erkennen?

[hilmix]

Sorry, aber kann man das nicht Zeilenweise einlesen? Jeweils die zwei Zeilen unter dem #, den Rest rausschmeissen. Anschließend nach Name, Vorname | Straße | Plz | Ort | Telefon ausgeben? Wobei mir halt nicht ganz klar ist wie.

gruß
hilmar

[Christian Marquardt]

Sorry, aber kann man das nicht Zeilenweise einlesen? Jeweils die zwei Zeilen unter dem #, den Rest rausschmeissen.

Klingt in meinen Augen unlogisch. Wie willst du bei zeilenweisen Einlesen etwas entfernen, was du noch nicht gelesen hast? Um es dann beim zeilenweisen lesen zu überspringen, musst du erst einlesen???

Wenn du alles in einem Array hast, ist es einfacher dieses zu analysieren. Des Weitern ist das Einlesen der kompletten Datei in ein Array in PERL nun ein Kinderspiel


open (in,"<$file");
@datei= <in>;
close in;

Aber viele Wege führen nach Rom....