Description
Lecture d’un fichier texte dont chaque ligne est délimitée par un retour de chariot (<RC>).
Dans la ligne les champs sont séparés par une tabulation (<TAB>) ou un point-virgule (<;>).
Chaque champ peut contenir lui-même des <RC>, <TAB> ou <;>. ces champs sont alors délimités par des guillemets
PROCEDURE TraiteMultiligne(sTexte est une chaîne) sExtrait est une chaîne sTexteTraité est une chaîne nRang est un entier = 1 // remplace les guillemets doublés par la balise <GLM> sTexte=Remplace(sTexte,Caract(34)+Caract(34),"<GLM>") BOUCLE sExtrait=ExtraitChaîne(sTexte,nRang,Caract(34)) SI sExtrait=EOT ALORS SORTIR SI EstPair(nRang) ALORS // remplace les retours de chariot par la balise <RC> sExtrait=Remplace(sExtrait,RC,"<RC>") // remplace les tabulations par la balise <TAB> sExtrait=Remplace(sExtrait,TAB,"<TAB>") FIN sTexteTraité+=sExtrait nRang++ FIN RENVOYER sTexteTraité
Source : Erick Bavut