◆◆0

ABAP中字符串处理方法小结（二）

石头 3月 29, 2017 Report 33,267 views 0

1, 替换字段内容REPLACE

语法：

REPLACE <str1> WITH <str2> INTO <c> [LENGTH <l>].

1	REPLACE <str1> WITH <str2> INTO <c> [LENGTH <l>].

ABAP/4 搜索字段 <c> 中模式 <str1> 前 <l> 个位置第一次出现的地方。如果未指定长度，按全长度搜索模式 <str1>。然后，语句将模式 <str1> 在字段 <c> 中第一次出现的位置用字符串 <str2> 替换。如果指定长度<l>，则只替换模式的相关部分。如果将系统字段 SY-SUBRC 的返回代码设置为0，则说明在 <c> 中找到 <str1> 且已用<str2> 替换。非 0 的返回代码值意味着未替换。

<str1>、 <str2> 和 <len> 可为变量。

代码：

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 / STRING.
STRING = T.
REPLACE STR1 WITH STR2 INTO STRING LENGTH LEN.
WRITE / STRING.
STRING = T.
REPLACE STR1 WITH STR3 INTO STRING.
WRITE / STRING.
STRING = T.
REPLACE STR1 WITH STR4 INTO STRING.
WRITE / STRING.

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 / STRING.

STRING = T.

REPLACE STR1 WITH STR2 INTO STRING LENGTH LEN.

WRITE / STRING.

STRING = T.

REPLACE STR1 WITH STR3 INTO STRING.

WRITE / STRING.

STRING = T.

REPLACE STR1 WITH STR4 INTO STRING.

WRITE / STRING.

结果显示：

请注意，在最后一行中字段 STRING 是如何在右边截断的。长度为 4 的搜索模式 ‘cdef’ 用长度为6的 ‘klmnop’ 替换。然后，填充字段 STRING 的剩余部分直到字段结尾。

2, 转换大/小写并替换字符TRANSLATE

可以将字母转换大/小写或使用替换规则。要转换大/小写，请使用 TRANSLATE 语句，用法如下：

语法

TRANSLATE <c> TO UPPER CASE. TRANSLATE <c> TO LOWER CASE.

1	TRANSLATE <c> TO UPPER CASE. TRANSLATE <c> TO LOWER CASE.

这些语句将字段 <c> 中的所有小写字母转换成大写或反之。

使用替换规则时，请使用以下语法：

语法

TRANSLATE <c> USING <r>.

1	TRANSLATE <c> USING <r>.

该语句根据字段 <r> 中存储的替换规则替换字段 <c> 的所有字符。<r> 包含成对字母，其中每对的第一个字母用第二个字母替换。<r> 可为变量。有关包含更复杂替换规则的 TRANSLATE 语句的更多变体，参见关键字文档。

代码：

DATA: T(10) VALUE 'AbCdEfGhIj',
      STRING LIKE T,
      RULE(20) VALUE 'AxbXCydYEzfZ'.
STRING = T.
WRITE STRING.
TRANSLATE STRING TO UPPER CASE.
WRITE / STRING.
STRING = T.
TRANSLATE STRING TO LOWER CASE.
WRITE / STRING.
STRING = T.
TRANSLATE STRING USING RULE.
WRITE / STRING.

DATA: T(10) VALUE 'AbCdEfGhIj',

STRING LIKE T,

RULE(20) VALUE 'AxbXCydYEzfZ'.

STRING = T.

WRITE STRING.

TRANSLATE STRING TO UPPER CASE.

WRITE / STRING.

STRING = T.

TRANSLATE STRING TO LOWER CASE.

WRITE / STRING.

STRING = T.

TRANSLATE STRING USING RULE.

WRITE / STRING.

显示结果：

3, 转换为可排序格式CONVERT TEXT

可以将字符字段转换为可按字母顺序排列的格式：

语法:

CONVERT TEXT <c> INTO SORTABLE CODE <sc>.

1	CONVERT TEXT <c> INTO SORTABLE CODE <sc>.

该语句为字符字段 <c> 填充可排序目标字段 <sc>。字段 <c> 必须是类型 C且字段 <sc> 必须是类型 X ，最小长度为 <c> 长度的16倍。该语句目的是为字符字段 <c>

