Bonsoir,


Cela fait des mois que je bloque dans mon projet que je dois rendre vendredi.
En fait je dois réorganiser des passes de deux fichiers textes tout en les modifiant.
Plus j'essaie de méthodes et plus je rencontre des difficultés.
Je serais donc très reconnaissant si qqun pouvait m'aider à finir ce projet (m'aider à comprendre mes erreurs et me donner des idées quant à la méthode des résoudre).


Merci beaucoup

Plus d'explication serais utile voir des bout de code aussi notamment ou se trouve les erreurs.

Je vais expliquer la partie qui me bloque le plus:
En fait je dois trier deux fichiers textes, les séparer en blocs. Une fois ce tri fait je dois mettre un bloc du fichier 1 et un bloc du fichier 2 ... jusqu'à avoir trier tous les blocs.

Un bloc commence toujours par "(--- start of cut #i ---)"
avec i un entier qui peut varier jusqu'à 200 voir plus.
Il se finit par "(--- fin de passe #i ---)".
Entre ces deux chaines on trouve plusieurs lignes qui contiennent des données.

Entre deux blocs il y a des informations que l'on utilise pas pour le fichier final.

Mon projet s'articule autour de 9 fenetres dans lesquelles j'effectuent d'autres traitements qui fonctionnent.

Voici le code de la fentetre où je traite la séparation en bloc du premier fichier. En fait je lis le fichier, je prends toutes les info dont j'ai besoin et je les mets dans une chaine OP.


// traitement par blocs de ce fichier
nomfichier est une chaîne
nomfichier=NOML1
numfichier est un entier
ip est un entier
Textec est une chaîne
Textec ="(--- debut de passe #"
Textes est une chaîne
Textes ="(--- fin de passe #"
final est une chaîne
final=" ---)"
chain est une chaîne
indice est une chaîne
OP est une chaîne
ip= fOuvre(nomfichier,foLectureEcriture)
SI ip=0 ALORS
Erreur("erreur"+nomfichier, ErreurInfo())
SINON
BOUCLE
chain=fLitLigne(ip)
SI chain[[1 A 21]]=Textec ALORS
indice=recherche(chain) // utilisation de la procedure locale recherche pour identifier le i
FIN
SI chain=Textec+indice+final ALORS
SI chain=Textes+indice+final ALORS
SORTIR
FIN
OP=OP+RC+chain //OP sert à stocker le contenu de tous les blocs
FIN
FIN
fFerme(ip)
FIN


// creation du fichier temporel pour verifier le contenu de OP
rescreation est un entier
fichiervir est un chaîne
rescreation=fOuvre(fichiervir,foCréationSiInexistant)
SI rescreation<>-1 ALORS
res est un entier
res=fEcrit(rescreation,OP)// ecriture de la chaine OP dans le fichier appele fichiervir
SI res=-1 ALORS
Erreur("erreur décriture",ErreurInfo())
FIN
fFerme(rescreation)
FIN


PROCEDURE recherche(chain)
indice est une chaîne
pos est un entier
pos=Position(chain,"#")
pos=pos+1
indice=chain[[pos]]
RENVOYER indice




Ce code ne fonctionne pas. J'ai essayer plusieurs méthodes pour trier les fichiers mais en vain.
Que faire??

Déjà pour commencer je pense qu'il y a un soucis ici:



Comment tu peux tester chain=Textes+indice+final alors que tu sais déjà dans ce cas que chain=Textec+indice+final ?

Autre chose, pour récupérer l'indice, apparemment il ne peut aller que de 0 à 9 dans la fonction recherche:



Donc si tu as un "(--- start of cut #198 ---)" ça ne marchera pas vu que ta fonction ne renvoiera que le "1" avec le:

Merci


Comme je suis débutant, je fais encore beaucoup d'erreur.
Je vais modifier mon code.