Re: fichier type unicode
Posté par rungo le 24/8/2006 16:54:51
Bonjour,
J'ai eu ma reponse grace en grande partie à mbsl !
Pour ceux que ca interresse voici le code :
Merci encore à mbsl
J'ai eu ma reponse grace en grande partie à mbsl !
Pour ceux que ca interresse voici le code :
nNumfic = fOuvre(rechfic.SAIS_FIC,foLecture)
SI fLit(nNumfic,2) = Caract(255)+Caract(254) ALORS
fFerme(nNumfic)
nNumfic=fOuvre(rechfic.SAIS_FIC,foLecture+foUnicode)
ficunicode=Vrai
SINON
fPositionne(nNumfic,0,fpDébut)
FIN
SI nNumfic<>-1 ALORS
SI ficunicode ALORS
sligne = UnicodeVersAnsi(fLitLigne(nNumfic))
SINON
sligne = fLitLigne(nNumfic)
FIN
...
FIN
Merci encore à mbsl
Cette contribution était de : http://old.wdforge.org/newbb/viewtopic.php?forum=17&topic_id=4502&post_id=18672