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

• Fire/SOUL/CD félisten

  #9984

  #9978 Zomb€€

  2011-04-08 19:43:42

  Új Válasz

  Új hozzászólás

  Összes hozzászólása itt Válaszok az összes hozzászólására itt Válaszok erre a hozzászólásra

  

  Fire/SOUL/CD

  félisten

  #9978 Zomb€€

  #9978 Zomb€€

  Üdv!

  Újra kérdeznék:]
  Szóval, egy makró adott excelt .csv file-ként ment el, ami majd feltöltésre kerül valahova. Viszont a feltöltés feltétele megváltozott, és ASCII helyett UTF-8 kódolású filera lenne szükség. Ezt be lehet építeni a makróba, hogy ne kelljen külön még átkódolni a .csv-t?

  "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

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