nNumfic=fOuvre(rechfic.SAIS_FIC,foLecture+foUnicode)
...
sligne=UnicodeVersAnsi(fLitLigne(nNumfic))
TANTQUE sligne<>""
....
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=18678