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...