1. String Template
新语法引入了字符串模板,用于处理字符串连接以及格式转换
字符串模板在 | ... | 之间定义,主要分为两部分,固定文本和变量
其中,变量只能在 { ... } 内使用,大括号之外的所有字符均作为固定文本使用,空格始终不会被忽略,见例1
在使用变量时,可以通过控制语句来指定数据的显示格式,如例2,将日期用系统格式输出
在固定文本中,如果出现 | ,{ } 或 \ 等特殊字符时,需要使用转义符 \
abap
DATA: lv_str TYPE char5 VALUE '123'.
" 在竖线中间没有被大括号包裹的部分将始终被视为固定文本,空格始终不被忽略
lv_str = | { lv_str }|.
WRITE: / lv_str.
lv_str = '123'.
" 尾部被截断
lv_str = |567{ lv_str }|.
WRITE: / lv_str.
2. Format Option
2.1 COUNTRY
根据指定国家 cty 格式化数据(数值/日期/时间),参考表 T005X 【 COUNTRY = cty 】
abap
DATA lv_str TYPE string.
DATA lv_num TYPE p DECIMALS 3.
" country可以根据t005x国家的配置表自动选择合适的日期/时间/数值
DATA(lv_date) = CONV d( '20230614' ).
DATA(lv_time) = CONV t( '161810' ).
lv_num = '123456.123'.
WRITE: / '中国:'.
lv_str = |{ lv_date COUNTRY = 'CN ' }|.
WRITE: / lv_str.
lv_str = |{ lv_time COUNTRY = 'CN ' }|.
WRITE: / lv_str.
lv_str = |{ lv_num COUNTRY = 'CN ' }|.
WRITE: / lv_str.
WRITE: / .
WRITE: / '美国:'.
lv_str = |{ lv_date COUNTRY = 'US ' }|.
WRITE: / lv_str.
lv_str = |{ lv_time COUNTRY = 'US ' }|.
WRITE: / lv_str.
lv_str = |{ lv_num COUNTRY = 'US ' }|.
WRITE: / lv_str.
2.2 ALPHA
添加/移除前导零,返回值与字段类型一致,可使用CONV转换成其他的类型进行处理。默认不做变更(RAW)【 ALPHA = [ IN | OUT | RAW ] 】
以物料号加前导0作为示例
abap
DATA lv_matnr_in TYPE mara-matnr VALUE '123456'.
DATA lv_matnr_out TYPE mara-matnr VALUE '012345'.
" 这种方式会直接按数据元素的长度补前导0
" 物料号直接补齐40位前导0,不太对劲
lv_matnr_in = |{ lv_matnr_in ALPHA = IN }|.
lv_matnr_out = |{ lv_matnr_out ALPHA = OUT }|.
lv_matnr_in = '123456'.
lv_matnr_out = '012345'.
" 这个是专用于料号编码转换的函数
" 删前导0无所谓两种方法都行,补前导0特殊字段特殊处理
CALL FUNCTION 'CONVERSION_EXIT_MATN1_INPUT'
EXPORTING
input = lv_matnr_in
IMPORTING
output = lv_matnr_in.
CALL FUNCTION 'CONVERSION_EXIT_MATN1_OUTPUT'
EXPORTING
input = lv_matnr_out
IMPORTING
output = lv_matnr_out.
2.3 CASE
将字符串进行大小写转换,默认为 RAW,该选项不会更改大小写格式【 CASE = [ RAW | LOWER | UPPER ] 】
abap
" CASE 在String Template当中可以转换字母的大小写
DATA(lv_str) = 'AbCdEfG'.
WRITE / |{ lv_str CASE = LOWER }|. " 小写
WRITE / |{ lv_str CASE = UPPER }|. " 大写
WRITE / |{ lv_str CASE = RAW }|. " 默认
2.4 ZERO
abap
" ZERO 关键字的存在类似与一个if else语句,若为0则置空,否则保留源字符串
DATA(lv_zero) = |{ 0 ZERO = NO }|.
DATA(lv_str) = |{ 123 ZERO = NO }|.
3. String Functions
3.1 STRLEN
获取字符串长度,当字符串类型为 CHAR 时,尾部空格会被忽略,当字符串类型为 STRING 时,尾部空格不会被忽略,仍会按字符被计入长度内
abap
DATA(lv_strlen_c) = strlen( CONV char10( |1234567 | ) ). " 7
DATA(lv_strlen_s) = strlen( CONV string( |ACDEFGH | ) ). " 10
3.2 FIND
搜索指定字符串并计算偏移量,没有遍历到时返回 -1
可以使用 SUB ( 固定文本 ) 或者 REGEX ( 正则表达式 ) 作为指定条件进行搜索
CASE = [ abap_true | abap_false ]:大小写检查,默认为 abap_true,即区分大小写
OCC = N:指定字符串在第 N 次出现,当 N 是负数时,从字符串右边开始遍历
OFF = N LEN = M:指定搜索区域,从第 N+1 为字符开始长度为 M 的范围
abap
DATA(lv_find_sub) = find( val = 'ABA123CAD' sub = 'a' case = ' ' occ = 3 ).
DATA(lv_find_reg) = find( val = 'ABA123CAD' regex = '\d' off = 0 len = 3 ).
3.3 COUNT
- COUNT
用法与 FIND 类似,但是返回值是指定字符串出现的次数,因此不能指定 OCC 参数 - COUNT_ANY_OF
计算指定字符串中的任一字符出现的总次数 - COUNT_ANY_NOT_OF
计算非指定字符串中任意字符出现的总次数
例:
abap
DATA(lv_count) = count( val = 'ABA123CAD' sub = 'a' case = ' ' ).
DATA(lv_count_any) = count_any_of( val = 'ABA123CAD' sub = '1B' ).
DATA(lv_count_not) = count_any_not_of( val = 'ABA123CAD' sub = '1B' ).
3.4 REPLACE
替换字符串,可以指定位置进行替换,也可以查找指定字符串并替换
WITH = new 指定用于替换的字符串
OCC = N 指定字符串第 N 次出现时进行替换,N 为 0 时表示需要全部替换
其他参数可参照 FIND 表达式
例:
abap
DATA(lv_replace) = replace( val = 'ABA123CAD' off = 0 len = 4 with = '@12@' ).
DATA(lv_replace_sub) = replace( val = 'ABA123CAD' sub = 'a' with = '@' case = ' ' ).
DATA(lv_replace_reg) = replace( val = 'ABA123CAD' regex = '\d' with = '#' occ = 0 ).
3.5 INSERT
插入字符串,可以使用 OFF 指定插入的位置,默认为 0
例:
abap
DATA(lv_insert) = insert( val = 'ABCD' sub = '123' off = 2 ).
3.6 CONDENSE
压缩字符串,默认会移除头部/尾部的空格,其他部分的空格都会被压缩至 1 位
DEL = del 指定需要删除的字符,指定后,从字符串两侧开始遍历并删除字符,直到出现非指定字符
FROM = from TO = to 处理完 DEL 后,再遍历字符串,将 from 中出现的字符,替换成 to 的第一位字符
在遍历过程中,当同一个字符连续出现时,会被当成一个整体进行替换,所有字符均区分大小写
例:
abap
DATA(lv_condense_space) = condense( | This is test | ).
DATA(lv_condense) = condense( val = ' XXThis ISSS X sTringXX'
del = |X |
from = 'TS'
to = 'to' ).
3.7 CONCAT_LINES_OF
将内表中所有的记录连接起来,通过 sep 指定分隔符
例:
abap
DATA: lt_data TYPE TABLE OF char10.
lt_data = VALUE #( ( 'ABC' ) ( '123' ) ( 'DEF' ) ).
DATA(lv_concat_lines) = concat_lines_of( table = lt_data sep = '@' ).
3.8 REVERSE
字符串反转
例:
abap
DATA(lv_reverse) = reverse( 'DEMO' ).
3.9 TO_UPPER/TO_LOWER
将字符串转换成大写/小写
例:
abap
DATA(lv_to_mixed) = to_mixed( val = 'THIS is @A STRIN@G' sep = '@' case = 'X' min = 10 ).
DATA(lv_from_mixed) = from_mixed( val = 'This IS a string' ).
DATA(lv_to_upper) = to_upper( val = 'this IS a string' ).
DATA(lv_to_lower) = to_lower( val = 'THIS IS A STRING' ).
4. Internal Table
4.1 Expressions
内表读取不再需要使用 READ TABLE,直接使用类似于数组的方式去读取
与READ TABLE读表方式类似,可以通过 INDEX 去读取指定位置的行,也可以根据条件去获取行,但无法指定BINARY SEARCH
默认情况下如果没有读到记录,会抛出异常 CX_SY_ITAB_LINE_NOT_FOUND
使用 OPTIONAL 语句时,没有读到记录也不会抛异常,而是返回空的结构
使用 DEFAULT 语句,在没有读到记录时,返回一个默认值,如果系统不支持这两种,则需要使用 TRY 语句来捕获异常
abap
SELECT carrid, connid, countryfr, cityfrom
FROM spfli INTO TABLE @DATA(lt_table) UP TO 3 ROWS.
DATA(lv_line_index) = lt_table[ 1 ]-carrid.
DATA(lwa_line_field) = lt_table[ carrid = 'AZ'
connid = '0555' ].
DATA(lwa_line_optional) = VALUE #( lt_table[ 4 ] OPTIONAL ).
DATA(lwa_line_default) = VALUE #( lt_table[ 4 ] DEFAULT VALUE #( carrid = 'ZZ'
connid = '0239'
countryfr = 'SU'
cityfrom = 'CITY_NO' ) ).
4.2 Functions
LINES 计算内表总行数
LINE_EXISTS 判断根据特定条件能否在内表中读取到记录,返回值为布尔型数据
LINE_INDEX 获取内表中满足特定条件的记录所在的行数( INDEX )
例:
abap
SELECT * FROM spfli INTO TABLE @DATA(lt_table) UP TO 3 ROWS.
DATA(lv_lines) = lines( lt_table ).
DATA(lv_exist) = xsdbool( line_exists( lt_table[ carrid = 'AZ' ] ) ).
DATA(lv_index) = line_index( lt_table[ carrid = 'AZ' ] ).