Hirdetés

Új hozzászólás Aktív témák

  • Fire/SOUL/CD
    félisten

    "Ezt be lehet építeni a makróba, hogy ne kelljen külön még átkódolni a .csv-t?"

    1. Attól függ, milyen módszerrel hozza létre a makró a CSV fájlt

    2. Az UTF8 mezei szöveges fájl, annyiban különbözik egy sima textfájltól, hogy az első 3 byte-ja rendre a következő (hexadecimálisan): 0xEF, 0xBB, 0xBF

    3. Az ASCII->UTF8 valós konverziónak, akkor van csak értelme (a 2. pont túl), ha tényleg speciális karakterek kerülnek a CSV-be, pl: äöüß, amit a weben is meg akarnak jeleníteni. Valószínű, hogy ezzel a fájllal is ez van... Ha ez a szitu, akkor egy példaprogi

    Private Sub CommandButton1_Click()

    Dim My_Real_UTF8_Conversion As Object
    Set My_Real_UTF8_Conversion = CreateObject("ADODB.Stream")

    My_Real_UTF8_Conversion.Type = 2
    My_Real_UTF8_Conversion.Charset = "utf-8"
    My_Real_UTF8_Conversion.Open
    My_Real_UTF8_Conversion.WriteText "ASCII nem fog változni, de ezek igen: äöüß"
    My_Real_UTF8_Conversion.SaveToFile "d:\FSCD_UTF8.UTF8", 2

    Set My_Real_UTF8_Conversion = Nothing

    End Sub

    Oops.. A 2 pont így félreérthető, szóval helyesen így:

    2. Az angol UTF8 mezei szöveges fájl, annyiban különbözik egy sima angol textfájltól, hogy az első 3 byte-ja rendre a következő (hexadecimálisan): 0xEF, 0xBB, 0xBF

    Mivel egy sima angol(meg bármilyen nyelvű) text fájlban nem szokás speciális karaktereket használni, illetve (és ez a fontosabb), az angolban nincs ékezet... Egy magyar nyelven írt text fájlhoz biztosan valós konverzió kell, nem csak az első 3 byte variálása...

Új hozzászólás Aktív témák