WDForge.org - Forums

Re: fichier type unicode

Sujet: Re: fichier type unicode
par rungo sur 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 :

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