PROCEDURE Transforme( sFichierSource, sFichierResultat)
sFichierSource est une chaîne
sUnElement est une chaîne
stLigne1 est une chaîne
stLigne2 est une chaîne

sFichierSource = fChargeTexte("\\mnkdevcdr\d$\Temp\1771711\1771711.log")
SI Taille(sFichierSource) = 0 ALORS RETOUR

POUR TOUTE CHAINE sUnElement DE sFichierSource SEPAREE PAR Caract(10)
	 SI ChaîneOccurrence( sUnElement, Caract( 28 ) ) > 0 ALORS
	 	stLigne1 += ExtraitChaîne( sUnElement, 1, Caract(28) ) + TAB
	 	stLigne2 += ExtraitChaîne( sUnElement, 3, Caract(28) ) + TAB
	 FIN	
FIN
fSauveTexte( sFichierResultat,  stLigne1 + RC + stLigne2 )