Regex ausdrücke und bestimmte Zeile machen Probleme (Allgemeines zu Perl)

[thread]19634[/thread]

Regex ausdrücke und bestimmte Zeile machen Probleme

Tags: perl5 regex Ähnliche Threads

Leser: 19

Articles: hide open all | hide show old branches

+13 replies

orlando2016

2015-04-29 19:49

User since
2015-04-27
5 Artikel
BenutzerIn
[default_avatar]

Hallo, wer kann mir einen guten Tipp geben? Ich habe etwas programmiert, das teilweise funktioniert.

Code (perl): (dl )

open (FILE, '<', 'Beispiel_Liste.txt') or die "$!";

 open(OUT,"> Sortiert.txt")
 or die "Fehler beim Öffnen von 'Sortiert.d': $!\n";

while($_ = <FILE>)
{ 
  if($_ =~ /Geburtuhrzeit [0-9].[0-9].*[0-9]*.*[0-9]*.*[0-9]*.*[0-9]*/)
  {
        my @zeile = split(/\s|\.|\//, $_);
               $year           = $zeile[1];
               $month          = $zeile[2];
               $day            = $zeile[3];
               $hour           = $zeile[4];
               $minute         = $zeile[5];
               $second         = $zeile[6];
        #       print "$_"; 
                if (($year == 1999) && ($month == 07) && ($day ==31)) 
                             {
                                $gefunden = $.;
                                print "Gefunden, die Zeilennummer ist $gefunden \n";# Kontrolle
                                 print $_;
                                 $startwert = $gefunden-1;   #Namen übernehmen!
                                
                               }
                            }
       if (($_ =~ /^$/)&&($gefunden))# Ab hier habe ich ein Problem, es soll zur nächste Blank-Line suchen und nicht den letzten Leerzeile!
    {
       $zeilennr=$.;
       print "empty line, $zeilennr \n";
       foreach ($startwert; $startwert < $zeilennr ; $startwert ++)
                                   {
                                        print "Der Text wird uebernehmen. \n";
                                        print OUT ($_); # Problem, die Zeile übernimmt er leider nicht in die Datei!
                                        print "$. $_\n"; # Kontrolle 
                                        }
  }
  
 # Ende der while schleife
}

Beispiel_Liste.txt:

Code: (dl )

*Verein DJK-Ort

Fabian
Geburtuhrzeit 2013.07.03.15.19.28
Gewicht...
HÖhe....
Seit...

Marion
Geburtuhrzeit 2013.07.03.15.20.26
Gewicht...
HÖhe....
Seit...

Hajo
Geburtuhrzeit 1999.07.31.21.29.53
Gewicht...
HÖhe....
Seit...
weitere Info..

Heino
Geburtuhrzeit 1999.07.31.21.30.36
Bekannt nur: Seit....


*ENDE

Code: (dl )

Ziel ist in der Datei Sortiert.txt:
Hajo
Geburtuhrzeit 1999.07.31.21.29.53
Gewicht...
HÖhe....
Seit...
weitere Info..

Heino
Geburtuhrzeit 1999.07.31.21.30.36
Bekannt nur: Seit....

modedit Editiert von GwenDragon: Code formatiert
Last edited: 2015-04-29 19:51:53 +0200 (CEST)

+3 replies
Raubtier

2015-04-29 22:19
User since
2012-05-04
1054 Artikel
BenutzerIn
Hallo Orlando,

an deinem Script gibt es viel zu kritisieren. Zunächst einmal fehlt auch die Beschreibung, was es denn eigentlich tun soll. Ich nehme an, es soll die Datensätze heraussuchen, bei denen das Geburtsdatum 1999-07-31 ist?

Dann hatte ich hier eine auf 2 (!) Codezeilen (+Boilerplate) verkürzte Version, die das erledigt (für das Beispiel habe ich die Datensätze gleich mittels __DATA__ mit in den Code geschrieben):
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

use 5.14.0; use warnings; my @datensaetze = split /\n\n/, do { local $/; <DATA> }; say "$_\n" for grep /^Geburtuhrzeit 1999\.07\.31\.\d\d\.\d\d\.\d\d$/m, @datensaetze; __DATA__ Fabian Geburtuhrzeit 2013.07.03.15.19.28 Gewicht... HÖhe.... Seit... Marion Geburtuhrzeit 2013.07.03.15.20.26 Gewicht... HÖhe.... Seit... Hajo Geburtuhrzeit 1999.07.31.21.29.53 Gewicht... HÖhe.... Seit... weitere Info.. Heino Geburtuhrzeit 1999.07.31.21.30.36 Bekannt nur: Seit....
Im folgenden gebe ich ein paar Verbesserungsvorschläge:
2015-04-29T17:49:19 orlando2016

Code (perl): (dl )

1 2 3 4

open (FILE, '<', 'Beispiel_Liste.txt') or die "$!"; open(OUT,"> Sortiert.txt") or die "Fehler beim Öffnen von 'Sortiert.d': $!\n";
0. Jedes Script sollte use strict; (ab use 5.12.0; enthalten) und use warnings; enthalten.
1. Bei open bitte immer die 3-Argumente-Form verwenden, wie du das oben gemacht hast. Das vermeidet einfach Fehler.
2. Außerdem solltest du keine globalen Dateihandles nehmen, sondern normale lexikalische Variablen. Also open my $fh, '<', 'datei' or die $!;
Es hilft auch oft, den Dateinamen in eine Variable zu schreiben, damit Fehlermeldung und tatsächlich geöffnete Datei auch übereinstimmen ;-) (bei dir: Sortiert.txt vs. Sortiert.d)
Quote

