Text file issue

[IoSonoPiero]

[solved] Text file issue

Hello,
I'm in trouble with writing text files.

I have to get a file similar to "i_want_this.txt", but with the FileWrite function i get "i_have_this.txt"

What type of pagecode or other I have to use to get the "i_want_this.txt" file?

There is something to set? There is some library to use?

Someone can help me, please?

Thanks,
Piero

 

[maXim]

Hi pixelfabrica,

see the FilePut function in Main Help or WriteString in BinaryFile.

Best Regards,

Massimo

 

[IoSonoPiero]

Hello Massimo,
I've used WriteString passing in constructor both UTF-8 and UTF-16 integer buth results are very strange, and doesn't give me the requested file.

I think (but this is my opinion) that the file "i_want_this.txt" is in Unicode (UTF-16), while "i_have_this.txt" is UTF-8.

Someone can confirm or negate my think?

 

[IoSonoPiero]

I'll try again with Writestring.
I'll build a simple app that loop with all the code page available for the constructor to see if there is a way to accomplish this.

 

[Erel]

Do you want to encode it in UTF16?
If yes then you should use BinaryFile.New2 with code page 1200.
Then you should convert the string to bytes with BinaryFile.StringToBytes. The last step is to write the bytes with WriteBytes.
You should not use BinaryFile.WriteString as it adds the string length as a prefix.

Edit: Once again, I've wrote this post before reading your previous two...

 

[IoSonoPiero]

I've tried and this is the result (attached file).

What do you think about that?

Is the carriage return (or LF) missing?
If I do a binary compare, I see differences at the beginning of file with the "i_want_this.txt" file.

 

[Erel]

I see two differences:
- utf16.txt is missing the UTF16 BOM. You should write the following two bytes at the beginning of the file: 255, 254.
- utf16.txt is missing the last chr(10) character. I think that it is LF but it doesn't really matter.

 

[IoSonoPiero]

I see two differences:
- utf16.txt is missing the UTF16 BOM. You should write the following two bytes at the beginning of the file: 255, 254.
- utf16.txt is missing the last chr(10) character. I think that it is LF but it doesn't really matter.

Ok, good.
So how can I add the two bytes at the beginning and the chr(10) at the end of the file?

With StringToBytes?

 

[Erel]

Write the bytes at the beginning with: BinaryFile.WriteByte(255) and BinaryFile.WriteByte(254).
You can add the chr(10) into the string: str = "some string" & chr(10).
You can also write it with WriteByte(10) followed by WriteByte(0).

 

[IoSonoPiero]

I've used this function

FileOpen(c1,"temp.txt",cRandom)
    bf.New2(c1, 1200)
    
    ' Write BOM
    bf.WriteByte(255)
    bf.WriteByte(254)
    
    ' Scansiona ogni riga della tabella
    For i = 0 To (tbEditor.RowCount-1)
        ' Recupera la word
        strStringa = tbEditor.Cell("Word", i) & " "
        strStringa = strStringa & tbEditor.Cell("Priority", i)
        
        ' Create buffer
        buffer() = bf.StringToBytes(strStringa)
        bf.WriteByte(10)
        bf.WriteByte(0)
        
        ' Write buffer
        bf.WriteBytes(buffer())
    Next i


    FileClose(c1)

but the result file is different from the "i_want_you.txt"
Now they have the same size but a binary compare shows their differencies...

 

[Erel]

You should first write the buffer and only then write the bytes 10 and 0...

 

[IoSonoPiero]

:signOops:

Yes, sure, sorry for this!

I've misplaced the instruction!

Now, it works!

Thank you very much, Erel!