Fonction ParseForm
La fonction ParseForm permet de formater un document avec des données actives.
ParseForm( Source, Dest, Fonction) : Nombre
La fonction attend en paramètre :
- un nom de fichier source, ce fichier source est un fichier au format texte qui peut être lu par tout éditeur ( Notepad.exe, WordPad.exe, ..), et qui contient des mots-clés encadrés par des caractères " # ",
- un nom de fichier destination qui contiendra à l ’issue du formatage le fichier mis à jour,
- un nom de fonction de rappel qui aura en charge de faire les substitutions.
La fonction balaye le texte source et chaque fois qu ’elle découvre un mot-clé, elle appelle la fonction de rappel en lui passant en paramètre le mot-clé, la fonction de rappel retourne une valeur à substituer au mot-clé.
La fonction ParseForm() retourne le nombre de substitutions effectuées en cas de succès, -1 si elle ne peut ouvrir un des fichiers texte, et indéfini si la fonction n ’est pas définie.
Exemple :
Function MaFonction( Cle)
Begin
if Cle == " Date " then return " 10/3/99 " ;
else if Cle == " Identification " then return 108703 ;
else if Cle == " Defaut " then begin
if Defaut == 0 then return " Pas de défaut " ;
else if Defaut == 1 then return " Couple insuffisant " ;
else if Defaut == 2 then return " Température insuffisante " ;
else return " Défaut inconnu " ;
end else return Cle ;
end ...
On .. do
ParseForm( " Modele.rtf ", " Fiche.rtf ", MaFonction) ;
Execute(" C :\\Program Files\\Accessoires\\Wordpad Fiche.rtf -p ") ;