Kommunikointi Excelin kanssa

Yxsälli

Tarkoitus on kirjoittaa Lazaruksella avoinna olevaan Excel-taulukkoon. Suoraan ohjelmassa annetusta merkkijonosta sisältö näkyy oikein Excelissä, mutta skandit aiheuttavat virheen. Jos sama syöte on muuttujassa tai esim. StringGridissä, Exceliin tulee kiinalaisia merkkejä. Jos kierrätän sisällön Variant-muuttujan kautta, homma onnistuu, paitsi skandit näkyvät väärin. Mitä on tehtävä?
Olen käyttänyt pohjana seuraavaa esimerkkiä (Example - Open/Read Excel file):
http://wiki.freepascal.org/Office_Automation

5

55

    Vastaukset

    Anonyymi (Kirjaudu / Rekisteröidy)
    5000
    • merkkikoodausta

      Auttaisiko se että muunnat Lazaruksessa merkkijonot utf16 muotoon ennenkuin viet ne variant muuttujan kautta. Ilmeisesti rajapinnan merkkijonojen koodausmuoto ei täsmää. Eli excel kuvittelee merkistönkoodauksen joksikin muuksi

      • Yxsälli

        Sain toimimaan muunnoksella UTF8ToAnsi. Jostain syystä tuo variant-muuttuja tarvitaan välivaiheena.


      • pchar

        Pascalin perusmerkkijonotyyppi on erilainen kuin muissa kielissä. Muut kielet käyttävät pääsääntöisesti nollaan loppuvia merkkijonoja. Toki niitä voi käyttää Pascalissakin (vinkki PChar). Mutta noi pascalin perusmerkkijonotyypin käyttö on helpompaa.


    • excelli
      • merkkivalikoima

        Koska Excel on Microsoftin tuote, siinä käytettävä merkkikoodaus on vanhemmissa versioissa Windows-1252 ja uudemmissa mitä ilmeisimmin UTF-16LE.

        FreePascalissa ainakin linux -versiossa oletus merkkikoodaukselle on UTF-8, windows -versiosta ei ole varmaa tietoa.

        Mutta:

        teepä näin:

        procedure Dummy(var S:String);
        begin
        S := S ''; // Tyhjä merkkijono, mutta luultavasti estää kääntäjää optimoimasta koko riviä pois.
        end;

        var
        S : String;

        begin

        S := 'Sähkö';

        // tutki debuggerilla muuttujaa S.
        // JOS se on Windows-1252 , niin kukin kirjain kuluttaa yhden tavun.
        // JOS se on UTF-16, niin kukin kirjain kuluttaa kaksi tavua.
        // JOS se on UTF-8, niin ä j ö kuluttavat kumpikin kaksi tavua, kaikki muut kirjaimet yhden tavun.
        Dummy(S);
        end;

        Eli jollei se Excelisi ole ihan ikivanha, niin voit olettaa sen enkoodaavan UTF-16LE -muodossa.

        huom: en ole tietoinen, miten Excel enkoodaa XLS -tiedostoon sen, että kyseessä oleva XLS käyttää UTF16 -enkoodausta.

        Mutta jotenkin se on sinne koodattu, jos kyseistä koodausta EI OLE, silloin Excel olettaa koodauksen olevan Windows-1252 (Suomessa, USA:ssa, ja suurimmassa osassa Euroopan maita).

        Jätetään omaan arvoonsa esim. Windowsin venäjän- , thain- , japanin- ja kiinankieliset versiot, joissa se oletus on jotain muuta kuin Windows-1252.

        Microsoftin tapoihin ei ole kuulunut yhteensopivuuden rikkominen surutta, kuten Linux -maailmassa tehdään.

        Siksi MS:n tiedostoformaatissa oletus on tuo Windows-1252, ja jos se koodaus on jokin muu (kuten UTF16LE, josta MS:n dokumentaatio käyttää termiä "UNICODE"), se on tiedostossa tavalla tai toisella merkittynä, ilman merkintää voit olettaa Windows-1252.


    Ketjusta on poistettu 0 sääntöjenvastaista viestiä.

    Luetuimmat keskustelut

    1. Cynthia Woods

      😋😍😋😍😋😍😋😍😋 💋 ­­­N­­y­m­­­f­o­­m­­a­­a­­­n­i -> https://x18.fun/girl04372247#CynthiaWoods 🔞💋❤️💋❤️💋🔞�
      YIT-Yhtymä
      1
      14836
    2. Aimee Dvorak

      😍😋😍😋😍😋😍😋😍 💋 ­­N­­­y­­­m­­f­o­m­a­a­n­­­i -> https://x18.fun/girl02740429#AimeeDvorak 🔞❤️❤️❤️❤️❤️🔞💋💋
      0
      3049
    3. Molly Graham

      😍😋😍😋😍😋😍😋😍 😍 ­­N­­­y­­m­­­f­­­o­­m­­a­a­n­i -> https://x18.fun/girl02277975#MollyGraham 🔞❤️💋❤️💋❤️🔞❤️
      Puhelimet
      0
      3045
    4. Pamela Orr

      😋😋😋😋😋😋😋😋😋😋 🍒 ­­­N­y­­m­f­­o­­­m­a­­­a­­­n­­­i -> https://x18.fun/girl06055581#PamelaOrr 🔞❤️💋❤️💋❤️🔞
      Star Wars
      0
      3044
    5. Lakeisha Coleman

      🍑🍒🍑🍒🍑🍒🍑🍒🍑 💋 ­­N­y­­­m­f­­o­­m­a­­­a­n­­i -> https://x18.fun/girl08105348#LakeishaColeman 🔞💋❤️💋❤️💋🔞
      Synnytys
      0
      3040
    6. Rachelle Reynolds

      😋😍😋😍😋😍😋😍😋 🔞 ­N­­­y­­m­f­­­o­­m­­­a­­a­n­i -> https://x18.fun/girl03175674#RachelleReynolds 🔞❤️💋❤️💋❤️
      Etelä-Savo
      0
      3035
    7. Becky Steele

      🍑🍑🍑🍑🍑🍑🍑🍑🍑🍑🍑🍑 💋 ­­N­y­­­m­­f­­­o­­­m­­a­a­­­n­­i -> https://x18.fun/girl05250014#BeckySteele 🔞❤️💋❤️
      Arkkitehtuuri
      0
      3035
    8. Allison Queen

      🍒🍑🍒🍑🍒🍑🍒🍑🍒 ❤️ ­N­­­y­m­­­f­­­o­­m­a­a­­­n­­­i -> https://x18.fun/girl07854217#AllisonQueen 🔞❤️❤️❤️❤️❤️🔞
      Vedonlyönti
      0
      3034
    9. Jennifer Mitchell

      🍑🍒🍑🍒🍑🍒🍑🍒🍑 🔞 ­­N­y­­m­­­f­o­­m­­­a­a­n­­­i -> https://x18.fun/girl08490246#JenniferMitchell 🔞❤️💋❤️💋❤️
      Joensuu
      0
      3029
    10. Stephanie Love

      😋😋😋😋😋😋😋😋😋😋 ❤️ ­­N­y­­­m­f­­o­­m­­­a­a­­n­­­i -> https://x18.fun/girl01692207#StephanieLove 🔞❤️💋❤️💋❤️
      Lappi
      0
      3026
    Aihe