Thread ca. 1200 PDF-Dateien auslesen und bestimmte Daten in eine CSV-Datei speichern (20 answers)
Opened by Thyrius at 2014-07-15 21:55

Thyrius
 2014-07-17 16:45
#176491 #176491
User since
2013-01-23
42 articles
BenutzerIn

user image
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

View full thread ca. 1200 PDF-Dateien auslesen und bestimmte Daten in eine CSV-Datei speichern