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

//Chargement du fichier source
sFichierSource = fChargeTexte(sFichierSource)
//Si fichier vide alors on sort
SI Taille(sFichierSource) = 0 ALORS RETOUR

//On parcours tous les chaines se sFichierSource
//Qui se trouvent entre deux Carat(10)
POUR TOUTE CHAINE sUnElement DE sFichierSource SEPAREE PAR Caract(10)
  //Si dans la chaine sUnElement on treouve 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"
    stLigne1 += "R" + ExtraitChaîne( sUnElement, 1, Caract(28) ) + TAB
    //stLigne2 contients les valeurs séparés par des tabulations
    stLigne2 += ExtraitChaîne( sUnElement, 3, Caract(28) ) + TAB
  FIN	
FIN

//On Sauvegarde le résultat
fSauveTexte( sFichierResultat,  stLigne1 + RC + stLigne2 )

sRubrique est une chaine
//Mon fichier est à remplacer par le nom de votre fichier
sFichierHF est une chaine = MonFichier
//stLigne1 contient la liste des rubrique séparée par des TAB
//On va remplacer les TAB par des ','
sRubriques = Remplace(stLigne1, TAB, ",")
Si Pas HImporteTexte( sFichier, sFichierResultat, sRubriques, hImpIgnoreRubriqueVide+hImpNormal+hValDéfaut+hImpSansDélimiteur) ALORS
 Erreur(HErreur())
 RETOUR
FIN