Finden und Löschen

[andreaspr@aon.at]

Wenns um Sätze in einer Tabelle geht, ist SQL das schnellste.

In RPG musst du vor 7.1 in einer Schleife mit %SCAN die Position ermitteln und dann mit %REPLACE das Zeichen entfernen.
Ab 7.1 gibts die Funktion %SCANRPL.

[malzusrex]

Hey,

im RPG hatte ich da mal was gebastelt, um aus einen Alpha-Feld alles zu löschen, was keine Zahl war. (Telefonnummern-Feld)

d                                                  
d DelNoNum        PR            15                 
d                               15                 
c                   If        MyFld  <> *Blanks                   
c                   Eval      MyFld   =  DelNoNum( MyFld )
c                   EndIf  
.....
p DelNoNum        b                                                  
d                 PI            15                                   
d   String                      15                                   
d Index           s              3  0                                
d Laenge          s              3  0                                
d Zahlen          c                   '0123456789'                   
                                                                     
c                   Eval      Laenge = %Len( %Trim( String ) )       
c                   For       Index = 1 to Laenge                    
c                   If        %Scan( %SubSt( String : Index : 1) :   
c                                    Zahlen                        ) 
c                             = *Zeros                               
c                   If        Index = 1                              
c                   Eval      String = %SubSt( String : 2 : 14 )     
c                   Else                                             
c                   Eval      String = %SubSt( String     :       
c                                              1          :       
c                                              Index - 1     ) +  
c                                      %SubSt( String     :       
c                                              Index + 1  :       
c                                              15 - Index    )    
c                   EndIf                                         
c                   Eval      Laenge = %Len( %Trim( String ) )    
c                   Eval      Index  = Index - 1                  
c                   EndIf                                         
c                   EndFor                                        
c                                                                 
c                   Return    String                              
                                                                  
p DelNoNum        e 

Zugegeben. Die VAriante im SQL ist natürlich eleganter.

Gruß
Ronald

[Pikachu]

DPOS              S             10S 0 INZ                              
DFELD             S            100A   INZ('770.35.008.000')            
D**********************************************************************
C     '.'           SCAN      FELD          POS                    7778
C     *IN78         DOWEQ     *ON                                      
C                   EVAL      FELD = %REPLACE('':FELD:POS:1)           
C     '.'           SCAN      FELD:POS      POS                    7778
C                   ENDDO                                              
C                   SETON                                            LR