创建相关字段 <sc>，作为 <c> 的按字母顺序排列的排序关键字。

如果对未转换的字符字段进行排序，则系统创建与各字母的特定平台内部编码相对应的顺序。在对目标字段进行排序之后，转换 CONVERT TEXT 按这样的方式创建目标

字段，相应的字符字段顺序按字母排序。例如，在德语中，顺序为‘ Miller、 Moller、 M?ller、 Muller’ ，而不是‘ Miller、 Moller、 Muller、 M?ller’ 。

转换方法依赖于运行 ABAP/4 程序的文本环境。文本环境在用户主记录中定义。例外的是可以使用如下语句，在程序中设置文本环境：

语法

SET LOCALE LANGUAGE <lg> [COUNTRY <cy>] [MODIFIER <m>].

1	SET LOCALE LANGUAGE <lg> [COUNTRY <cy>] [MODIFIER <m>].

该语句根据语言 <lg> 设置文本环境。对于选项 COUNTRY，只要特定国家语言不同，就可以在

语言以外指定国家。对于选项 MODIFIER，只要一个国家内语言不同，就可以指定另一个标识符，例如，排序顺序在电话簿和词典之间不同。字段 <lg>、 <cy> 和

<m> 必须是类型 C 且长度必须与表 TCP0C 的关键字段长度相等。表 TCP0C 是一个表格，从中进行平台相关的文本环境维护。在语句 SET LOCALE 期间，系统根据

TCP0C中的条目设置文本环境。除了内部传送的平台特性之外，用 SET 语句指定表关键字。如果 <lg> 等于 SPACE ，则系统根据用户主记录设置文本环境。如果对于指

定的关键字在表中无条目，则系统将产生运行错误。

文本环境影响 ABAP/4 中依赖于字符集的所有操作。

4, 移动字段内容SHIFT

按给定位置数移动字段串

要按给定位置数移动字段内容，请使用 SHIFT 语句，用法如下：

语法

SHIFT <c> [BY <n> PLACES] [<mode>].

1	SHIFT <c> [BY <n> PLACES] [<mode>].

该语句将字段 <c> 移动 <n> 个位置。如果省略 BY <n> PLACES，则将 <n> 解释为一个位置。如果 <n> 是 0 或负值，则 <c> 保持不变。如果 <n> 超过 <c> 长度，则 <c> 用空格填充。<n> 可为变量。对不同（<mode>）选项，可以按以下方式移动字段 <c>：

LEFT:向左移动 <n> 位置，右边用 <n> 个空格填充（默认设置）。
RIGHT:向右移动 <n> 位置，左边用 <n> 个空格填充。
CIRCULAR:向左移动 <n> 位置，以便左边 <n> 个字符出现在右边。

DATA: T(10) VALUE 'abcdefghij',
      STRING LIKE T.
STRING = T.
WRITE STRING.
SHIFT STRING.
WRITE / STRING.
STRING = T.
SHIFT STRING BY 3 PLACES LEFT.
WRITE / STRING.
STRING = T.
SHIFT STRING BY 3 PLACES RIGHT.
WRITE / STRING.
STRING = T.
SHIFT STRING BY 3 PLACES CIRCULAR.
WRITE / STRING.

DATA: T(10) VALUE 'abcdefghij',

STRING LIKE T.

STRING = T.

WRITE STRING.

SHIFT STRING.

WRITE / STRING.

STRING = T.

SHIFT STRING BY 3 PLACES LEFT.

WRITE / STRING.

STRING = T.

SHIFT STRING BY 3 PLACES RIGHT.

WRITE / STRING.

STRING = T.

SHIFT STRING BY 3 PLACES CIRCULAR.

WRITE / STRING.

显示结果：

移动字段串到给定串

要移动字段内容以到给定串，则使用 SHIFT 语句，

语法:

SHIFT <c> UP TO <str> <mode>.

1	SHIFT <c> UP TO <str> <mode>.

ABAP/4 查找 <c> 字段内容直到找到字符串 <str> 并将字段 <c> 移动到字段边缘。 <mode> 选项与按给定位置数移动字段串中所述相同。<str> 可为变量。如果 <c> 中找不到 <str>，则将 SY-SUBRC 设置为 4 并且不移动 <c>。否则，将 SY-SUBRC 设置为0。

