sTexte      est chaîne sur 30

idFic       est entier

res                          est entier

SAISIE1..PoliceAlphabet = alphabetChinois

idFic = fOuvre("String_ch1_UTF8.txt",foUnicode+ foLecture)

sTexte = fLit(idFic, 30)

// Un fichier UTF8 commence par 2 caractéres d'entête

// Il faut ignorer ces deux caractéres

sTexte = sTexte[[3 A]]

// Win Dev accepte unique des valeurs ANSI

// C'est pourquoi une conversion est nécéssaire

SAISIE1 = UnicodeVersAnsi(AnsiVersUnicode(sTexte,alphabetUTF8))

fFerme(idFic)