How to create a random Unicode or UTF-8 file in vb.net?

Question

I have a problem with the encoding of my files. These are direct access files. The TextBoxes that feed these files are able to display all characters, in Polish, Ukrainian, etc. and of course in my language, in French, with all the accented characters.

On the other hand, thinking that they have to be encoded in Unicode, while they are created in utf8, well I think (I'm not sure at all), after saving the data, the exotic accents disappear ! Only the French accents remain!

Example : Ró?a Czacka. Which gives me Róza Czacka once recorded!

The code I use to save my files:

Nbr = FreeFile()

FileOpen(Nbr, OuvrirFichier, OpenMode.Random, OpenAccess.ReadWrite, _
         OpenShare.LockWrite, Len(bibliotheque))

enreg = FileLen(OuvrirFichier)  Len(bibliotheque) 

With bibliotheque
    .Title = TextBox2.Text
    .Name = TextBox1.Text
    .Charge = TextBox4.Text
    .Institute = TextBox15.Text
    .Celebration = TextBox5.Text
    .Birth = TextBox7.Text
    .Death = TextBox9.Text
    .Otherparties = TextBox13.Text
    .Othernames = TextBox18.Text
    .Venerable = TextBox23.Text
    .Beatified = TextBox24.Text
    .Canonized = TextBox25.Text
    .Heading = TextBox26.Text
    .Patron = TextBox28.Text
    .Link = TextBox29.Text
    .Biography = TextBox31.Text
    .Image = TextBox33.Text
End With

FilePut(Nbr, bibliotheque, enreg)
FileClose(Nbr)

Answer 1

First of all, the functions you're calling are so dated that many people will not recognize them. In fact, I had to look up a few of them myself in order to understand what you were doing. It is recommended to use the methods in the Microsoft.VisualBasic.FileIO.FileSystem class. If you need more flexibility, you can look at the classes in the System.IO.

In your case, you appear to be trying to save a binary object into a file and for that you can use the BinaryFormatter. Here is a sample code slightly modified from what is provided on the Microsoft Docs page for the BinaryFormatter class.

Imports System.IO
Imports System.Runtime.Serialization.Formatters.Binary

Module Module1

    Sub Main()
        Dim bibliotheque = New With {
            .Title = "Title",
            .Name = "NameOf",
            .Charge = "Charge" ' add other initialization code
        }

        Using fs = New FileStream("C:folderfile.dat", FileMode.Create)
            Dim bf = New BinaryFormatter()
            bf.Serialize(fs, bibliotheque)
        End Using
    End Sub

End Module

You can also look at the same page for the BinaryFormatter for a sample on how to deserialize (or open) the saved object.