DATA: T(10) VALUE 'abcdefghij',
      STRING LIKE T,
      STR(2) VALUE 'ef'.
STRING = T.
WRITE STRING.
SHIFT STRING UP TO STR.
WRITE / STRING.
STRING = T.
SHIFT STRING UP TO STR LEFT.
WRITE / STRING.
STRING = T.
SHIFT STRING  UP TO STR RIGHT.
WRITE / STRING.
STRING = T.
SHIFT STRING  UP TO STR CIRCULAR.
WRITE / STRING.

DATA: T(10) VALUE 'abcdefghij',

STRING LIKE T,

STR(2) VALUE 'ef'.

STRING = T.

WRITE STRING.

SHIFT STRING UP TO STR.

WRITE / STRING.

STRING = T.

SHIFT STRING UP TO STR LEFT.

WRITE / STRING.

STRING = T.

SHIFT STRING UP TO STR RIGHT.

WRITE / STRING.

STRING = T.

SHIFT STRING UP TO STR CIRCULAR.

WRITE / STRING.

根据第一个或最后一个字符移动字段串

假设第一个或最后一个字符符合一定条件，则可用 SHIFT 语句将字段向左或向右移动。为此，请使用以下语法：

语法

SHIFT <c> LEFT  DELETING LEADING  <str>.

SHIFT <c> RIGHT DELETING TRAILING <str>.

SHIFT <c> LEFT DELETING LEADING <str>.

SHIFT <c> RIGHT DELETING TRAILING <str>.

假设左边的第一个字符或右边的最后一个字符出现在 <str> 中，该语句将字段 <c> 向左或向右移动。字段右边或左边用空格填充。<str> 可为变量。

代码：

DATA: T(14) VALUE '    abcdefghij',
      STRING LIKE T,
      STR(6) VALUE 'ghijkl'.
STRING = T.
WRITE STRING.
SHIFT STRING LEFT DELETING LEADING SPACE.
WRITE / STRING.
STRING = T.
SHIFT STRING RIGHT DELETING TRAILING STR.
WRITE / STRING.

DATA: T(14) VALUE ' abcdefghij',

STRING LIKE T,

STR(6) VALUE 'ghijkl'.

STRING = T.

WRITE STRING.

SHIFT STRING LEFT DELETING LEADING SPACE.

WRITE / STRING.

STRING = T.

SHIFT STRING RIGHT DELETING TRAILING STR.

WRITE / STRING.

显示结果：

5, MOVE TO 分配字符串部分

MOVE 语句的以下变体只使用类型 C 字段：

语法:

MOVE <c1> TO <c2> PERCENTAGE <p> [RIGHT].

1	MOVE <c1> TO <c2> PERCENTAGE <p> [RIGHT].

将字符字段 <c1> 的左边，百分比 <p>的部分复制到 <c2>，结果为左对齐。（如果用 RIGHT 选项指定，则为右对齐）。<p> 值可为 0 和 100 之间的任何数。将要从 <C1> 复制的长度取整为下一个整数。如果语句中某一参数不是类型 C，则忽略参数 PERCENTAGE。

DATA:  c1(10) TYPE c VALUE 'ABCDEFGHIJ',
       c2(10) TYPE c.
MOVE c1 TO c2 PERCENTAGE 40.
WRITE c2.
MOVE c1 TO c2 PERCENTAGE 40 RIGHT.
WRITE / c2.

DATA: c1(10) TYPE c VALUE 'ABCDEFGHIJ',

c2(10) TYPE c.

MOVE c1 TO c2 PERCENTAGE 40.

WRITE c2.

MOVE c1 TO c2 PERCENTAGE 40 RIGHT.

WRITE / c2.

6, 比较字符串

要比较字符串（类型 C）和数字文本（类型 N），可以在逻辑表达式中使用下列运算符。

<运算符> 含义

CO 仅包含

CN 不仅包含

CA 包含任何

NA 不包含任何

CS 包含字符串

NS 不包含字符串

CP 包含模式

NP 不包含模式

因为除类型 N 和 C 外，系统不能执行任何其它类型转换，所以，在进行包含这些运算之一的比较时，操作数应该是类型 N 或 C。运算符的功能如下：