Code (perl): (dl )

while($_ = <FILE>)
Benenne die Variable doch! z.B. $line = <$fh>
Quote

Code (perl): (dl )

1 2

{ if($_ =~ /Geburtuhrzeit [0-9].[0-9].*[0-9]*.*[0-9]*.*[0-9]*.*[0-9]*/)
Ein Punkt matcht alle Zeichen. Daher \. verwenden, wenn du einen Punkt matchen willst.
.* matcht dir alles bis ans Zeilenende weg, die restlichen Gruppen mit * sind somit alle leer. Außerdem ist das ganze nicht verankert. Effektiv ist deine RE also identisch mit /Geburtuhrzeit [0-9].[0-9]/

Lies am besten mal perlretut.
Quote

Code (perl): (dl )

1 2 3 4 5 6 7 8 9

{ my @zeile = split(/\s|\.|\//, $_); $year = $zeile[1]; $month = $zeile[2]; $day = $zeile[3]; $hour = $zeile[4]; $minute = $zeile[5]; $second = $zeile[6]; # print "$_";
Das kannst du einfacher haben:
my (undef, $year, $month, $day) = split ...
Quote

Code (perl): (dl )

if (($year == 1999) && ($month == 07) && ($day ==31))
Achtung: Zahlen mit führender 0 sind Oktal-Zahlen!
Quote

Code (perl): (dl )

foreach ($startwert; $startwert < $zeilennr ; $startwert ++)
Naja, einmal würde ich nur for statt foreach schreiben, und dann ist mir nicht klar, das da eigentlich gemacht werden soll... Du schreibst jedes Mal dieselben Daten raus.

Ich hoffe, geholfen zu haben...
- orlando2016
  
  2015-05-03 19:49
  
  User since
  2015-04-27
  5 Artikel
  BenutzerIn
  
  Hallo Raubier,
  
  danke für den Tipp. Leider hat es noch nicht alles geklappt...
  
  Zitat von dir, die hat es nicht geklappt.
  use 5.14.0;
  use warnings;
  
  my @datensaetze = split /\n\n/, do { local $/; <DATA> };
  say "$_\n" for grep /^Geburtuhrzeit 1999\.07\.31\.\d\d\.\d\d\.\d\d$/m, @datensaetze;
  
  diese verkürzte Zeile, die hat super geklappt, bin noch ein Anfänger.:
  my (undef, $year, $month, $day) = split ...
  
  mit foreach ($startwert; $startwert < $zeilennr ; $startwert ++) habe ich gemeint:
  
  $startwert ist gemeint: "Hajo in der Zeilenummer 15, $startwert = $gefunden-1
  $gefunden habe ich gemeint: "Geburtuhrzeit 1999.07.31.21.29.53" Diese wurde mit dem Befehl:if (($year == 1999) && ($month == 07) && ($day ==31)) und dazu $gefunden = $. , um die Zeilennummer zu merken.
  $Zeilennr ist gemeint, es soll solange suchen bis die nächste leere Zeile erkennt. Hier wäre zum Beispiel die Zeilennumer: 21, bevor der Name Heino kommt.
  Leider geht er nicht in die Forschleife rein, irgendwie habe ich entweder einen Gedankenfehler gemacht oder eine andere Struktur muss angewendet werden.....
  
  Bitte gib mir doch einen weiteren Tipp oder ihr entdeckt einen Fehler.
  
  Danke.
- Linuxer
  
  2015-05-05 23:09
  User since
  2006-01-27
  3870 Artikel
  HausmeisterIn
  Nur als kleine Anmerkung am Rande:
  Wenn Du sowieso schon $/ veränderst, kannst Du es auch direkt nutzen, um das split() einzusparen.
  
  Code (perl): (dl )
  
  my @datensaetze = do { local $/ = "\n\n"; <DATA> };
  
  Der Rest bleibt wie gehabt.
  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!
+9 replies
hlubenow

2015-05-03 21:37
User since
2009-02-22
875 Artikel
BenutzerIn
Was Du willst, ist nicht so ganz einfach, und Du bist leider noch sehr weit davon entfernt. Das kann man z.B. so machen:
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 42 43 44 45 46 47 48

#!/usr/bin/perl use warnings; use strict; my $infile; my $outfile; my $i; my $u; open($infile, '<', 'Beispiel_Liste.txt') or die "$!"; my @a = <$infile>; close($infile); my @b = (); my %h; foreach $i (@a) { chomp($i); if ($i eq "") { if ($#b >= 1 && $b[1] =~ /Geburtuhrzeit/) { $h{$b[0]} = []; foreach $u (1 .. $#b) { push($h{$b[0]}, $b[$u]); } } @b = (); next; } push(@b, $i); } my @k = sort(keys(%h)); open($outfile, ">", "Sortiert.txt") or die "$!"; foreach $i (@k) { print "$i\n"; print $outfile "$i\n"; my @harr = @{$h{$i}}; foreach $u (@harr) { print "$u\n"; print $outfile "$u\n"; } print "\n"; print $outfile "\n"; } close($outfile);
Wenn die Eingabedatei sehr groß ist und Du sie also nicht insgesamt in ein Array lesen willst, müßte man zusätzlich noch mit dem Modul Tie::File arbeiten, aber das wäre vom Code her auch nicht viel anders (weil Tie::File ebenfalls als Ausgangspunkt ein Array liefert).
- +8 replies
- orlando2016
  
  2015-05-04 21:18
  User since
  2015-04-27
  5 Artikel
  BenutzerIn
  Hallo hlubenow,
  danke für den Hinweis.
  Diese Zeile funktioniert es nicht.
  push($h{$b[0]}, $b[$u]);
  Es zeigt eine Fehlermeldung an. Sie lautet: Type of arg 1 to push must be array (not hash element) at Beispiel.pl line 24, near "])"
  Woran konnte es gelegen haben? Ich habe zuerst versucht den Fehler zu beheben, leider erfolglos. Bitte gib mir noch einen Hinweis, wie ich den Fehler beheben kann. DAnke!
  Auch den kleinen Schrittchen prüfte ich, woran es liegen könnte, siehe Kommentar im Programm:
  
  Code (perl): (dl )
  
  1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19
  
  foreach $i (@a) { chomp($i); # chomp the trailing newline, It shows the linenumber if ($i eq "") # Search for empty line { print "Find empty line $. \n"; #Kontrolle funktioniert, ausser die Angaben der Zeilennummer if ($#b >= 1 && $b[1] =~ /Geburtuhrzeit [0-9].[0-9]/) { print "Find Geburtuhrzeit line $. \n"; # Kontrolle Funktioniert, ich möchte eine festes Datum suchen!, hier wäre zum Beispiel: Geburtuhrzeit 1999.07.31.21.29.53 $h{$b[0]} = []; foreach $u (1 .. $#b) # foreach (startwert..... $#array) { push ($h{$b[0]},($b[$u])); # push (ARRAY, newLIST), hat nicht geklappt! } } @b = (); next; } push(@b, $i); }
  
  Mit festem Datum habe ich eingebaut:
  
  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
  
  foreach $i (@a) { chomp($i); # chomp the trailing newline, It shows the linenumber if ($i =~ /Geburtuhrzeit [0-9].[0-9]/) { my (undef, $year, $month, $day) = split(/\s|\.|\//, $i); if (($year == 2010) && ($month == 07) && ($day ==31)) { chomp($i); print "$i\n"; print "$.\n"; print "Find Geburtuhrzeit with fixed date line $. \n"; #bis hierhin hat es funktioniert, dann geht er nicht in die Forschleife warum?? foreach $u (1 .. $#b) # foreach (startwert..... $#array) { if ($i eq "") { # Search for empty line next; print "Find empty line $. \n"; push ($h{$b[0]},($b[$u])); # push (ARRAY, newLIST)# Klappt nicht! } } }
  
  Danke, wenn ihr mir noch einmal helfen könnt.
  
  modedit Editiert von pq: code-tags hinzugefügt
  Last edited: 2015-05-05 13:30:56 +0200 (CEST)
  - +7 replies
  - hlubenow
    
    2015-05-05 00:33
    User since
    2009-02-22
    875 Artikel
    BenutzerIn
    
    2015-05-04T19:18:58 orlando2016
    Diese Zeile funktioniert es nicht.
    
    Code (perl): (dl )
    
    push($h{$b[0]}, $b[$u]);
    
    Es zeigt eine Fehlermeldung an. Sie lautet: Type of arg 1 to push must be array (not hash element) at Beispiel.pl line 24, near "])"
    Woran konnte es gelegen haben?
    
    Wahrscheinlich sieht die Datei "Beispiel_Liste.txt", die Du zu verarbeiten versuchst, anders aus als die Beispieldaten, die Du oben gepostet hast.
    Laß' mein Skript mal bitte mit Deinen Beispieldaten für "Beispiel_Liste.txt" laufen, also diesen:
    
    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 24 25 26 27
    
    *Verein DJK-Ort Fabian Geburtuhrzeit 2013.07.03.15.19.28 Gewicht... HÖhe.... Seit... Marion Geburtuhrzeit 2013.07.03.15.20.26 Gewicht... HÖhe.... Seit... Hajo Geburtuhrzeit 1999.07.31.21.29.53 Gewicht... HÖhe.... Seit... weitere Info.. Heino Geburtuhrzeit 1999.07.31.21.30.36 Bekannt nur: Seit.... *ENDE
    
    Selbstverständlich muß "Beispiel_Liste.txt" in demselben Verzeichnis sein wie das Perl-Skript.
    Also bei mir geht das dann (Perl 5.14).
    
    Eine andere, unwahrscheinlichere Möglichkeit wäre, daß Du eine sehr alte Perl-Version benutzt. Was sagt "perl -v"?
    Last edited: 2015-05-05 00:36:12 +0200 (CEST)
    - +6 replies
    - Raubtier
      
      2015-05-05 09:31
      
      User since
      2012-05-04
      1054 Artikel
      BenutzerIn
      
      Aus perldoc -f push:
      
      Quote
      Starting with Perl 5.14, push can take a scalar EXPR, which must hold a reference to an unblessed array. The argument will be dereferenced automatically. This aspect of push is considered highly experimental. The exact behaviour may change in a future version of Perl.
      
      Hlubenow benutzt also ein hochexperimentelles Feature. Wenn ich mich recht entsinne, wurde hier irgendwo gesagt, dass das auch wieder entfernt werden soll. Also besser nicht nutzen, sondern mit @{...} dereferenzieren.
      
      Es bleibt immer noch offen, was Orlando eigentlich erreichen will. Dein Programm tut etwas anderes (was eigentich genau? In meinem Beispiel hat es den letzten Datensatz gelöscht und die anderen sortiert.) als meines oben (das Datensätze mit bestimmtem Datum heraussucht).
      - +5 replies
      - hlubenow
        
        2015-05-05 18:20
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        2015-05-05T07:31:38 Raubtier
        Hlubenow benutzt also ein hochexperimentelles Feature.
        
        Ok, das war natürlich nicht Sinn der Sache. Ich wollte einfach dem Array in dem Hash ein Element hinzufügen. Python macht sowas anstandslos:
        
        Code (python): (dl )
        
        1 2 3 4
        
        #!/usr/bin/python h = {"Klaus" : ["Geburtsdatum", "Beitritt"]} h["Klaus"].append("Sonstiges") print h["Klaus"]
        
        Wenn Perl an der Stelle Schwächen hat, bzw. weniger leicht zu verstehen ist, ist das weniger mein Problem (weil ich meist in Python schreibe).
        Wenn man das Array dereferenziert, wie Du vorgeschlagen hast, wird das Element dann auch innerhalb des Hashes (also dem Array in dem Hash) zugefügt?
        
        2015-05-05T07:31:38 Raubtier
        Es bleibt immer noch offen, was Orlando eigentlich erreichen will.
        
        Ich verstehe Orlando so, daß er die Datensätze in seiner Datei sortieren will:
        
        Orlando
        # Ab hier habe ich ein Problem, es soll zur nächste Blank-Line suchen und nicht den letzten Leerzeile!
        ...
        Ziel ist in der Datei Sortiert.txt:
        Hajo
        Geburtuhrzeit 1999.07.31.21.29.53
        Gewicht...
        HÖhe....
        Seit...
        weitere Info..
        
        Heino
        Geburtuhrzeit 1999.07.31.21.30.36
        Bekannt nur: Seit....
        
        2015-05-05T07:31:38 Raubtier
        Dein Programm tut etwas anderes (was eigentich genau? In meinem Beispiel hat es den letzten Datensatz gelöscht und die anderen sortiert.)als meines oben (das Datensätze mit bestimmtem Datum heraussucht).
        
        Ok, daß mein Skript den letzten Datensatz abschneidet, ist natürlich nicht Sinn der Sache.
        Aber bevor ich das vielleicht noch korrigiere, möchte ich erstmal von Orlando wissen, was er eigentlich wirklich will und ob seine Datensätze wirklich immer so aussehen wie in den Beispieldaten.
        Last edited: 2015-05-05 18:22:25 +0200 (CEST)
        
        +4 replies
        
        orlando2016
        
        2015-05-05 20:39
        
        User since
        2015-04-27
        5 Artikel
        BenutzerIn
        
        To hlubenow:
        die Fehlermeldung push ... zeigt trotzdem an, obwohl ich mit dem Beispiel_Liste.txt durchgelaufen habe. Die Version ist 5.12.3. Eine Update zu machen, traue ich im Moment noch nicht zu. Ich möchte zunächst mal den Perl Programm vertraut machen.
        
        Die Datensätze sollen Abschnitt mit "Geburtuhrzeit 1999.07.31.21.29.53" und dazugehörige Informationen in die Sortiert.txt gebracht werden. Die Uhrzeit ist unwichtig, entscheidend ist das Datum und Geburtuhrzeit. Das heisst im Beispiel_Liste.txt sind zwei Abschnitte mit Geburtuhrzeit 1999.07.31.21.29.53 enthalten. Das hast du schon richtig verstanden.
        
        Ich habe in dem Programm Kommentare geschrieben, ob ich auch richtig verstanden habe, was die Zeile alles bedeutet.
        
        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 42
        
        my $i; # für die äussere Schleife my $u; # für die innere Schleife open($infile, '<', 'herausfinden.d') or die "$!"; my @a = <$infile>; close($infile); my @b = (); #Leere Array my %h; # hier habe ich noch nicht ganz verstanden, was das Prozent bedeutet. Im Internet versuchte die Erklärung heraus zu finden... my $count = 0; # habe ich eingefügt, da ich sehen möchte, ob die Zeile richtig erkannt hat, und für mich erleichtert das Suchen im Beispiel_Liste.txt. Im Wirklichkeit ist die Datei viel länger... foreach $i (@a) # start der äussere Schleife, um die Datei jede Zeile einzulesen { chomp($i); # chomp the trailing newline, It shows the readline $count = $count + 1; #print "$count \n"; #dient als Kontrolle if ($i eq "") # Search for empty line { print "Find empty line $count \n"; #Kontrolle funktioniert #next; foreach $i (@a) #ab hier habe ich versucht mit dem festen Datum zu arbeiten, es hat auch funktioniert { if ($i =~ /Geburtuhrzeit [0-9].[0-9]/) { my (undef, $year, $month, $day) = split(/\s|\.|\//, $i); if (($year == 2010) && ($month == 07) && ($day ==31)) { print "Find Geburtuhrzeit with fixed date line $count $i \n"; next; # Ab hier kam ich nicht mehr weiter, da müsste ich noch weiter herum werkerln, vielleicht habt ihr einen Tipp... # if ($#b >= 1 && $b[1] =~ /Geburtuhrzeit [0-9].[0-9]/) # { # print "Find Geburtuhrzeit line $. \n"; # Kontrolle Funktioniert, ich möchte eine festes DAtum suchen! # $h{$b[0]} = []; # foreach $u (1 .. $#b) # foreach (startwert..... $#array) # { # push ($h{$b[0]},($b[$u])); # push (ARRAY, newLIST) # hat nicht geklappt! # } } @b = (); next; } }
        
        Bitte helf mir noch einmal den Tipps, wie ich weiter komme....
        
        An Raubtier:
        Ich möchte die Zeile der Datensätze nicht löschen und den übrigen in eine andere Datei sortieren. Vielleicht hätte ich genauer beschreiben sollen, was ich genau meinte.
        
        modedit Editiert von GwenDragon: Quellcode in Perl-Tags gestellt
        Last edited: 2015-05-05 21:01:30 +0200 (CEST)
        
        GwenDragon
        
        2015-05-05 21:00
        
        User since
        2005-01-17
        14533 Artikel
        Admin1
        
        Bitte schreibe deinen Quellcode korrekt in Perl- oder Code-Tags. Lies bitte mal die Formatierungshilfe
        die Drachin, Gwendolyn
        
        Unterschiedliche Perl-Versionen auf Windows (fast wie perlbrew) • Meine Perl-Artikel
        
        +2 replies
        
        hlubenow
        
        2015-05-06 01:21
        
        User since
        2009-02-22
        875 Artikel
        BenutzerIn
        
        2015-05-05T18:39:46 orlando2016
        Die Datensätze sollen Abschnitt mit "Geburtuhrzeit 1999.07.31.21.29.53" und dazugehörige Informationen in die Sortiert.txt gebracht werden. Die Uhrzeit ist unwichtig, entscheidend ist das Datum und Geburtuhrzeit. Das heisst im Beispiel_Liste.txt sind zwei Abschnitte mit Geburtuhrzeit 1999.07.31.21.29.53 enthalten.
        
        Tut mir leid, das verstehe ich so noch nicht: Möchtest Du vielleicht die Datensätze anhand der Geburtuhrzeit sortieren?
        (Woher hast Du eigentlich die genaue Geburtsuhrzeit auf die Sekunde, ich kenne ja meine eigene nicht mal?)
        
        2015-05-05T18:39:46 orlando2016
        Ich habe in dem Programm Kommentare geschrieben, ob ich auch richtig verstanden habe, was die Zeile alles bedeutet.
        
        Ach, das hat wahrscheinlich noch keinen Sinn. Mein Skript sortiert im Moment einfach alphabetisch nach den Namen.
        
        orlando2016
        
        2015-05-21 01:52
        
        User since
        2015-04-27
        5 Artikel
        BenutzerIn
        
        Hallo hlubenow,
        ich habe mir die letzten Tagen genauer unter die Lupe genommen. In der Datei: Beispiel_Liste.txt sind Namen schon alles sortiert!. Ich hätte vorher erwähnen sollen.
        Es sollen alle Geburtjahren, die älter als 2012 sind, in einem Datei Name_new.txt abgespeichert und die Geburtstjahren unter 2012 sind, sollen in eine Datei: Name_old.txt abgespeichert. Darüber habe ich nachgedacht..., so macht das mehr Sinn, zu programmieren. Ich werde versuchen, demnächst selbst zu programmieren, falls ich nicht weiterkommen sollte, werde hier wieder posten.

View all threads created 2015-04-29 19:49.