How to detect apostrophe and add double quote on that?

Question

Hi!
  I have a user name is CH'NG
  His name has an apostrophe ' over there.
  I use GUI_UPLOAD to read from a xml file and store inside a local variable,
  <b>lv_name = 'CH'NG'.</b>
  I encounter the problem of endless ending because of these 3 apostrophes.
  Therefore, I wish to write some code like, if i detect the lv_name contains any apostrophe, i will add another 2 apostrophes infront of the single quote (which i viewed from other threads, saying that putting a 2 apostrophe can solve the problem ), such as:
  IF lv_name CA apostrophe.
     lv_length = strlen( lv_name ).
     lv_len = sy-fdpos + 1.
     CONCATENATE lv_name+0(sy-fdpos) 2 apostrophe lv_name+ lv_len(lv_length) into lv_result.
  ENDIF.
so, my lv_result: CH'''NG
Kindly advise.
thanks a lot!
br,
hy

Answer 1

Huai,
Just copy this code and execute
report ZTEST11.
DATA :         V_len type i,
              v_num type i.
parameters : v_str(20)   .
start-of-selection.
    v_len =  strlen( v_str ).
    do .
       v_num = v_num + 1.
     if  v_len eq v_num.
        exit.
      else.
         if v_str+0(v_num) ca '*'.
              REPLACE '*' WITH space  INTO v_str.
               v_num = v_num - 1 .
               v_len = v_len - 1.
         endif.
     endif.
    enddo.
    condense v_str.
    write v_str.
don't forget to reward if useful