StackOverflow2013

Note that there are some explanatory texts on larger screens.

plurals

PO
text
Body
copied!<p>If your files aren't truly enormous (e.g. even merely 40MB can be painfully slow) you can do this using the following code in VB6, VBA, or VBScript:</p> <pre><code>Option Explicit Private Const adReadAll = -1 Private Const adSaveCreateOverWrite = 2 Private Const adTypeBinary = 1 Private Const adTypeText = 2 Private Const adWriteChar = 0 Private Sub UTF8toANSI(ByVal UTF8FName, ByVal ANSIFName) Dim strText With CreateObject("ADODB.Stream") .Open .Type = adTypeBinary .LoadFromFile UTF8FName .Type = adTypeText .Charset = "utf-8" strText = .ReadText(adReadAll) .Position = 0 .SetEOS .Charset = "_autodetect" 'Use current ANSI codepage. .WriteText strText, adWriteChar .SaveToFile ANSIFName, adSaveCreateOverWrite .Close End With End Sub UTF8toANSI "UTF8-wBOM.txt", "ANSI1.txt" UTF8toANSI "UTF8-noBOM.txt", "ANSI2.txt" MsgBox "Complete!", vbOKOnly, WScript.ScriptName </code></pre> <p>Note that it will handle UTF-8 input files either with or without a BOM.</p> <p>Using strong typing and early binding will improve performance a hair in VB6, and you won't need to declare those Const values. This isn't an option in script though.</p> <p>For VB6 programs that need to process very large files you might be better off using VB6 native I/O against Byte arrays and use an API call to convert the data in chunks. This adds the extra messiness of finding the character boundaries though (UTF-8 uses a variable number of bytes per character). You'd need to scan each data block you read to find a safe ending point for an API translation.</p> <p>I'd look at MultiByteToWideChar() and WideCharToMultiByte() to get started.</p> <p>Note that UTF-8 often "arrives" with LF line delimiters instead of CRLF.</p>

Querying!

Guidance

An individual column

Larger individual text columns get their own page to allow for proper reading.

SQuiL has stopped working due to an internal error.

If you are curious you may find further information in the browser console, which is accessible through the devtools (F12).

Reload