Datei speichern mit vorgegebener Dateiendung (gelöst) (Graphische Oberflächen)

[thread]15370[/thread]

Datei speichern mit vorgegebener Dateiendung [gelöst]

Leser: 23

Articles: hide open all | hide show old branches

+12 replies
maryl

2010-08-12 09:20
User since
2010-08-11
11 Artikel
BenutzerIn
Hallo,

ich will eine eingelesene Datei in einer anderen Datei speichern. Nun soll mein Programm unterscheiden, ob schon ein .txt angefügt ist (erfolgt über openSaveFile) oder ob nur der neue Dateiname angegeben wurde (ohne openSaveFile) auszuführen.

Dateiname mit openSaveFile : probe.txt
Dateiname nur so in Eingabefeld eingegeben : probe.txt.txt

Weiß vielleicht jemand, wo mein Gedankenfehler liegt? Bin absoluter Perl Neuling.
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

sub writeFile { my($datAuswahl, $out_entry, $listbox) = @_; my $outfile = $out_entry->get(); ## Wenn der Dateiname nicht leer ist ### if ($outfile ne "") { ### letzten 4 Zeichen des Dateinamens holen my $endung= rindex($outfile,".txt",4); ### Wenn kein .txt gefunden wurde if ($endung eq -1) { ### Endung anfügen ### $outfile= $outfile . ".txt"; } } open(OUT, '>', $outfile) or (warn $! && return); print OUT "$_\n" for $listbox->get(0, 'end'); close(OUT); }
Danke schon mal,
Grüße maryl

mod-edit pq: perl-tags hinzugefügt
Last edited: 2010-08-12 09:38:53 +0200 (CEST)
- pq
  
  2010-08-12 09:39
  
  User since
  2003-08-04
  12208 Artikel
  Admin1
  
  benutze doch bitte das nächste mal code-tags oder perl-tags, wie es in unserer FAQ beschrieben ist.
  Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
  lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
- frankes
  
  2010-08-12 09:41
  User since
  2005-04-02
  140 Artikel
  BenutzerIn
  So aus dem Bauch heraus
  
  probiere es mal mit
  
  Code (perl): (dl )
  
  1 2 3 4 5
  
  ### Wenn kein .txt gefunden wurde if ($endung eq '-1') { ### Endung anfügen ### $outfile= $outfile . ".txt"; }
  
  PS.: Bitte nutze doch die "Perl"-Tags des Nachrichteneditors und rücke deinen Code ein. - Macht das Lesen und Verstehen wirklich einfacher.
  
  Edit: Danke pq. - Warst mal wieder schneller :-)
  
  Last edited: 2010-08-12 09:43:05 +0200 (CEST)
