Parcourir une table mémoire afin de rechercher un mot ou groupe de mot et les remplacer par d'autres

**olivierpatrick** · 03/04/2021, 23h25

Bonsoir à tous ,

svp, j'ai besoin d'aide. j'ai une table mémoire qui est rempli par des fichiers texte d'extension .EDI et je voudrais qu'une fois les fichiers chargés , que mon code parcours table , retrouve des mots clés et les remplacer par d'autres mots clés .
ci dessous mon bon de code:

Code :

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

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
//Parcours du repertoire et compte les fichiers
UnFichier, ResListeFichier ,sFichierEDI ,sInfo1,sInfo2 , sMotCherche sont des chaînes
IdFichier est un entier
// Liste les fichiers de type ".BMP" présents dans "C:\MesDocuments".
// Le parcours se fait également dans les sous-répertoires et est interruptible. 
ResListeFichier = fListeFichier("C:\Documents and Settings\Administrateur\Bureau\CODECO 260920\*.EDI", frRécursif + frInterruptible)
Info("Le nombre de Fichier trouvés est :",ChaîneOccurrence(ResListeFichier,RC)+1)
 
// Pour chaque fichier trouvé
POUR TOUTE CHAÎNE UnFichier DE ResListeFichier SEPAREE PAR RC
	// Ajout des fichiers EDIs dans la table Table EDI CODECO
	IdFichier=fOuvre(UnFichier,foLecture)
	sInfo1=fLitLigne(IdFichier)
	sInfo2=ExtraitChaîne(sInfo1,rangPremier)
	//TABLE_EDI_CODECO.COL_Donnees_EDI_CODECO=sInfo2
	//Info("Le contenu est :",sinfo2)
	TableAjouteLigne(TABLE_EDI_CODECO,sInfo2)
//Info("Bonjour Olive")
FIN
 
// Permet de lister toutes les occurrences d'une valeur recherchée.
Résultat1 est un entier
Résultat1 = TableCherche(COL_Donnees_EDI_CODECO, "PARC+BAS", Vrai)
TANTQUE Résultat1 <> -1
	Trace(Résultat1)
	Résultat1 = TableCherche(COL_Donnees_EDI_CODECO, "ValeurRecherchée", Vrai, Résultat1 + 1)
FIN

Merci de votre aide