topic Re: Cut\Replace String ? in Application Development and Automation Discussions

Cut\Replace String ?

Former Member — Thu, 29 Jun 2006 15:04:19 GMT

Given a String : 'c:\corp\dir\filename.pdf' .

I need to remove or replace with ' ' anything that comes after the last '\'.

The Replace has 'All occurences of ' or 'first occurence of' but not anything like last occurence .

Re: Cut\Replace String ?

Former Member — Thu, 29 Jun 2006 15:07:28 GMT

Hi,

YOu can use the fm:

SO_SPLIT_FILE_AND_PATH

sample usage:

CALL FUNCTION 'SO_SPLIT_FILE_AND_PATH'

EXPORTING

full_name = fname

IMPORTING

stripped_name = short_fname

file_path = fpath

EXCEPTIONS

x_error = 1

OTHERS = 2.

Regards,

ravi

Re: Cut\Replace String ?

RichHeilman — Thu, 29 Jun 2006 15:08:14 GMT

Please see this sample program.




REPORT ZRICH_0005 .

data: FULLNAME TYPE RLGRAP-FILENAME value 'C:tempfoldertext.txt' .

DATA: filename TYPE RLGRAP-FILENAME.
DATA: FILE_PATH TYPE RLGRAP-FILENAME.


CALL FUNCTION 'SO_SPLIT_FILE_AND_PATH'
  EXPORTING
    FULL_NAME           = FULLNAME
 IMPORTING
   STRIPPED_NAME       = filename
   FILE_PATH           = FILE_PATH
* EXCEPTIONS
*   X_ERROR             = 1
*   OTHERS              = 2
          .
IF SY-SUBRC <> 0.
* MESSAGE ID SY-MSGID TYPE SY-MSGTY NUMBER SY-MSGNO
*         WITH SY-MSGV1 SY-MSGV2 SY-MSGV3 SY-MSGV4.
ENDIF.

write:/ fullname.
write:/ file_path.

Regards,

Rich Heilman

Re: Cut\Replace String ?

Former Member — Thu, 29 Jun 2006 15:08:34 GMT

Translate String using '/ '.

Re: Cut\Replace String ?

Former Member — Thu, 29 Jun 2006 15:09:34 GMT

Hi,

lv_data
lv_len

lv_len = strlen(lv_data).

n = lv_len
do n times.

  if lv_data+lv_len(1) = ''.
     lv_data = lv_data+0(lv_len).  
  else.
    lv_len = lv_len - 1.
  endif.
  
endo.

Reward points & mark Helpful Answers

Re: Cut\Replace String ?

Former Member — Thu, 29 Jun 2006 15:13:26 GMT

Another way

split filename at '/' into table itab.

describe table itab lines v_lines.

loop at itab

if sy-tabix <> v_lines.

concatenate lv_filename itab-data into lv_filename separated by '/'.

endloop.

lv_filename = lv_filename+1.

Re: Cut\Replace String ?

Former Member — Thu, 29 Jun 2006 15:13:31 GMT

hi,

data: fname  LIKE rlgrap-filename,
      short_fname    LIKE rlgrap-filename,
      fpath          LIKE rlgrap-filename.
fname = 'c:corpdirfilename.pdf'.
  CALL FUNCTION 'SO_SPLIT_FILE_AND_PATH'
    EXPORTING
      full_name     = fname
    IMPORTING
      stripped_name = short_fname
      file_path     = fpath
    EXCEPTIONS
      x_error       = 1
      OTHERS        = 2.

regards

vijay