CO (仅包含)

如果 <f1> 仅包含 <f2> 中的字符，则逻辑表达式 <f1> CO <f2> 为真。该比较区分大小写，并包括尾部空格。如果比较结果为真，则系统字段 SY-FDPOS 包括 <f1> 的长度。如果为假，则 SY-FDPOS 包含 <f1> 中第一个未在 <f2> 内出现的字符的偏移量。

CN (不仅包含 )

如果 <f1> 还包含 <f2> 之外的其他字符，则逻辑表达式 <f1> CN <f2> 为真。该比较区分大小写，并包括尾部空格。如果比较结果为真，则系统字段 SY-FDPOS 包含 <f1> 中第一个未同时在 <f2> 中出现的字符的偏移量。如果为假，SY-FDPOS 包含 <f1> 的长度。

CA (包含任何 )

如果 <f1> 至少包含 <f2> 的一个字符，则逻辑表达式 <f1> CA <f2> 为真。该比较区分大小写。如果比较结果为真，则系统字段 SY-FDPOS 包含 <f1> 中第一个也在 <f2> 中出现的字符的偏移量。如果为假，SY-FDPOS 包含 <f1> 的长度。

NA (不包含任何)

如果 <f1> 不包含 <f2> 的任何字符，则逻辑表达式 <f1> NA <f2> 为真。该比较区分大小写。如果比较结果为真，则系统字段 SY-FDPOS 包含 <f1>的长度。如果为假，则 SY-FDPOS 包含 <f1> 中在 <f2> 内出现的第一个字符的偏移量。

CS (包含字符串)

如果 <f1> 包含字符串 <f2>，则逻辑表达式 <f1> CS <f2> 为真。忽略尾部空格并且比较不区分大小写。如果比较结果为真，则系统字段 SY-FDPOS 包含 <f2> 在 <f1> 中的偏移量。如果为假，SY-FDPOS 包含 <f1> 的长度。

NS (不包含字符串)

如果 <f1> 不包含字符串 <f2>，则逻辑表达式 <f1> NS <f2> 为真。忽略尾部空格且比较不区分大小写。如果比较为真，系统字段 SY-FDPOS 包含 <f1> 的长度。如果为假，系统字段 SY-FDPOS 包含 <f2> 在 <f1> 中的偏移量。

CP (包含模式 )

如果 <f1> 包含模式 <f2>，则逻辑表达式 <f1> CP <f2> 为真。如果 <f2> 属于类型 C，则可以在 <f2> 中使用下列通配符：

* 用于任何字符串
+ 用于任何单个字符

忽略尾部空格且比较不区分大小写。如果比较结果为真，系统字段 SY-FDPOS 包含 <f2> 在 <f1> 中的偏移量。如果为假，SY-FDPOS 包含 <f1> 的长度。如果要对 <f2> 中的特殊字符进行比较，请将换码字符 # 放到其前面。可以使用换码字符 # 指定

大小写字符
通配符 "*"(输入 #*)
通配符 "+" (输入 #+)
换码符号本身 (输入 ##)
字符串结尾的空格 (输入 #___)

NP (不包含模式)

如果 <f1> 不包含模式 <f2>，则逻辑表达式 <f1> NP <f2> 为真。在<f2>中，可以使用与 CP 相同的通配符和换码字符。忽略尾部空格且比较不区分大小写。如果比较结果为真，则系统字段 SY-FDPOS 包含 <f1>. 的长度，如果为假，SY-FDPOS 包含 <f2> 在 <f1> 中的偏移量。

例子：

下表列出该程序的执行结果，取决于所用的运算符和 F1 / F2 字段。

<f1> <operator> <f2> Result SY-FDPOS

'BD ' CO 'ABCD ' 真 5

'BD ' CO 　　'ABCDE' 假 2

'ABC12' CN 　　'ABCD ' 真 3

'ABABC' CN 　　'ABCD ' 假 5

'ABcde' CA 　　'Bd ' 真 1

'ABcde' CA 　　'bD ' 假 5

'ABAB ' NA 　　'AB ' 假 0

'ababa' NA 　　'AB ' 真 5

'ABcde' CS 　　'bC ' 真 1