Conversione di file con encoding UTF-8 in Windows-1252

Creato il: 27.07.2015
Questo script di esempio carica un file di testo da disco, e ne converte l'encoding da UTF-8 a Windows-1252

Option Explicit
 
Dim FileOrigine
Dim FileDestinazione
Dim Contenuto
 
FileOrigine = "C:\file-utf8.CSV"
FileDestinazione = "C:\file-windows1252.CSV"
 
Contenuto = Rdy.LoadStringFromFile(FileOrigine)
Contenuto = Rdy.ConvertStringCharset(Contenuto, "utf-8", "windows-1252")
 
Rdy.SaveStringToFile FileDestinazione, Contenuto

Login