Finden und Löschen

[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