nNumfic = fOuvre(rechfic.SAIS_FIC,foLecture+foUnicode)
...
sligne = UnicodeVersAnsi(fLitLigne(nNumfic))
TANTQUE sligne<>EOT
....
sligne = UnicodeVersAnsi(fLitLigne(nNumfic))
fin
fferme(nNumfic)
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4503&post_id=18675