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

• #9984 Fire/SOUL/CD félisten Zomb€€ #9978

  Új Válasz 2011-04-08 19:43:42 #9984

  Ú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

  Privát üzenet küldése

  

  Fire/SOUL/CD

  félisten

  válasz Zomb€€ #9978 üzenetére

  "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