PROCEDURE Convertlog()
sFichierSource est une chaîne
sUnElement est une chaîne
stLigne2 est une chaîne
//Info (lettredudisque)
SI Lettredudisque = "" ALORS 
	Info ("Veuillez réinserer le stick USB")
	RETOUR 
FIN
sFichierSource = fChargeTexte(Lettredudisque+":/"+PMsn+".log")
Info (sFichierSource)
gsFichierResultat = Lettredudisque+":/"+PMsn+".txt"
Info (gsFichierResultat)
SI Taille(sFichierSource) = 0 ALORS RETOUR
//On parcours tous les chaines de sFichierSource
//Qui se trouvent entre deux Caract(10)
POUR TOUTE CHAINE sUnElement DE sFichierSource SEPAREE PAR Caract(10)
	//Si dans la chaine sUnElement on trouve au moins
	// un Caract(28) alors on récupère les valeurs     
	SI ChaîneOccurrence( sUnElement, Caract( 28 ) ) > 0 ALORS
		//stLigne1 contient les noms des rubrique
		//Que l'on fait précéder d'un "R"
		gsLigne1 += "R" + ExtraitChaîne( sUnElement, 1, Caract(28) ) + Caract(44) //TAB
		//stLigne2 contients les valeurs séparés par des tabulations
		stLigne2 += ExtraitChaîne( sUnElement, 3, Caract(28) ) + TAB
	FIN	
FIN
stLigne1 += "Runiek_FM_ID"
stLigne2 += <Identifiant du client>
fSauveTexte( gsFichierResultat, stLigne2 ) //  gsLigne1 + RC +