ca. 1200 PDF-Dateien auslesen und bestimmte Daten in eine CSV-Datei speichern (gelöst) (Perl/CGI)

[thread]19195[/thread]

ca. 1200 PDF-Dateien auslesen und bestimmte Daten in eine CSV-Datei speichern [gelöst]

Tags: perl5 PDF CSV einlesen ausgeben Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+21 replies
Thyrius

2014-07-15 21:55
User since
2013-01-23
42 Artikel
BenutzerIn
Hallo Leute,

heute brauche ich mal einen dringenden Rat von Euch.

Ich habe hier etwas mehr als 1200 PDF-Dateien (Text), die jeweils ein Anschreiben mit verschiedenen Adressen und Kundennummern bzw. Vertragsnummern beinhaltet.
Leider müssen wir unser System wechseln und dazu muss ich nun die Adressen, die im Empfängerfeld stehen, auslesen und vorzugsweise für Excel aufbereiten.

Da ich so gut wie keine Erfahrung habe, aber weiss, dass es damit geht, wende ich mich an Euch.

Nun zur aktuellen IST-Situation:

Habe in einem Verzeichnis unter Windows etwa 1200 PDF-Files, benannt nach diesem Muster: <Name, Vorname.pdf>, alles ausgedruckte Kundenstammdaten aus unserem CMS-System in je eine PDF.
Mit ein wenig Tüfteln ist es mir gelungen, per Batch-Datei (in einem Sicherungskopie-Ordner) alle Files mit Hilfe von pdftotxt.exe so umzubenennen, dass die Files nun <01.pdf> bis <1209.pdf> heissen und dass die gewünschten Adressen alle in zweiter Zeile stehen.
Genau diese gilt es nun, auszulesen und vorzugsweise in eine Semikolon-separierte CSV-Datei zu schreiben, damit ich sie für einen Serienbrief in eine Excel-Datei bekomme.

Weiter habe ich ergoogelt, dass ich mit z.B.:
Code: (dl )

1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17

#!/usr/bin/env perl use CGI::Carp "fatalsToBrowser"; use strict; print "Content-type: text/html\n\n"; print "<HTML><HEAD><TITLE>Test</TITLE></HEAD><BODY>\n"; print "<h1>Hello!</h1>\n"; # Read a text file # open (TXTFILE, "01.txt") or die "Err $!\n";; while (<TXTFILE>){ if ($. == 2) { print "Zeile 2: $_\n<br>"; last; } } print "</BODY></HTML>\n";
genau meine gewünschte Zeile auslesen kann und zumindest auf dem Bildschirm richtig ausgeben kann.
Ich möchte sie aber in einer importierbaren csv-Datei haben.

Wie schreibe ich die Datei um und wie sorge ich dafür, dass das Scribt alle Dateien ausliest und jeweils immer die zweite Zeile hinzufügt?

Vielen Dank für Eure Hilfe!!!

(oder gehts noch ganz anders, ohne viel Heckmeck???)

Lg

Christian

