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

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

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

Login