VB6: write a flat file with UTF8 strings

Question

I am modifying a program that create a positional flat EDI file from a cvs. The input file use UTF-8 as the output must use.

I am facing a problem that writing an UTF-8 string with this code:

Public Function WriteFileBinArray(sString() As Byte, iChannel As Integer) As Boolean

    Const kbytCarriageReturn        As Byte = 13
    Const kbytNewLine               As Byte = 10

    WriteFileBinArray= False
    NumberError = 0
    sErrore = ""

    Put #iChannel, , sString()
    Put #iChannel, , kbytCarriageReturn
    Put #iChannel, , kbytNewLine

    WriteFileBinArray= True

End Function

The output string, will not have the expected lenght. So the positional flat file will be wrong. As you know better than me, every UTF-8 char is composed by two bytes. I suppose that the problem fall here.

How can i solve my porblem?

Possible duplicate of http://stackoverflow.com/questions/10450156/write-text-file-in-appending-utf-8-encoded-in-vb6 — jac, Jun 04 '14 at 23:51
Use ADODB - yes, for text, not for database. See my VBA answers [here](http://stackoverflow.com/a/17699668/2369384) and [here](http://stackoverflow.com/a/18982841/2369384). — Roman Plischke, Jun 05 '14 at 11:33

score 0 · Answer 1 · answered Jun 11 '14 at 12:30

You state the problem is The output string, will not have the expected lenght

I would have thought it was a matter of padding the output string to be the expected length. By copying the data into another array of the required length and padding it with spaces or null characters so it matches the expected length.

VB6: write a flat file with UTF8 strings

1 Answers1