Discussion :

[a_karim_fr]

Bonjour


J'ai une variable qui contient des espaces et des côtes alors comment enlever les espaces et les cotes.

Exemple :

Code :

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

J'ai une variable

et je veux avoire

Code :

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

Jaiunevariable

Merci

[Homer-ac]

Quand on veut analyser une chaine de caractères, on le gère en la redefinissant dans un tableau Pic X occurs N et on se déplace dedans ou on utilise les référence modifiers (If Z1(I1:1) = ' ' then ... dans un perform varying I1). Il y a déjà pas mal d'exemple de ce style dans ce forum.
Ceci étant, ci-dessous une solution avec unstring + string, mais à mon sens c'est plus pour le fun et histoire d'ajouter une astuce de gestion des données éclatées via un index.

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
28
29
30
31
32
33
34
35
36
37
       Working-Storage Section.                                         
       01.                                                              
           05  WS-DATA             Pic x(100) value Spaces.             
           05  CTR-DATAS           Pic s9(4) Binary.                    
       01  TAB-DATA.                                                    
           05  DATAS               Pic x(100) occurs 9 Indexed by IM.   
      *-----------------------                                          
       Linkage Section.                                                 
      *-----------------------                                          
       01  LS-PARM.                                                     
           05  LS-PARM-LNG         Pic S9(4) Binary.                    
           05  LS-PARM-DATA        Pic x(100).                          
      *================================                                 
       Procedure Division Using LS-PARM.                                
      *--------------------------------     -> PARM RECU                
           Move LS-PARM-DATA(1:LS-PARM-LNG) to WS-DATA                  
           Move ZERO  to CTR-DATAS                                      
           Move Space to TAB-DATA                                       
                                                                        
           Unstring WS-DATA     Delimited   by all space                
                                            or all "'"                  
                  Into DATAS(1) DATAS(2) DATAS(3) DATAS(4)              
                       DATAS(5) DATAS(6) DATAS(7) DATAS(8) DATAS(9)     
                  Tallying        in CTR-DATAS                          
               On Overflow                                              
                    Display "PLUS DE 9 SEPARATEURS ';' DANS LE PARM !"  
                    Move    8 To RETURN-CODE                            
                    Goback                                              
           End-Unstring                                                 
                                                                        
           Move Space to WS-DATA                                        
           String      DATAS(1) DATAS(2) DATAS(3) DATAS(4)              
                       DATAS(5) DATAS(6) DATAS(7) DATAS(8) DATAS(9)     
                    Delimited   By space Into WS-DATA                   
           End-String                                                   
           Display WS-DATA                                              
           Goback.

[a_karim_fr]

Merci beaucoup

[Hédhili Jaïdane]

Bonjour.

Deux petites versions simplistes

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
0050   WORKING-STORAGE SECTION.                                         
0051   77  I1           pic 9999 COMP.                                  
0051   77  I2           pic 9999 COMP.                                  
0051   77  Z1           pic X(100) value "J'ai une variable".           
0051   77  Z2           pic X(100).                                     
0201   PROCEDURE DIVISION.                                              
0204   TRAITEMENT SECTION.                                              
0209   DEBUT.                                                           
           move spaces to Z2.                                           
           move 0 to I2.                                                
           perform TEST0 varying I1 from 1 by 1                         
                           until I1 >  function length (Z1).            
           display Z1 upon MONTERMINAL   
           display Z2 upon MONTERMINAL.                                
       FIN.                                                            
0627       STOP RUN.                                                   
       TEST0.                                                          
                   if Z1(I1:1) = space or "'" or low-value             
                        next sentence                                  
                   else add 1 to I2                                    
                        move Z1(I1:1) to Z2(I2:1)

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
0050   WORKING-STORAGE SECTION.                                         
0051   77  I1           pic 9999 COMP.                                  
0051   77  I2           pic 9999 COMP.                                  
0051   01  Z1           pic X(100) value "J'ai une variable".           
         01  Z1W redefines Z1.                                            
             03 C1  pic x occurs 100.                                     
0051   01  Z2.                                                          
           03 C2  pic x occurs 100.                                     
0201   PROCEDURE DIVISION.                                              
0204   TRAITEMENT SECTION.                                              
0209   DEBUT.                                                           
           move spaces to Z2.                                           
           move 0 to I1 I2.
           perform TEST0 varying I1 from 1 by 1 until I1 > 100.        
           display Z1 upon MONTERMINAL                                 
           display Z2 upon MONTERMINAL.                                
       FIN.                                                            
0627       STOP RUN.                                                   
       TEST0.                                                          
           if C1(I1) = space or "'" or low-value                       
              next sentence                                            
           else add 1 to I2                                            
                move C1(I1) to C2(I2).