French Conversion des caractères

[JJM]

Bonjour,

Est-il possible, sous B4A, de sauvegarder ou de convertir)un texte étant en UTF-8 en Europe occidentale (Windows-1252) comme cela est possible sous Gambas2 (Linux) par exemple?

Merci par avance et mes salutations
JJM

 

[klaus]

Avec la librarie ByteConverter cela doit être possible avec :
StringToBytes(str As String, encoding As String)
Essaie avec
StringToBytes(String, ("ISO-8859-1"))
Je ne l'ai jamais essayé.

Meilleures salutations.

 

[JJM]

Merci, avec du retard, Klaus

En fait la solution est de faire une sauvegarde du texte grâce à :

Dim f1 As TextWriter
Dim ligne as String

ligne=TextEdit1.Text

f1.Initialize2(File.OpenOutput(File.DirRootExternal, "1.txt", False),"ISO-8859-1")
f1.WriteLine(ligne)
f1.Close

Bonne journée, mes salutations
JJM