ABAP_字符串操作_01

最新推荐文章于 2024-09-04 17:34:09 发布

Hyden_QH

最新推荐文章于 2024-09-04 17:34:09 发布

阅读量751

点赞数

分类专栏： ABAP 文章标签： STRING

ABAP 专栏收录该内容

17 篇文章 0 订阅

订阅专栏

REPORT z_overlay_001 NO STANDARD PAGE HEADING MESSAGE-ID mg.

WRITE : /,'********************拆分字符串split***************'.
*语法：
*     SPLIT <c> AT <del> INTO <c1> ... <cn>.
*用法：
*  将字符串<c>根据字符串<del>拆分成字符串<c1>...<cn>.
PERFORM frm_split.

WRITE : /,'****************根据长度截取字符***************'.
*函数名称：CONVERT_STRING_TO_TABLE
*输入参数：字符串<str> 、截取长度<len>、接收表<itb>
PERFORM frm_convert_string_to_table.

WRITE : /,'******************连接字符串***************'.
*语法：
*  CONCATENATE <c1> ... <cn> INTO <c> [SEPARATED BY <s>].
*  1.如果<s>未写，直接将<c1>....<cn>拼接成<c>
*  2.如果<s>有写，将<c1>....<cn>拼接成<c> 其中插入<s>
PERFORM frm_concatenate.

WRITE : /,'******************获得字符串长度***************'.
*[COMPUTE] <n> = STRLEN( <c> ).
PERFORM frm_strlen.

WRITE : /,'******************压缩字段内容***************'.
*语法：
*    CONDENSE <c> [NO-GAPS].
*该语句去除字段 <c> 中的前导空格并用一个空格替换其它空格序列。
*结果是左对齐单词，每个单词用空格隔开。
*如果指定附加的 NO-GAPS，则去除所有空格。
PERFORM frm_condense.

WRITE : /,'******************搜索字符串***************'.
*语法：
*    SEARCH <c> FOR <str> <options>.

*SEARCH 1
*            该语句在字段 <c> 中搜索<str> 中的字符串。
*            如果成功，则将 SY-SUBRC 的返回代码值设置为0，并将 SY-FDPOS 设置为字段 <c> 中该字符串的偏移量。
*            否则将 SY-SUBRC 设置为4。
*            搜索串 <str> 可为下列格式之一：
*            <str>                       目的
*            ---------------------------------
*       1.     <pattern>                 搜索 <pattern>（任何字符顺序）。忽略尾部空格。
*       2.     .<pattern>.               搜索 <pattern> ，但是不忽略尾部空格。
*       3.     *<pattern>               搜索以 <pattern> 结尾的词。
*       4.     <pattern>*               搜索以 <pattern> 开始的词。
*            单词之间用空格、逗号、句号、分号、冒号、问号、叹号、括号、斜杠、加号和等号等分隔。
PERFORM frm_search_01.

*SEARCH 2
*ABBREVIATED :
*              在字段 <c> 中搜索包含 <str> 中的单词，
*              其中字符可以被其它字符隔开，
*              但是单词和字符串的第一个字母必须相同。
*STARTING AT <n1>:
*                 在字段 <c> 中搜索从 <n1> 开始的 <str> 。
*                 结果 SY-FDPOS 参照相对于 <n1> 的偏移量而不是字段的开始。
*ENDING AT <n2>:
*               在字段 <c> 搜索 <str> 直到位置 <n2>。
*AND MARK :
*          如果找到搜索串，则将搜索串中的所有字符
*         （使用 ABBREVIATED 时的所有字符）转换为大写形式。
PERFORM frm_search_02.

WRITE : /,'********************覆盖字符字段***************'.
*语法:
*    OVERLAY <c1> WITH <c2> [ONLY <str>].
*用法：
*1. <c1>、<c2>、<str> 可为变量
*2.如果<str>未指定，用<c2>对应的位置替换<c1>的空格，<c2>没有任何变化，如果没有空格，不替换
*3.如果<str>指定，用<c2>对应的位置替换<c1>的<str>单个字符，<c2>没有任何变化
*4.如果 <c1> 比 <c2> 长，则只覆盖 <c2> 中的长度。
PERFORM frm_overlay.

