String Handling in ABAP - Removing Unwanted Char
I am importing data from a file and the string data has HTML tags in the  description example 
The code for this String Handling
DATA : ipstr TYPE string.
DATA : opstr TYPE string.
DATA : len TYPE i VALUE 0.
DATA : ch TYPE char1.
DATA : num TYPE i VALUE 0. "No of Characters to be taken
DATA : pos TYPE char3. "Position of Char in the Input String
*Input string
ipstr =
*Removing only ">" 
REPLACE ALL OCCURRENCES OF '>' IN ipstr WITH ' '. 
*Removing only "<"
 REPLACE ALL OCCURRENCES OF '<' IN ipstr WITH ' '.
 CONDENSE ipstr. 
*Length of Input String
 len = STRLEN( ipstr ).   
DO len TIMES. 
*Char by Char  
 ch = ipstr+pos(1).  
 pos = pos + 1. 
*Scan each char in input String for ">" 
FIND '>' IN ch IGNORING CASE.  
 IF sy-subrc = 0.     
num = len - pos.
 *Output String     
opstr = ipstr+pos(num). 
  ENDIF. 
ENDDO.   
WRITE :/ opstr.
 
No comments:
Post a Comment