[RPGLE] Textfeld sinnvoll trennen

[RobertMack]

D $Von            S             10I 0                                    
D $Bis            S             10I 0                                    
D $String         S            250A                                      
D $I              S             10I 0                                    
D  $Fld           S             50A   DIM(5) INZ                         
 /Free                                                                   
         $String =                                                       
        'Lorem ipsum dolor sit amet, consectetuer adipiscing elit, +     
         sed diam nonummy nibh euismod tincidunt ut laoreet dolore +     
         magna aliquam erat volutpat. Ut wisi enim ad minim veniam, +    
         quis nostrud exerci tation ullamcorper suscipit ex.';           
          $I   = 0;                                                    
          DoW $String <> *Blanks;                                      
          $Von = 1;                                                    
          $Bis = 51;                                                   
              DoW %Subst($String:$Bis:1) <> *Blank;                    
                  $Bis -= 1;                                           
              EndDo;                                                   
              $I += 1;                                                 
              $Fld($I)  = %Subst($String:$Von:$Bis-$Von);              
              $String = %Trim(%Subst($String:$Bis));                   
          EndDo;                                                       
          *InLr = *On;                                                 
  /End-Free

...fehlt nur noch ein Monitor drumrum, falls mal keine Blanks zu finden sind

[KingofKning]

[CODE]

/Free
$String =
'Lorem ipsum dolor sit amet, consectetuer adipiscing elit, +
sed diam nonummy nibh euismod tincidunt ut laoreet dolore +
magna aliquam erat volutpat. Ut wisi enim ad minim veniam, +
quis nostrud exerci tation ullamcorper suscipit ex.';

Der Römer als solches würde jetzt nur Bahnhof verstehen.

Interessant was es alles so gibt.

GG