WRITE : /,'********************替换字段内容***************'.
*语法:
*     REPLACE <str1> WITH <str2> INTO <str> [LENGTH <l>].
*用法：
*    1.<str1>、<str2>、<l>可以为变量
*    2.如果<1>指定，将<str>中的<str1>的前<1>个字段替换为<str2>
*    3.如果<1>未指定，则将<str>中的<str1>替换未<str2>
PERFORM frm_replace.

*&---------------------------------------------------------------------*
*& Form FRM_SPLIT
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_split .
  DATA: string(60),
        p1(20)     VALUE '',
        p2(20)     VALUE '',
        p3(20)     VALUE '',
        p4(20)     VALUE '',
        del(3)     VALUE '***'.
  string = ' Part 1 *** Part 2 *** Part 3 *** Part 4 *** Part 5'.
  WRITE string.
  SPLIT string AT del INTO p1 p2 p3 p4.
  WRITE: /'P1:' , p1.
  WRITE: /'P2:' , p2.
  WRITE: /'P3:' , p3.
  WRITE: /'P4:' , p4.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CONVERT_STRING_TO_TABLE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_convert_string_to_table .
  DATA : str TYPE string VALUE '1234567890abcdefghigklmn',
         len TYPE i VALUE 4,
         itb TYPE TABLE OF string WITH HEADER LINE.
  WRITE :/,'str:',str,'len:',len.
  CALL FUNCTION 'CONVERT_STRING_TO_TABLE'
    EXPORTING
      i_string         = str
      i_tabline_length = len
    TABLES
      et_table         = itb.
  LOOP AT itb.
    WRITE :/,'序号',sy-tabix,'itb:',itb.
  ENDLOOP.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CONCATENATE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_concatenate .
  DATA: c1(10) VALUE  'Sum',
        c2(3)  VALUE  'mer',
        c3(5)  VALUE  'holi ',
        c4(10) VALUE  'day',
        c5(30),
        sep(3) VALUE ' - '.
  CONCATENATE c1 c2 c3 c4 INTO c5.
  WRITE / c5.
  CONCATENATE c1 c2 c3 c4 INTO c5 SEPARATED BY sep.
  WRITE / c5.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_STRLEN
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_strlen .
  DATA: int       TYPE i,
        word1(20) VALUE '12345',
        word2(20),
        word3(20) VALUE '   4         '.
  int = strlen( word1 ).
  WRITE / int.
  int = strlen( word2 ).
  WRITE / int.
  int = strlen( word3 ).
  WRITE / int.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_CONDENSE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_condense .
  DATA: string(25) VALUE ' one  two   three    four',
        len        TYPE i.
  len = strlen( string ).
  WRITE: / string, '!'.
  WRITE: / 'Length: ', len.
  CONDENSE string.
  len = strlen( string ).
  WRITE: string, '!'.
  WRITE: / 'Length: ', len.
  CONDENSE string NO-GAPS.
  len = strlen( string ).
  WRITE: string, '!'.
  WRITE: / 'Length: ', len.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SEARCH_01
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_search_01 .
  DATA string(30) VALUE 'This is a little sentence.'.
  WRITE: / 'Searched', 'SY-SUBRC', 'SY-FDPOS'.
  ULINE /1(26).
  SEARCH string FOR 'X'.
  WRITE: / 'X', sy-subrc UNDER 'SY-SUBRC',
  sy-fdpos UNDER 'SY-FDPOS'.
  SEARCH string FOR 'itt   '.
  WRITE: / 'itt   ', sy-subrc UNDER 'SY-SUBRC',
  sy-fdpos UNDER 'SY-FDPOS'.
  SEARCH string FOR '.e .'.
  WRITE: / '.e .', sy-subrc UNDER 'SY-SUBRC',
  sy-fdpos UNDER 'SY-FDPOS'.
  SEARCH string FOR '*e'.
  WRITE: / '*e ', sy-subrc UNDER 'SY-SUBRC',
  sy-fdpos UNDER 'SY-FDPOS'.

  SEARCH string FOR 's*'.
  WRITE: / 's* ', sy-subrc UNDER 'SY-SUBRC',
  sy-fdpos UNDER 'SY-FDPOS'.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_SEARCH_02
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_search_02 .
  DATA: string(30) VALUE 'This is a fast first example.',
        pos        TYPE i,
        off        TYPE i.
  WRITE / string.
  SEARCH string FOR 'ft' ABBREVIATED.
  WRITE: / 'SY-FDPOS:', sy-fdpos.
  pos = sy-fdpos + 2.
  SEARCH string FOR 'ft' ABBREVIATED STARTING AT pos AND MARK.
  WRITE / string.
  WRITE: / 'SY-FDPOS:', sy-fdpos.
  off = pos + sy-fdpos - 1.
  WRITE: / 'Off:', off.