modedit Editiert von pq: "gelöst" aus titel genommen. bitte grünen haken benutzen
Last edited: 2014-07-17 15:55:11 +0200 (CEST)
Alter Mann ist kein D-Zug... :D
- +2 replies
- Britzel
  
  2014-07-15 22:48
  
  User since
  2012-10-02
  20 Artikel
  BenutzerIn
  
  Tag.
  Zunächst wäre mal zu fragen, warum Du das als CGI-Programm schreibst. Hat das einen besonderen Gund? Ich denke das ein einfaches Konsolen-Script einfacher wäre.
  
  Was hast Du denn schon getan, um eine Lösung zu finden? Ausser hier zu fragen, meine ich. Die Lösung ist trivial, aber irgendwie habe ich keinen Bock hier jemandens Hausaufgaben zu machen :)
  
  Du verwendest ja schon den Befehl "open" um eine Datei zu lesen. Da liegt es nahe mit dem gleichen Befehl eine andere Datei zum Schreiben zu öffen und dort hinen zu schreiben (mit print).
  
  Gruß,
  Britzel
  - Thyrius
    
    2014-07-15 22:57
    
    User since
    2013-01-23
    42 Artikel
    BenutzerIn
    
    Danke erstmal, dass Du mir helfen willst, trotz deiner, grins, Unlust...
    
    aber das ist ok, soll ja auch was lernen, als alter Mann... :D
    
    Ich gestehe, ich hab keine Ahnung, wie ich schon schrieb, hab ich das beim googeln gefunden. Ich selbst bin nicht firm genug, da was selbst zu brutzeln.
    das gestehe ich ein. :(
    
    ich weiss, dass ich mit "open(DATEI, ">>Dateiname");" die Daten in eine Datei schreiben kann. Aber mir will mangels Kenntnis die Separierung nicht gelingen.
    
    Achso: hab hier noch ein Buch liegen, mit nem Lama drauf, allerdings sprechen wir beide scheinbar auch eine andere Sprache. Wir vertsehen und irgendwie nicht... :(
    Last edited: 2014-07-15 23:00:55 +0200 (CEST)
    Alter Mann ist kein D-Zug... :D
- +18 replies
- Linuxer
  
  2014-07-15 23:00
  User since
  2006-01-27
  3890 Artikel
  HausmeisterIn
  Hallo Thyrius,
  
  Wie schaut denn eine Zeile mit Adresse aus? Ist das schon ein CSV-Format?
  Dann müsstest Du ja nur eine Ausgabedatei zum Schreiben öffnen und anstatt nach STDOUT (wie im Beispiel) in den Handle der Ausgabedatei schreiben.
  
  Wenn die Adressen nicht im CSV-Format vorliegen, musst Du sie natürlich noch umformatieren.
  Da Du aber kein Wort über das Format der Adresszeile geschrieben hast, kann man da allenfalls grob raten...
  
  Zum Durchlaufen der Quelldateien.
  Du kannst eine for-Schleife dafür nutzen und mit sprintf die Zahl auf 2 Stellen formatieren (da Du von 01 bis 1290 schriebst); hat die Zahl mehr Stellen, wird sie eben länger.
  
  Die zweite Zahl kannst Du erhalten, indem Du nur zweimal vom Lesenden Handle liest.
  
  Simpler ungetesteter Versuch:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20
  
  #! /usr/bin/env perl use strict; use warnings; my $outfile = 'adresses.csv'; open my $OUTH, '>>', $outfile or die "open($outfile, w+) failed: $!"; for my $i ( 1 .. 1290 ) { my $infile = sprintf "%02d.pdf", $i; open my $INH, '<', $infile or die "open($infile,ro) failed: $!"; ( undef, my $address ) = <$INH>; # zweimal lesen; erste "Zeile" ignorieren print $OUTH $address; close $INH; } close $OUTH or die "close($outfile) failed: $!";
  
  meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
  Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
  - +17 replies
  - Thyrius
    
    2014-07-15 23:14
    
    User since
    2013-01-23
    42 Artikel
    BenutzerIn
    
    uuhhhh... ich könnt Dich... ok, genug... :D DANKÖÖÖÖ
    
    Super, nachdem ich in Zeile 12 das .pdf in .txt geändert hatte, klappte es.
    Allerdings ohne Semikolon, und damit halt alles in einer Excel-Zelle pro Datei.
    
    Wenn wir dies nun noch hinbekämen...
    
    wie ich Eingang schrieb, hatte ich mit pdftotxt alle dateien in ein text.file umbenannt. die ersten, sagen wir 5 zeilen sehen so aus:
    
    Quote
    (Absender) Name Straße HSN PLZ Ort
    Frau (Empfänger) Nachname Vorname Straße HSN PLZ Ort
    
    Firma XYZ GmbH & Co.KG
    Kirchplatz 007 66663 Merzig Telefon: 068611234 Fax: 068614321 E-Mail: ich@du.er
    Kundenübersicht
    Druckdatum 10.07.2014
    
    Genau um die Zweite zeile mit dem Inhalt: "Frau (Empfänger) Nachname Vorname Straße HSN PLZ Ort" geht es.
    
    Diese sollten vorzugsweise mit Semikolon getrennt sein.
    
    In der PDF-Datei stehen sie alle untereinander, wie man Adressen halt schreibt.
    
    Ich versuche jetzt mal, die PDF`s ohne umwandeln zu lesen...
    .
    .
    .
    So, also, Versuch mit den PDF-Dateien:
    Ergebnis:
    
    innerhalb der adressen.csv sind nun folgende Einträge drinn:
    
    Quote
    6 0 obj
    <</Linearized 1/L 58996/O 8/E 54626/N 1/T 58757/H [ 836 198]>>
    endobj
    
    6 0 obj
    <</Linearized 1/L 58839/O 8/E 54469/N 1/T 58600/H [ 836 198]>>
    endobj
    
    8 0 obj
    <</Linearized 1/L 61777/O 10/E 55753/N 2/T 61498/H [ 836 232]>>
    endobj
    usw...
    
    Irgednwas scheint er dann nicht hinzubekommen. Aber das mit der .txt klappt ja, bis auf die Semikolons...
    Last edited: 2014-07-15 23:19:29 +0200 (CEST)
    Alter Mann ist kein D-Zug... :D
    - +3 replies
    - Linuxer
      
      2014-07-15 23:28
      
      User since
      2006-01-27
      3890 Artikel
      HausmeisterIn
      
      Stimmt, das waren ja .txt.
      
      Ich sehe momentan ein Problem beim Verarbeiten der Adresse.
      
      Das Schema ist ja benannt:
      Frau (Empfänger) Nachname Vorname Straße HSN PLZ Ort
      
      Aber wie soll man die Daten sauber trennen? Vornamen können aus mehreren Namen bestehen; Straßen auch; Hausnummern können auch mehr als nur Zahlen sein, auch mit Leerzeichen.
      Wie soll man also festlegen, wo das Semikolon hin soll?
      
      Code: (dl )
      
      1 2
      
      Mustermann Max Musterstr. 1 12345 Musterstadt Mustermann Eva Maria Am Musterplatz 2 b 23456 Musterdorf am Wasser
      
      Stehen die Adressen so schon im PDF?
      Vielleicht kann es hilfreicher sein, die Daten direkt aus dem PDF zu lesen... dafür habe ich aber bisher nichts mit PDF und den Modulen gemacht.
      meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
      Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - Linuxer
        
        2014-07-15 23:34
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        Was man als Ansatz tun könnte:
        
        Man versucht, die einfachen Fälle "Nachname Vorname Strasse Hsn PLZ Ort" zu ermitteln und Semikolons einzufügen.
        Diese Fälle schreibt man in eine Ausgabedatei "gute_adressen.csv";
        
        Alle anderen Fälle schreibt man in eine Datei "schlechte_adressen.csv" und kontrolliert sie per Hand.
        Alles in der Hoffnung, dass nicht so viele Ausnahmefälle vorliegen.
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
      - Thyrius
        
        2014-07-15 23:40
        
        User since
        2013-01-23
        42 Artikel
        BenutzerIn
        
        hmmm...
        
        im PDF ist es ein normaler Brief Nach ISO-Aufteilung.
        Sprich:
        
        Quote
        Absender-Name, Strasse HSN, PLZ Ort
        
        Frau
        Nachname, Vorname
        Strasse HSN
        PLZ Ort
        
        Überschrift
        
        und nach dem konvertieren halt so:
        
        Quote
        Absender-Name Strasse HSN PLZ Ort
        
        Frau Nachname Vorname Strasse HSN PLZ Ort
        
        Überschrift
        
        Alter Mann ist kein D-Zug... :D
    - +13 replies
    - Thyrius
      
      2014-07-15 23:33
      
      User since
      2013-01-23
      42 Artikel
      BenutzerIn
      
      noch ne Frage zwischendurch:
      
      ich muss ja vorher die PDF-Dateien mit dem Programm pdftotxt.exe in einer batchdatei konvertieren.
      
      Das mache ich ja mit dem Befehl "pdftotext -f 1 04.pdf 04.txt" (für z.B. Datei 04.pdf). Diese wird ja dann auch mit deinem Script ausgelesen.
      
      War das nicht so, dass ich statt einer Batchdatei diesen Befehl ebenfalls in einer Schleife gleich hier einbauen kann?
      
      Meine Recherche zeigte mir die Befehle:
      
      $prog = "C:\pdf\"pdftotext.exe -f 1 04.pdf 04.txt"";
      system($prog);
      
      Könnte ich das jetzt einfach so zwischen deine Zeile 11 und 12 setzen? Würde das gehen?
      Alter Mann ist kein D-Zug... :D
      - +12 replies
      - Linuxer
        
        2014-07-15 23:36
        
        User since
        2006-01-27
        3890 Artikel
        HausmeisterIn
        
        edit: Nochmal angeguckt und drüber nachgedacht:
        
        Hier mal zusammengefügt (Achtung $infile ist jetzt $txtfile):
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
        
        #! /usr/bin/env perl use strict; use warnings; my $outfile = 'adresses.csv'; open my $OUTH, '>>', $outfile or die "open($outfile, w+) failed: $!"; for my $i ( 1 .. 1290 ) { my $pdffile = sprintf "%02d.pdf", $i; my $txtfile = sprintf "%02d.txt", $i; my $prog = "C:/pdf/pdftotext.exe -f 1 $pdffile $txtfile"; system( $prog ) == 0 or next; # bei Fehler weiter mit der naechsten datei open my $INH, '<', $txtfile or die "open($txtfile,ro) failed: $!"; ( undef, my $address ) = <$INH>; # zweimal lesen; erste "Zeile" ignorieren print $OUTH $address; close $INH; } close $OUTH or die "close($outfile) failed: $!";
        
        Last edited: 2014-07-15 23:46:03 +0200 (CEST)
        meine Beiträge: I.d.R. alle Angaben ohne Gewähr und auf Linux abgestimmt!
        Die Sprache heisst Perl, nicht PERL. - Bitte Crossposts als solche kenntlich machen!
        
        Thyrius
        
        2014-07-15 23:51
        
        User since
        2013-01-23
        42 Artikel
        BenutzerIn
        
        Boah, Du bist so dermaßen mein Held !!!!
        
        Vielen Vielen Dank!!!
        
        Das Problem mit den Semikolons regle ich in Excel mit "TextinSpalten".
        Das wird kein Problem sein!!!!
        
        Ich danke Dir sowas von!!!
        
        PN an mich mit Deiner Adresse für die "Dankes-Pralinès"
        
        ;)
        Alter Mann ist kein D-Zug... :D
        
        +10 replies
        
        Thyrius
        
        2014-07-17 15:31
        
        User since
        2013-01-23
        42 Artikel
        BenutzerIn
        
        So, nach einigem hin und her habe ich mit der Ausgabe der Textdatei doch so meine Probleme.
        
        Denn, nachdem das Progi pdftotext.exe die Umwandlung vollzogen hat, sind sämtliche gebrauchten Daten Leerzeichen getrennt.
        
        Wären alle Adressen im selben Aufbau, so wäre ich bereits fertig.
        Da aber teilweise Strassennamen mit mehreren Wörtern auch Leerzeichen getrennt sind, oder Firmennamen ebenfalls mit Leerzeichen geschrieben werden, kann man sich vorstellen, welches Durcheinander das bei über 1200 Datensätzen gibt.
        I-Punkt setzen dann die Doktoren in den Datensätzen, die teilweise mit mehreren Kürzeln "daherprahlen".
        
        Nachdem ich mir das File pdftotext genauer angesehen habe, habe ich herausgefunden, dass mit dem richtigen Parameter die Ausgabe so ausgegeben werden kann, dass die Adresse nicht in einer Zeile steht, sondern wie es sich gehört, untereinander.
        
        Beispiel-Ergebnis der Umwandlung ohne extra Parameter (wie im Code benutzt)
        
        Quote
        Herr Willi Mustermann 1-Strasse 7 12345 Musterstadt
        
        oder
        
        Quote
        Frau Dr. med. dent Willhelmine Musterfrau In der Stadt 7 b 3456 Weil am Rhein
        
        Wünschenswert wäre gewesen:
        
        Quote
        Herr;;;;Willi;Mustermann;1-Strasse;7;;12345;Musterstadt;
        
        oder
        
        Quote
        Frau;Dr.;med.;dent;Willhelmine;Musterfrau;In der Stadt;7;b;3456;Weil am Rhein;
        
        Das kann meines Wissens aber nicht funktionieren, wenn pdftotext das nicht hergibt.
        
        So, wie gesagt, habe mir das Programm genauer angesehen und einen Schalter gefunden, der mir die Adresse wie folgt ausgibt:
        
        Quote
        Firmenname¶
        Kontaktmöglichkeiten¶
        Deutscher Industrie und Handelskammertag (DIHK)¶
        Strasse Gesellschaft Ort und Telefon¶
        Hier noch was¶
        da noch was¶
        noch was, was nicht interessiert¶
        Adresse der Firma¶
        Vom Briefkopf rechts Zeile 1¶
        Vom Briefkopf rechts Zeile 2¶
        Vom Briefkopf rechts Zeile 3¶
        Vom Briefkopf rechts Zeile 4¶
        Absendername und -Adresse im Kuvertfenster¶
        66663 Merzig¶
        Herrn¶
        Willi Mustermann¶
        1-Strasse 7¶
        12345 Musterstadt¶
        
        Die Daten, die ich brauche, fangen also immer bei Zeile 15 an (Fettgedruckt)
        
        Doof, wenn ich ne Zeile mehr habe, wie hier:
        
        Quote
        Firmenname¶
        Kontaktmöglichkeiten¶
        Deutscher Industrie und Handelskammertag (DIHK)¶
        Strasse Gesellschaft Ort und Telefon¶
        Hier noch was¶
        da noch was¶
        noch was, was nicht interessiert¶
        Adresse der Firma¶
        Vom Briefkopf rechts Zeile 1¶
        Vom Briefkopf rechts Zeile 2¶
        Vom Briefkopf rechts Zeile 3¶
        Vom Briefkopf rechts Zeile 4¶
        Absendername und -Adresse im Kuvertfenster¶
        66663 Merzig¶
        Herrn¶
        Willi Mustermann¶
        c/o Wilhelmine Musterfrau¶
        1-Strasse 7¶
        12345 Musterstadt¶
        
        Die nächste Zeile, die immer, also bei jeder Datei folgt, ist dieser Eintrag:
        
        Code: (dl )
        
        Telefon: 0176123456789
        
        weil diese auch im Briefkopf rechts steht, quasi als Zeile 5. Dieser Eintrag ist also immer gleich!
        
        Wie kann ich nun meinem Perl-Scribt sagen, es soll nicht die Zeile 2 lesen, sondern lesen ab Zeile 15 bis eine Zeile anfängt mit "Telefon: 0176123456789" ???
        
        Sorry, wenn ich die Community wieder bemühen muss... :(
        Ich hänge hier seit gestern morgen mit rum, und bekomme es nicht hin...
        
        Danke
        
        hier nochmal der bisherige Code, damit ihr nicht suchen müsst (mit neuem Parameter für pdftotxt.exe):
        
        Code: (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23
        
        #! /usr/bin/env perl use strict; use warnings; my $outfile = 'Adressen.txt'; open my $OUTH, '>>', $outfile or die "open($outfile, w+) failed: $!"; for my $i ( 1 .. 1250 ) { my $pdffile = sprintf "%01d.pdf", $i; my $txtfile = sprintf "%01d.txt", $i; my $prog = "pdftotext.exe -f 1 -raw $pdffile $txtfile"; system( $prog ) == 0 or next; # bei Fehler weiter mit der nächsten Datei open my $INH, '<', $txtfile or die "open($txtfile,ro) failed: $!"; ( undef, my $address ) = <$INH>; # zweimal lesen; erste "Zeile" ignorieren print $OUTH $address; close $INH; } close $OUTH or die "close($outfile) failed: $!";
        
        Alter Mann ist kein D-Zug... :D
        
        +9 replies
        
        Raubtier
        
        2014-07-17 15:41
        
        User since
        2012-05-04
        1075 Artikel
        BenutzerIn
        
        Nach dem open:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        # 14 Zeilen überspringen scalar <$INH> for 1..14; while (my $line = <$INH>) { # Ende, wenn Zeile mit Telefon gefunden last if $line =~ /^Telefon:/; print $line; }
        
        Thyrius
        
        2014-07-17 15:48
        
        User since
        2013-01-23
        42 Artikel
        BenutzerIn
        
        hmmm...
        danke für die schnelle hilfe, allerdings bekomme ich nun immer zeile 21 ausgeworfen. und nur diese. :(
        Alter Mann ist kein D-Zug... :D
        
        +7 replies
        
        Thyrius
        
        2014-07-17 16:31
        
        User since
        2013-01-23
        42 Artikel
        BenutzerIn
        
        2014-07-17T13:41:43 Raubtier
        Nach dem open:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7
        
        # 14 Zeilen überspringen scalar <$INH> for 1..14; while (my $line = <$INH>) { # Ende, wenn Zeile mit Telefon gefunden last if $line =~ /^Telefon:/; print $line; }
        
        ok, ich hatte es erst garnicht wahrgenommen, weil es so schnell in der Konsole vorbei flog:
        
        Es geht natürlich, aber er schreibt mir diese Werte nicht ins adressen.csv-file, sondern nur auf dem monitor.
        interessant ist, dass er mir immer die zweite zeile nach der "Telefon-Zeile" in die datei schreibt.
        
        Frage:
        
        wenn ich perl sage, dass die daten in einer bestimmten reihenfolge kommen, kann ich die daten dann semikolon-separiert ausgeben, so, wie ich es im vorherigen threat beschrieben hatte?
        Alter Mann ist kein D-Zug... :D
        
        +6 replies
        
        GwenDragon
        
        2014-07-17 16:39
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Probier mal das:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
        
        my @csv = (); # Array das später alle Felder beinhaltet # 14 Zeilen überspringen scalar <$INH> for 1..14; # weitere Zeilen einlesen while ( my $line = <$INH> ) { # Zeilenendezeichen entfernen chomp $line; # Ende, wenn Zeile mit Telefon gefunden last if $line =~ /^Telefon:/i; # Datenfeld zwischenspeichern push @csv,$line; } # alle Felder mit dem ; verbunden ausgeben und ein Newline print $OUTH join( ';', @csv ), "\n";
        
        Editiert von GwenDragon: Code umgestellt wg. Überhitzung des Kopfes ;)
        Last edited: 2014-07-17 16:48:46 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +5 replies
        
        Thyrius
        
        2014-07-17 16:45
        
        User since
        2013-01-23
        42 Artikel
        BenutzerIn
        
        2014-07-17T14:39:35 GwenDragon
        Probier mal das:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15
        
        my @csv = (); # Array das später alle Felder beinhaltet # 14 Zeilen überspringen scalar <$INH> for 1..14; # weitere Zeilen einlesen while ( my $line = <$INH> ) { # Zeilenendezeichen entfernen chomp $line; # Datenfeld zwischenspeichern push @csv,$line; # Ende, wenn Zeile mit Telefon gefunden last if $line =~ /^Telefon:/i; } # alle Felder mit dem ; verbunden ausgeben und ein Newline print $OUTH join( ';', @csv ), "\n";
        
        cool, vielen vielen vielen Dank!
        
        Da sind zwar nun noch die Telefonzeile und die darauffolgende mit bei, aber die kann man ja ganz leicht aus der importierten spalte im excel löschen, das sind zwei klicks.
        
        so, ich teste das jetzt mal mit allen 1200 dateien.
        
        bin gespannt...
        Alter Mann ist kein D-Zug... :D
        
        +4 replies
        
        GwenDragon
        
        2014-07-17 16:49
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Ähmmm. Nochmals oben bei msg #176490 schauen, ich habe was falsch kopiert ;)
        Last edited: 2014-07-17 16:50:22 +0200 (CEST)
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        +3 replies
        
        Thyrius
        
        2014-07-17 17:03
        
        User since
        2013-01-23
        42 Artikel
        BenutzerIn
        
        mit etwas getüftel hat das ja schon prima geklappt.
        du bist meine heldin!!!
        
        Vielen Dank! Jetzt teste ich mal noch die von dir korrigierte version... :)
        
        €dit: nun, die Telefonnummer ist nun weg, aber die zeile danach mit der email ist noch immer da.
        
        egal, ich habe, was ich brauche, ich werde mich heute abend nochmal hinsetzen und "lernen", damit ich auch verstehe, was du gemacht hast.
        
        jetzt erstmal muss ich die tabelle für die serienbriefe fertig machen.
        
        nochmals herzlichsten Dank!!!
        Last edited: 2014-07-17 17:06:57 +0200 (CEST)
        Alter Mann ist kein D-Zug... :D
        
        +2 replies
        
        GwenDragon
        
        2014-07-17 17:19
        
        User since
        2005-01-17
        14748 Artikel
        Admin1
        
        Wenn ich statt aus einer Datei (zum Test) aus dem DATA-Bereich des Programms lese und auf STDOUT ausgeben:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41
        
        my @csv = (); # Array das später alle Felder beinhaltet # 14 Zeilen überspringen scalar <DATA> for 1..14; # weitere Zeilen einlesen while ( my $line = <DATA> ) { # Zeilenendezeichen entfernen chomp $line; # Ende, wenn Zeile mit Telefon gefunden last if $line =~ /^Telefon:/i; # Datenfeld zwischenspeichern push @csv,$line; } # alle Felder mit dem ; verbunden ausgeben und ein Newline print STDOUT join( ';', @csv), "\n"; __DATA__ Firmenname Kontaktmöglichkeiten Deutscher Industrie und Handelskammertag (DIHK) Strasse Gesellschaft Ort und Telefon Hier noch was da noch was noch was, was nicht interessiert Adresse der Firma Vom Briefkopf rechts Zeile 1 Vom Briefkopf rechts Zeile 2 Vom Briefkopf rechts Zeile 3 Vom Briefkopf rechts Zeile 4 Absendername und -Adresse im Kuvertfenster 66663 Merzig Herrn Willi Mustermann c/o Wilhelmine Musterfrau 1-Strasse 7 12345 Musterstadt Telefon: 123 456-789 Mail: Blah@must.er Blubb
        
        ergibt es bei mir:
        Herrn;Willi Mustermann;c/o Wilhelmine Musterfrau;1-Strasse 7;12345 Musterstadt
        
        Kann es sein, dass die Zeile mit Telefon: doch nicht aso aussieht wie in meinem Beispiel? Leerzeichen am Anfang oder : woanders?
        die Drachin Gwen
        
        Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
        
        Thyrius
        
        2014-07-17 17:39
        
        User since
        2013-01-23
        42 Artikel
        BenutzerIn
        
        mal abgesehen davon, dass ich mit der Datei für den Serienbrief komplett fertig bin (EUCH ALLEN SEI DANK!!!!), habe ich jetzt etwa 30 Dateien durchgesehen.
        
        die ersten vier zeilen lauten genau (inhaltlich natürlich verfremdet):
        
        Telefon: 0176123456
        Fax: 06861123456
        E-Mail: er.schickt@mail.de
        Kundenübersicht Druckdatum 10.07
        Alter Mann ist kein D-Zug... :D

View all threads created 2014-07-15 21:55.