Chilkat HOME .NET Core C# Android™ AutoIt C C# C++ Chilkat2-Python CkPython Classic ASP DataFlex Delphi ActiveX Delphi DLL Go Java Lianja Mono C# Node.js Objective-C PHP ActiveX PHP Extension Perl PowerBuilder PowerShell PureBasic Ruby SQL Server Swift 2 Swift 3,4,5... Tcl Unicode C Unicode C++ VB.NET VBScript Visual Basic 6.0 Visual FoxPro Xojo Plugin
(VBScript) Convert a File from utf-8 to ANSI (such as Windows-1252)
This example is to satisfy a particular user's support question:
I have a file that contains this text:
The utf-8 representation of the character É is the two bytes 0xC3 0x89. When Notepad is displaying the utf-8 file, it is intepreting the bytes as if they are ANSI (1 byte per char), and thus it is showing the ANSI char for 0xC3 (Ã) and the ANSI char for 0x89 (‰). After converting to ANSI, the É is represented by the single byte 0xC9.
Dim fso, outFile Set fso = CreateObject("Scripting.FileSystemObject") Set outFile = fso.CreateTextFile("output.txt", True) ' This example assumes the Chilkat API to have been previously unlocked. ' See Global Unlock Sample for sample code. set charset = CreateObject("Chilkat_9_5_0.Charset") charset.FromCharset = "utf-8" charset.ToCharset = "ANSI" ' We could alternatively be more specific and say "Windows-1252". ' The term "ANSI" means -- whatever character encoding is defined as the ANSI ' encoding for the computer. In Poland, for example, it would be the single-byte-per-char ' used to represnt Eastern European language chars, which is Windows-1250. charset.ToCharset = "Windows-1252" success = charset.ConvertFile("qa_data/txt/cafeUtf8.txt","qa_output/cafeAnsi.txt") If (success <> 1) Then outFile.WriteLine(charset.LastErrorText) WScript.Quit End If outFile.WriteLine("Success.") outFile.Close
© 2000-2023 Chilkat Software, Inc. All Rights Reserved.