ENDFORM.

*&---------------------------------------------------------------------*
*& Form FRM_OVERLAY
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_overlay .
  DATA : str1 TYPE string,
         str2 TYPE string.
  str1 = '1 2 3'.
  str2 = '456  '.
  WRITE : /,'VALUE ：' ,'STR1:' ,str1,'STR2:' ,str2.
  OVERLAY str1 WITH str2.
  WRITE : /, 'OVERLAY ：','STR1:' ,str1,'STR2:' ,str2.

  str1 = '1 2 3'.
  str2 = '456'.
  WRITE : /,'VALUE ：' ,'STR1:' ,str1,'STR2:' , str2.
  OVERLAY str1 WITH str2 ONLY '12'.
  WRITE : /, 'OVERLAY-only 12 ：','STR1:' ,str1,'STR2:' ,str2.

  str1 = '123'.
  str2 = '456'.
  WRITE : /,'VALUE ：', 'STR1:' ,str1,'STR2:' ,str2.
  OVERLAY str1 WITH str2.
  WRITE : /, 'OVERLAY ：','STR1:' ,str1,'STR2:' ,str2.

  str1 = '1 2 3'.
  str2 = '45678'.
  WRITE : /,'VALUE ：' ,'STR1:' ,str1,'STR2:' ,str2.
  OVERLAY str1 WITH str2 ONLY '13'.
  WRITE : /, 'OVERLAY-only 13 ：','STR1:' ,str1,'STR2:' ,str2.
ENDFORM.
*&---------------------------------------------------------------------*
*& Form FRM_REPLACE
*&---------------------------------------------------------------------*
*& text
*&---------------------------------------------------------------------*
*& -->  p1        text
*& <--  p2        text
*&---------------------------------------------------------------------*
FORM frm_replace .
  DATA: t(10)   VALUE 'abcdefghij',
        string  LIKE t,
        str1(4) VALUE 'cdef',
        str2(4) VALUE 'klmn',
        str3(2) VALUE 'kl',
        str4(6) VALUE 'klmnop',
        len     TYPE i VALUE 2.
  string = t.
  WRITE / string.
  REPLACE str1 WITH str2 INTO string.
  WRITE: / ,'str1:' , str1 ,'str2:' ,str2,  'string:' ,string.
  string = t.
  REPLACE str1 WITH str2 INTO string LENGTH len.
  WRITE: / ,'str1:' , str1 ,'str2:' ,str2,  'string:' ,string ,'len:' ,len.
  string = t.
  REPLACE str1 WITH str3 INTO string.
  WRITE: / ,'str1:' , str1 ,'str3:' ,str3,  'string:' ,string .
  string = t.
  REPLACE str1 WITH str4 INTO string.
  WRITE: / ,'str1:' , str1 ,'str4:' ,str4,  'string:' ,string .
ENDFORM.