Question

I have some vb6 code that is stubbornly writing to Windows-1252.

  Open fileName For Binary Access Write As #fileNo
  Put #fileNo, , contents
  Close #fileNo

I managed to make it write to UTF-16 (LE) by doing this;

contents = ChrW$(&HFEFF&) & contents

Is there any way I could easily make it write to ISO-8859-1? Examples/suggestions would be greatly appreciated here.

Answer 1

If your files are not huge then ADO can come to the rescue for quick and dirty handling of odd encodings.

Example:

Option Explicit

Private Sub Main()
    Const contents As String = "Hello World.  (4 × 6) ÷ 8 = 3 €€€ ƒƒƒ"
    Dim Stm As ADODB.Stream

    Set Stm = New ADODB.Stream
    With Stm
        .Open
        .Type = adTypeText
        .Charset = "iso-8859-1"
        .LineSeparator = adLF
        .WriteText contents, adWriteLine
        .SaveToFile "ISO-8859-1.txt", adSaveCreateOverWrite
        .Close

        .Open
        .Type = adTypeText
        .Charset = "windows-1252"
        .LineSeparator = adCRLF
        .WriteText contents, adWriteLine
        .SaveToFile "Windows-1252.txt", adSaveCreateOverWrite
        .Close
    End With
    MsgBox "Done"
End Sub