Discussion :

[fabien25]

Bonjour à tous,

Je fabrique un petit générateur d'exercices GPL sous Delphi qui exporte le résultat sous forme de pages web. J'ai une page contenant le code source avec diverses zones à remplacer (codes hexadécimaux de couleurs, array de données à récupérer d'un stringgrid etc.). J'aimerais donc marquer dans mon fichier source chacune de ces zones par une sorte de balise style [codecouleurpage], [données exercices]... Ma question est donc de savoir comment faire pour parcourir ce fichier, y remplacer ces occurrences (certaines à longueur fixe, d'autres non) pour générer directement la page web à partir du fichier d'origine...
Merci d'avance à toute personne qui pourrait m'aider. Je débute...

[Caine]

Bonjour,
La FAQ Delphi traite abondamment de la gestion des fichiers, tu y trouveras les notions essentielles à connaitre avant de te lancer dans le code.

Bonne lecture.

[fabien25]

J'ai consulté la faq mais ma question (peut-être mal formulée) porte plus sur la meilleure façon de faire ce que je veux faire. J'ai donc mon fichier source, quelques composants Tedit et un Stringgrid. Comment gérer le fichier, je veux dire, dois-je balancer le contenu du fichier dans un mémo masqué et l'éditer là-dedans ou puis-je l'éditer directement à la volée? J'aimerais juste que quelqu'un me dise quelle est la (meilleure) façon de procéder pour éviter de me lancer en vain dans un truc qui ne marchera pas...

[Caine]

D'accord, j'avais mal compris ton besoin

Un algorihtme possible est :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
 
Ouvrir le fichier à parser.
 
Faire
   Lire ligne à ligne le fichier.
   Mémoriser chaque ligne dans un TSringList, ou équivalent.
Tant que la fin de fichier n'est pas atteinte.
 
Fermer le fichier.

Ensuite, assigner le TStringList à la propriété Lines d'un TEdit par exemple. Ceci pour l'affichage.

A partir du TStringList, tu parcours chaque ligne à la recherche de chaque balise. Pour ça tu as deux méthodes, IndexOf ou Pos suivant le besoin.

Traduire chaque chaine vers des balises HTML dans un autre TStringList.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
 
Ouvrir le fichier destination.
Faire
   Sauver la ligne courante dans le fichier.
tant qu'il y a une ligne dans le TStringListHTML.
 
Fermer le fichier destination.

Je résume : deux fichiers, en entrée et en sortie. Deux TStringList, le premier tampon avec le contenu du fichier entrée. Le second, lignes résultantes après remplacemment des tags par de l'HTML.

J'espère que ça aidera

[fabien25]

Parfait, c'était la procédure qui me laissait un peu dans le doute... Je vais voir tout cela...
Merci encore,
Bonne journée...