Excel Datei einlesen und schreiben mit Umlauten (solved) (Allgemeines zu Perl)

[thread]18693[/thread]

Excel Datei einlesen und schreiben mit Umlauten [solved]

Tags: perl5 Excel Umlaute Spreadsheet Similar Threads

Readers: 23

Articles: hide open all | hide show old branches

+9 replies
guest Jürgen

2013-10-21 17:52

Hallo Perlgemeinde,

leider muss ich euch wieder einmal um Hilfe bitten.
Und bevor es wieder "Haue" gibt: ja ich habe den Thread "Umlaute" auch gelesen und habe auch die Seite durchgelesen, die genannt wurde als Lektüre.
Trotzdem komm ich nicht weiter oder habe eine "Hinrblockade"... :(

Zum Thema:
Ich lese eine Excel-Datei mit "Spreadsheet::XLSX" ein mein perlscript ein.
Speichere die Werte in einem Array (wie ich es eben brauche)
Danach schreibe ich die Werte in eine neue Excel-Tabelle.
Mein Problem:
ich lese "für" ein - und es wird "fÃ¼r" in der neuen Excel-Dateii ausgegeben :(

Spreadsheet:XLSX basiert ja mM nach auf Spreadsheet::ParseExcel.
Hier heisst es unter "Spreadsheet::ParseExcel::Cell":
"The encoding() method returns the character encoding of the cell.

my $encoding = $cell->encoding();

This method is only of interest to developers. In general Spreadsheet::ParseExcel will return all character strings in UTF-8 regardless of the encoding used by Excel.

The encoding() method returns one of the following values:

0: Unknown format. This shouldn't happen. In the default case the format should be 1.
1: 8bit ASCII or single byte UTF-16. This indicates that the characters are encoded in a single byte. In Excel 95 and earlier This usually meant ASCII or an international variant. In Excel 97 it refers to a compressed UTF-16 character string where all of the high order bytes are 0 and are omitted to save space.
2: UTF-16BE.
3: Native encoding. In Excel 95 and earlier this encoding was used to represent multi-byte character encodings such as SJIS.
"
bei mir wird für den Zellwert die Ziffer "1" zurückgegeben, also für Excel 2013 (xlsx) UTF-16
Mein perlscript erstelle ich mit "geany" und die Datei wird in "UTF-8" abgespeichert
Perl arbeitet intern mit UTF-8
Das Excel in das ich schreibe, interpretiert das, was es bekommt wohl auch als UTF-8

Soweit bin ich gekommen - aber den nächsten Gedankenschritt schaff ich nicht - was muss ich jetzt mit meinem Script machen, damit ich endlich Umlaute "durchreichen" kann :(

Könnt ihr mir da bitte weiterhelfen?

Grüße
Jürgen
Last edited: 2013-10-21 17:56:59 +0200 (CEST)
- +8 replies
- Raubtier
  
  2013-10-21 20:23
  
  User since
  2012-05-04
  1081 articles
  BenutzerIn
  
  Am einfachsten, wenn du uns ein Minimalbeispiel gibst.
  
  Also etwa: gegeben sei eine Excel-Datei foo.xlsx mit dem Wert "für" in A1. Mit folgendem minimalen Script bekomme ich dann fÃ¼r in einer neuen Datei heraus.
  - +7 replies
  - guest Jürgen
    
    2013-10-22 10:16
    Hallo Raubtier,
    
    anbei der gewünschte Code:
    
    Code (perl): (dl )
    
    1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17
    
    use strict; use warnings; use Spreadsheet::XLSX; use Excel::Writer::XLSX; my $workbook = Spreadsheet::XLSX->new("mappe1.xlsx"); my $worksheet = $workbook->worksheet("Tabelle1"); my $cell = $worksheet->get_cell( 2, 1 ); print $cell->value()."\n"; print $cell->encoding()."\n"; my $fuer = $cell->value(); my $workbook_write = Excel::Writer::XLSX->new( "mappe2.xlsx" ); my $new_sheet = $workbook_write->add_worksheet( "Tabelle1" ); $new_sheet->write_string( 1, 1, $fuer);
    
    Grüße
    Jürgen
    Last edited: 2013-10-22 11:02:21 +0200 (CEST)
    - +6 replies
    - pq
      
      2013-10-22 12:37
      
      User since
      2003-08-04
      12209 articles
      Admin1
      
      mach mal folgendes:
      
      Code (perl): (dl )
      
      1 2
      
      use Encode; my $fuer = decode_utf8 $cell->value;
      
      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
      - guest Jürgen
        
        2013-10-22 13:30
        
        2013-10-22T10:37:07 pq
        mach mal folgendes:
        
        Code (perl): (dl )
        
        1 2
        
        use Encode; my $fuer = decode_utf8 $cell->value;
        
        Ja is es zu fassen - wie geil is das denn!
        Da mach ich ewig rum - und nun nach nicht mal einem Tag hab ich die Antwort...
        Und so "einfach" - also ich mein, vom "Tipp-Aufwand" gesehen
        Vielen Dank!!!
        
        So, und nun wennihr Zeit habt, nochmal kurz, ob ich das richtig "verstehe":
        Ich "sage" Perl, dass der Wert, der jetzt "reinkommt", als "UTF-8" zu "interpretieren" ist? Anders gesagt:
        "Den ausgelesene "Wert" bitte als UTF-8 ansehen"
        Richtig?
        Wenn das korrekt ist - hat das quasi nix damit zu tun, weil mein perlskript im Editor als "utf-8"-Perldatei gespeichert wird!?
        Richtig?
        Und weil:
        "1: 8bit ASCII or single byte UTF-16. This indicates that the characters are encoded in a single byte"
        Deshalb verwende ich auch nicht UTF-16, da 1 byte UTF-16 == 1 byte UTF-8?
        Richtig?
        
        Also:
        1.) Gucken in welchem Format mein Input-File (welches auch immer, gilt auch für "txt" z.B.) abgespeichert ist
        2.) Einlesen ala: my $var = decode ("speicher-format-des-files", IO);
        Wenn Output-File selbes Format wie Input-File hat, dann muss ich nix mehr machen, ansonsten vor dem "Schreiben" in das Zielformat "umwandeln":
        encode("Zielformat", $var);
        
        Also wenn meine Ausführungen korrekt sind - dann hab ich's jetzt denk ich gerafft...
        
        Noch eins:
        für was benutze ich denn dann im Script das:
        use utf8;
        ?
        
        Mein Problem ist gelöst - vielleicht mag ja trotzdem noch jemand kurz antworten.
        
        Wie auch immer:
        Vielen Dank für Eure Hilfe!
        
        Grüße
        Jürgen
        Last edited: 2013-10-22 13:36:59 +0200 (CEST)
        
        +2 replies
        
        Linuxer
        
        2013-10-22 13:39
        
        User since
        2006-01-27
        3891 articles
        HausmeisterIn
        
        Quote
        Noch eins:
        für was benutze ich denn dann im Script das:
        use utf8;
        ?
        
        Das ist in der perldoc utf8 beschrieben:
        
        perldoc utf8
        DESCRIPTION
        
        The use utf8 pragma tells the Perl parser to allow UTF-8 in the program text in the current lexical scope (allow UTF-EBCDIC on EBCDIC based platforms). The no utf8 pragma tells Perl to switch back to treating the source text as literal bytes in the current lexical scope.
        
        Do not use this pragma for anything else than telling Perl that your script is written in UTF-8. The utility functions described below are directly usable without use utf8; .
        
        Also, use utf8; verwendet man NUR dann, wenn der Perl-Programmcode utf8-kodiert ist.
        Last edited: 2013-10-22 13:47:22 +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!
        
        guest Jürgen
        
        2013-10-24 09:18
        
        Nochmals danke für Eure Hilfe.
        Weiß nicht genau wie das hier funktioniert - aber von meiner Seite aus kann der Thread "zu" und nen grünen Hacken bekommen.
        
        Grüße
        Jürgen
        Last edited: 2013-10-24 09:28:59 +0200 (CEST)
      - +2 replies
      - guest Bernd Frick
        
        2020-11-23 09:32
        
        Vielen herzlichen Dank.
        Das ist immer noch sehr hilfreich.
        Last edited: 2020-11-23 11:41:31 +0100 (CET)
        
        guest papaJosef
        
        2021-06-15 12:59
        
        Jetz geht er , Oh Man , vielen Dank!
        Last edited: 2021-06-15 14:03:14 +0200 (CEST)

View all threads created 2013-10-21 17:52.