Discussion :

[Jean_Peuplus]

hello,

voici mon pb :

je dois remplacer dans un string tous les caractères n'étant pas un chiffre, une des 26 lettres de l'alphabet ou un underscore par un underscore.

ça en fait des caractères à remplacer...
avec l'ordre INSPECT, je peux seulement remplacer un caractère précis par ordre

quelqu'un aurait il une petite idée pour faire ça de manière plus élégante et surtout légère ?

[Jean_Peuplus]

bon j'ai réfléchi un peu et j'ai trouvé tout seul comme un grand

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
01 WS-CPT-CHAR PIC S9(4) COMP.

PROCEDURE DIVISION.

INITIALIZE   WS-CPT-CHAR    
* je sais que le string à traiter (SIIM-REF-IMPRIME) fait 15 de longueur                          
PERFORM UNTIL WS-CPT-CHAR >= 15                                             
    ADD 1 TO WS-CPT-CHAR                        
    IF SIIM-REF-IMPRIME (WS-CPT-CHAR:1)               
       NOT = X'C1'      
      ...  
* je mets ici tout les hexa à ne PAS remplacer, plus court et j'évite les oublis.                         
                                         
        MOVE X'6D' TO SIIM-REF-IMPRIME (WS-CPT-CHAR:1)
    END-IF                              
END-PERFORM

c'est certainement plus élégant, quid de la légèreté ?

[Hédhili Jaïdane]

Bonjour.
- Je pense que tu aurais pu utiliser :

Code :

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

PERFORM VARYING WS-CPT-CHAR FROM 1 BY 1 UNTIL WS-CPT-CHAR > 15

à la place :

Code :

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

1
2
3
4
5
INITIALIZE   WS-CPT-CHAR    
PERFORM UNTIL WS-CPT-CHAR >= 15                                             
    ADD 1 TO WS-CPT-CHAR                        
...

- Le INSPECT CONVERTING aurait pu marcher, quitte à faire plusieurs passage.

[Cirdeco]

- Le INSPECT CONVERTING aurait pu marcher, quitte à faire plusieurs passage.

Bonjour,

en effet cela me surprend que vous n'utilisiez pas la fonction converting.

Par exemple, pour transformer des minuscules en majuscules ainsi que les caractères accentués, cette méthode fonctionne très bien.

Définir en working :

Code :

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

1
2
3
4
5
6
7
8
9
10
 
01 DATA-A-FORMATEE PIC X(080) VALUE 'abcdefghijklm
- 'nopqrstuvwxyz.âäáãåÂÄÀÁÃÅàêëéèÉÊËÈíîïìÍÎÏÌôöòóõÔÖÒÓÕùûüúÛÜÙÚ
- 'ýÿÝñÑçÇ'. 
01 DATA-FORMATEE PIC X(080) VALUE 'ABCDEFGHIJKLM
- 'NOPQRSTUVWXYZ AAAAAAAAAAAAEEEEEEEEIIIIIIIIOOOOOOOOOOUUUUUUUU
- 'YYYNNCC'. 
 
Utiliser la ligne de commande suivante :
INSPECT DATA-IN CONVERTING DATA-A-FORMATEE TO DATA-FORMATEE

Il n'y a pas besoin de boucles, il suffit de mettre en entrée les données suceptibles de recevoir et en sortie leur équivalent....