letzten Zeileumbruch in einem String entfernen

Getting started ... Alles für einen gelungenen Start.

letzten Zeileumbruch in einem String entfernen

Postby Mirac4164 » Wed Aug 20, 2014 9:43 am

Hallo,

ich habe einen String für eine CSV datei. Darin befindet sich am Ende einen Zeilenumbruch (## bzw. cl_abap_char_utilities=>cr_lf).

Wie kann ich diesen entfernen wenn er vorhanden ist.

Grüße
Mirac4164
...
...
 
Posts: 193
Joined: Wed Oct 08, 2008 10:25 am

Re: letzten Zeileumbruch in einem String entfernen

Postby Tron » Thu Aug 21, 2014 1:13 pm

Moin.
ich hab es so gelöst.
Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
  1. *&---------------------------------------------------------------------*
  2. *& Report  ZTEST_STRING
  3. *&
  4. *&---------------------------------------------------------------------*
  5. *&
  6. *&
  7. *&---------------------------------------------------------------------*
  8.  
  9. REPORT ztest_string.
  10.  
  11. CONSTANTS crlf(2) VALUE %_cr_lf.
  12.  
  13. DATA tx TYPE string.
  14. DATA i TYPE i.
  15. DATA k TYPE i.
  16.  
  17. * Wir bauen einen String mit crlf am Ende
  18. CONCATENATE 'abc' crlf INTO tx.
  19.  
  20. * Länge von CRLF (2)
  21. k = strlen( crlf ).
  22.  
  23. * Länge des Strings minus CRLF
  24. i = strlen( tx ) - k.
  25.  
  26. * Sollte größer NULL sein
  27. IF i > 0.
  28.  
  29. * Wenn die letzten beiden Bytes CRLF sind
  30.   IF tx+i(k) = crlf.
  31. * schneide CRLF ab
  32.       tx = tx(i).
  33.   ENDIF.
  34.  
  35.  
GeSHi ©


lg Jens
Tron
.....
.....
 
Posts: 1112
Joined: Sat Aug 04, 2007 10:21 pm

Re: letzten Zeileumbruch in einem String entfernen

Postby Mirac4164 » Thu Aug 21, 2014 2:13 pm

Hallo,

super, der Ansatz hat mir gut geholfen!

Grüße
Mirac4164
...
...
 
Posts: 193
Joined: Wed Oct 08, 2008 10:25 am


Return to ABAP® für Anfänger

Who is online

Users browsing this forum: No registered users and 2 guests