remplacer chaine de caracteres par **

[regazza]

Bonjour,

Je dois écrire un programme en cobol qui doit rechercher une liste de mot dans une chaine de caractère et les remplacer par des * :

liste de mot : rue - paris
en entree : rue de la libelle - paris
en sortie : *** de la libelle - *****

Avez -vous une idée ?

[Luc Orient]

Bonsoir,

Je regarderais l'ordre INSPECT, du style (syntaxe à vérifier) :

Code :

1
2
3
4
5
INSPECT ...
REPLACING
ALL 'RUE' BY '***'
     'PARIS' BY '*****'

[regazza]

Merci

[regazza]

bonjour,

J'ai fait un petit test rapide en utilisant ce que vous me proposez. Cela fonctionne mais je dirais presque trop car cela remplace vraiment tous les mots ! avec juste un bémol car les deux chaines doivent avoir la même longueur. je peux y passer en construisant un tableau a deux dimensions : mes mots et les correspondance en x.

exemple : on doit remplacer le mot fou par xxx

'je suis un fou'
--> ok j'ai le résultat 'je suis un xxx'
par contre
'je suis une fourmis'
--> nok le résultat est 'je suis une xxxrmis' et cela n'est pas voulu.

Avez-vous une idée ?

[regazza]

re-bonjour,

c'est vrai que je me focalise sur le cobol pur.
En fait je récupère ma chaine d'une table DB2 par un :
EXEC SQL select champ from table into ... et c'est dans ce champ que je dois rechercher et remplacer mes mots.
Il y a peut etre une moyen avec DB2 directement pour faire le remplacement ??

[BernardBZH]

Bonjour,

En DB2 je ne vois pas comment procéder et puis c'est un peu dommage de plomber une requête avec des manipulations de chaînes de caractères.

L'INSPECT proposé par Luc Orient est bon et simple. Il faut juste l'adapter un brin pour avoir le résultat souhaité en plaçant des espaces aux endroits adéquats pour cibler uniquement les mots complets :

Code :

1
2
3
4
INSPECT ...
REPLACING
ALL ' RUE ' BY ' *** '
     ' PARIS ' BY ' ***** '

Si la liste de mots à transformer est appelée à évoluer, il faudra peut être songer à une mécanique un poil plus complexe à base de boucles et de compteurs de caractères mais avec ce même INSPECT au final pour avoir un algorithme le plus général possible.