- +9 replies
- GwenDragon
  
  2010-08-12 09:47
  User since
  2005-01-17
  14787 Artikel
  Admin1
  Zeile 13:
  rindex liefert eine Zahl zurück, deswegen muss mit == verglichen werden; eq ist nur für Zeichenketten.
  
  Statt
  
  Code (perl): (dl )
  
  if ($endung eq -1)
  
  also
  
  Code (perl): (dl )
  
  if ($endung == -1)
  
  die Drachin Gwen
  
  Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
  - +8 replies
  - maryl
    
    2010-08-12 09:59
    
    User since
    2010-08-11
    11 Artikel
    BenutzerIn
    
    Sorry, das mit dem Thread hab ich zu spät gemerkt.
    
    rindex liefer -1 zurück. Man kann es auch mit eq abfragen. Ich habe anstatt dem rindex nun index genommen. Siehe da, es hat funktioniert.
    
    Grüße Maryl
    - GwenDragon
      
      2010-08-12 10:09
      
      User since
      2005-01-17
      14787 Artikel
      Admin1
      
      Zwischen können und sinnvoll-sein ist aber ein Unterschied.
      Wenn du mir jetzt erklären kannst (ich weiß es ja selbst), warum es auch mit eq klappt, kannst du ja so weiter arbeiten.
      die Drachin Gwen
      
      Meine Perl-Artikel · perldev – verschiedene Perl-Versionen unter Windows starten
    - +6 replies
    - topeg
      
      2010-08-12 11:37
      
      User since
      2006-07-10
      2611 Artikel
      BenutzerIn
      
      In deinem Fall ist rindex sinnvoller:
      denn:
      
      Code (perl): (dl )
      
      print rindex("Das ist.txt ein text.txt",".txt");
      
      => 20
      
      Code (perl): (dl )
      
      print index("Das ist.txt ein text.txt",".txt");
      
      => 7
      
      Und rindex funktioniert bei dir nicht, weil du eine unsinnige Startposition angeben hast, denn rindex sucht das Zeichen vor dieser Position! Von Zeichen 0 bis 3 taucht ".txt" halt nicht auf.
      - +5 replies
      - kristian
        
        2010-08-12 23:32
        
        User since
        2005-04-14
        684 Artikel
        BenutzerIn
        
        den sinn verstehe ich nicht...
        ev. doch ne regex?
        
        Code (perl): (dl )
        
        1 2 3
        
        if($outfile =~ /\.txt$/){ #hat schon .txt am ende }
        
        pq
        
        2010-08-12 23:55
        
        User since
        2003-08-04
        12208 Artikel
        Admin1
        
        ich wuerde hier auch eine regex verwenden. durch die verankerung am ende ist sie auch effizient genug und man erkennt als leser sofort, was geprueft werden soll.
        Always code as if the guy who ends up maintaining your code will be a violent psychopath who knows where you live. -- Damian Conway in "Perl Best Practices"
        lesen: Wie frage ich & perlintro brian's Leitfaden für jedes Perl-Problem
        
        +3 replies
        
        topeg
        
        2010-08-13 00:04
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Was ist daran nicht zu verstehen?
        
        "rindex" fängt von hinten an und arbeitet sich nach vorne durch. Es findet so das letzte auftreten eines Strings in einem Anderen. Gibt man eine Position an fängt er nicht am Ende das Strings an sondern an dieser Position und gibt da die letzte Position des Strings in einem anderen vor der gegebenen Position.
        
        So ist "rindex" schon korrekt, aber man sollte mit der Angabe der Startposition aufpassen.
        
        Im Gegensatz zu einem regulären Ausdruck ist "index" und "rindex" um einiges schneller, denn das Starten der RegexpEngine und das Parsen des regulären Ausdrucks dauert auch etwas.
        
        Will man völlig korrekt prüfen ob eine Endung schon gesetzt ist kann man es so machen:
        
        Code (perl): (dl )
        
        1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16
        
        my $endung='.txt'; my $fname="/das/ist/eine/datei.txt"; my $e_length=length($endung); # substring print "SUBSTR OK\n" if(substr($fname,-$e_length,$e_length) eq $endung); # rindex print "RINDEX OK\n" if(rindex($fname,$endung)==length($fname)-$e_length); # index print "INDEX OK\n" if(index($fname,$endung,length($fname)-$e_length)==length($fname)-$e_length); #regexp print "REGEXP OK\n" if($fname=~/\Q$endung\E$/);
        
        Natürlich ist es mit einem regulären Ausdruck am kürzesten und am lesbarsten (sofern man RegExps versteht).
        
        +2 replies
        
        kristian
        
        2010-08-13 00:12
        
        User since
        2005-04-14
        684 Artikel
        BenutzerIn
        
        dein posting, auf das ich antwortete zeigte, dass index und rindex für die aufgabe nicht tauglich sind.
        daher fehlte mir das verständnis für den sinn, (r)index zu nutzen.
        entschuldige bitte wenn es anders aussah, das war nicht gewollt.
        
        topeg
        
        2010-08-13 01:51
        
        User since
        2006-07-10
        2611 Artikel
        BenutzerIn
        
        Es taugt schon, wie mein Post zeigt, nur ist es nicht besonders hübsch. :-)

View all threads created 2010-08-12 09:20.