ABAP字符串处理

最新推荐文章于 2024-05-28 11:11:02 发布
最新推荐文章于 2024-05-28 11:11:02 发布
阅读量1.2k 收藏 10
点赞数 6
文章标签： 开发语言 笔记
版权声明：本文为博主原创文章，遵循 CC 4.0 BY-SA 版权协议，转载请附上原文出处链接和本声明。
本文链接：https://blog.csdn.net/qq_50300216/article/details/136901562
版权

SPLIT拆分字符串

语法：SPLIT <str> AT <c> INTO <p1> <p2> <p3>.

将str（字符串）通过c（字符串）拆分为p1，p2，p3（多个字符串）

DATA: STR TYPE STRING,
      C TYPE STRING VALUE '*',
      C1 TYPE STRING VALUE '',
      C2 TYPE STRING VALUE '',
      C3 TYPE STRING VALUE ''.
STR = 'A*B*C*D'.
WRITE STR.        "A*B*C*D
SPLIT STR AT C INTO C1 C2 C3.
WRITE:/'C1:',C1.  "P1:A
WRITE:/'C2:',C2.  "P2:B
WRITE:/'C3:',C3.  "P3:C*D

SHIFT移动字段内容

语法：SHIFT <c> [BY <n> PLACES] [<mode>].

将字段<c>移动<n>个位置，如果 <n> 是 0 或负值，则 <c> 保持不变。 如果 <n> 超过 <c> 长度，则 <c> 用空格填充 。<n> 可为变量。

[<mode>]代表方位：

  •  LEFT:向左移动 <n> 位置，右边 用 <n> 个空格填充 （默认设置 ）。
  •  RIGHT:向右移动 <n> 位置，左边 用 <n> 个空格填充 。
  •  CIRCULAR:向左移动 <n> 位置，以便 左边 <n> 个字符出现 在右边。
DATA: str(10) TYPE c VALUE 'abcdefghij',
      c LIKE str.

c = str.
WRITE /:c.                    "abcdefghij
SHIFT c.                      "bcdefghij
WRITE /:c.
c = str.
WRITE /:c.
SHIFT c BY 3 PLACES.          "defghij   后面有三个空格
WRITE /:c.
c = str.
WRITE /:c.
SHIFT c BY 3 PLACES LEFT.     "defghij   后面有三个空格  
WRITE /:c.
c = str.
WRITE /:c.
SHIFT c BY 3 PLACES RIGHT.    "   defghij
WRITE /:c.
c = str.
WRITE /:c.
SHIFT c BY 3 PLACES CIRCULAR. "defghijabc
WRITE /:c.

移动字符串中的某字段

语法：SHIFT <str> UP TO <c>  <mode>.

在<str>字符串中查找<c>字段，找到了便将<c>字段移动到字符串<str>的边缘，<mode>和上文一致，<str>中找不到<c>字段则将 SY-SUBRC 设置为 4 并且不移动 <c>。

DATA: string(10) TYPE c VALUE 'abcdefghij',
      str LIKE string,
      c(2) TYPE c VALUE 'cd'.

str = string.
WRITE /:str.                  "abcdefghij
SHIFT str UP TO c.            "cdefghij
WRITE /:str.
str = string.
WRITE /:str.
SHIFT str UP TO c LEFT.       "cdefghij
WRITE /:str.
str = string.
WRITE /:str.
SHIFT str UP TO c RIGHT.      "      abcd
WRITE /:str.
str = string.
WRITE /:str.
SHIFT str UP TO c CIRCULAR.   "cdefghijab
WRITE /:str.

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

语法：SHIFT <str> LEFT[RIGHT] DELETING LEADING <c>.

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

DATA: string(15) TYPE c VALUE '     abcdefghij',
      str LIKE string,
      c(4) TYPE c VALUE 'ghij'.

str = string.
WRITE /:str.                                    "     abcdefghij
SHIFT str LEFT DELETING LEADING space.          "abcdefghij
WRITE /:str.
str = string.
WRITE /:str.
SHIFT str LEFT DELETING LEADING c.              "     abcdefghij
WRITE /:str.
str = string.
WRITE /:str.
SHIFT str RIGHT DELETING TRAILING space.        "     abcdefghij
WRITE /:str.
str = string.
WRITE /:str.
SHIFT str RIGHT DELETING TRAILING c.            "         abcdef
WRITE /:str.

CONDENSE压缩字段内容

语法：CONDENSE <str> [NO-GAPS].

该语句去除字段中的前导空格并用一个空格替换其它空格序列（有多个空格的会剩一个空格）。 如果指定附 加的 NO-GAPS， 则去除所有空格。

DATA: str(15) TYPE c VALUE '     a  b  c'.

WRITE /:str.                 "     a  b  c
CONDENSE str.
WRITE /:str.                 "a b c
str = '     a  b  c'.
CONDENSE str NO-GAPS.
WRITE /:str.                 "abc

CONCATENATE连接字符串

语法：CONCATENATE <c1>...<cn> INTO <c> [SEPARATED BY <s>].

将c1>...<cn>等字段连接到<c>中，<s>为分隔符

DATA: c(30) TYPE c,
      c1(5) TYPE c VALUE 'aaaaa',
      c2(5) TYPE c VALUE 'bbbbb',
      c3(5) TYPE c VALUE 'ccccc',
      s1(3) TYPE c VALUE ' - ',
      s2(1) TYPE c VALUE '-'.

CONCATENATE c1 c2 c3 INTO c.                   "aaaaabbbbbccccc
WRITE /:c.
CONCATENATE c1 c2 c3 INTO c SEPARATED BY s1.   "aaaaa - bbbbb - ccccc
WRITE /:c.
CONCATENATE c1 c2 c3 INTO c SEPARATED BY s2.   "aaaaa-bbbbb-ccccc
WRITE /:c.

STRLEN、XSTRLEN获取字符串长度

语法：<n> = STRLEN(<c>)

STRLEN 将操作数 <c> 作为字符数 据类型处理 ，而不考虑其实际类型 。

DATA: int TYPE i,
      c1(20) TYPE c VALUE '12345',
      c2(20) TYPE c VALUE '  3  ',
      c3(20) TYPE c.
int = strlen( c1 ).         "5
WRITE / int.
int = strlen( c2 ).         "3
WRITE / int.   
int = strlen( c3 ).         "0
WRITE / int.

SEARCH搜索字符串

语法：SEARCH <str> FOR <c> <options>.

<pattern>                 搜索 <pattern>（任何字符顺序）。忽略尾部空格。  

.<pattern>.               搜索 <pattern> ，但是不忽略尾部空格 。

*<pattern>               搜索以 <pattern> 结尾的词。  

<pattern>*               搜索以 <pattern> 开始的词。  

该语句在字段<str>中搜索<c>中的字符串，如果成功 ，则将 SY-SUBRC 的返回代码值设置为0，并将 SY-FDPOS设置为字段<c>中该字符串的偏移量。否则将 SY-SUBRC 设置为4。

DATA: str(30) TYPE c VALUE 'This is a test.'.
SEARCH str FOR 'X'.
WRITE : sy-subrc,sy-fdpos.  "4,0
SKIP.
SEARCH str FOR 'i'.
WRITE : sy-subrc,sy-fdpos.  "0,2
SKIP. 
SEARCH str FOR '.a.'.
WRITE : sy-subrc,sy-fdpos.  "0,8
SKIP.
SEARCH str FOR '*t'.
WRITE : sy-subrc,sy-fdpos.  "0,10
SKIP.
SEARCH str FOR 't*'.
WRITE : sy-subrc,sy-fdpos.  "0,0

搜索字符字段 <str> 的各种选项 （<options>） 如下：

  • ABBREVIATED

在字段 <str> 中搜索包含 <c> 中的单词， 其中字符可以被其它字符隔开，但是单词和字符串的第一个字母必须相同 。

  •  STARTING AT <n1>

在字段 <str> 中搜索从 <n1> 开始的 <c> 。结果 SY-FDPOS 参照相对于 <n1> 的偏移量而 不是字段的 开始。

  • ENDING AT <n2>

在字段 <str> 搜索 <c> 直到位置 <n2>。

  •  AND MARK

如果找到搜索串，则将搜索串中的所有字符（使用ABBREVIATED 时的所有字符）转换为大写形式。

DATA: STRING(30) VALUE 'This is a fast first example.',
      POS TYPE I,
      OFF TYPE I.
WRITE / STRING.                        "This is a fast first example.
SEARCH STRING FOR 'ft' ABBREVIATED.
WRITE: / 'SY-FDPOS:', SY-FDPOS.        "10
POS = SY-FDPOS + 2.
SEARCH STRING FOR 'ft' ABBREVIATED STARTING AT POS AND MARK.
"在找到单词‘ fast’之后，为了查找包含‘ ft’的第二个单词，必须在偏移量SY-FDPOS上加2，
"然后从位置POS开始查找。否则，会再次找到单词 ‘fast’ 。
"要获得‘ first’ 相对于字段 STRING 开始的偏移量，从 POS 和 SY-FDPOS 计算。
WRITE / STRING.                        "This is a fast FIRST example.
WRITE: / 'SY-FDPOS:', SY-FDPOS.        "4
OFF = POS + SY-FDPOS -1.
WRITE: / 'Off:', OFF.                  "15

在找到单词‘ fast’ 之后，为了 查找包含‘ ft’的第 二个单词， 必须在偏移 量 SY-FDPOS 上加2，然 后从位置 POS 开始查找。 否则，会再 次找到单词 ‘fast’ 。要获得‘ first’ 相对于字段 STRING 开始的偏移 量，从 POS 和 SY-FDPOS 计算。

OVERLAY覆盖字符字段

语法：OVERLAY <c1> WITH <c2> [ONLY <str>].

该语句用字符串 <c2> 中相应位置上的内容“覆盖” 字段 <c1> 中包含 <str> 中字母的所有位置。<c2> 保持不变。如果省略 ONLY <str>， 则覆盖字段 <c1> 中所有包含空格的位置 ，如果没有空格，则<c1>不会被“覆盖”。如果至少要替换 <c1> 中的一个字符，则将 SY-SUBRC设置为 0。对于所有其它情况 ，将SY-SUBRC设置为4。如果 <c1> 比 <c2> 长，则只覆盖 <c2> 中的长度。

OVER '1 2 3' WITH '456   '. 结果为：152 3。

OVER '1 2 3' WITH '456' only '12'.结果为：4 6 3 。

OVER '123' WITH '456'.结果为：123。（没有空格）

OVER '1 2 3 ' WITH '456   ' only '13' .结果为：4 2  。

REPLACE替换字段内容

语法：REPLACE <c1> WITH <c2> INTO <str> [LENGTH <l>].

将<str>字符串中的第一个<c1>替换成<c2>，若指定了长度则替换该长度内的字段（c1的长度）

REPLACE ALL OCCURRENCES OF '*' IN <str> WITH space.

将<str>中的'*'去掉

DATA: str(30) TYPE c VALUE 'abcdefghij.',
      c LIKE str,
      c1(4) TYPE c VALUE 'cdef',
      c2(4) TYPE c VALUE 'klmn',
      c3(3) TYPE c VALUE 'opq',
      len TYPE i VALUE 2.

c = str.
WRITE c.
REPLACE c1 WITH c2 INTO c.                "abklmnghij.
WRITE / c.
c = str.
REPLACE c1 WITH c2 INTO c LENGTH len.     "abklmnefghij.
WRITE / c.
c = str.
REPLACE c1 WITH c3 INTO c.                "abopqghij.
WRITE / c.
c = str.
REPLACE ALL OCCURRENCES OF '.' IN c WITH space.   "abcdefghij
WRITE / c.

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

TRANSLATE <c> TO UPPER CASE.   转大写

TRANSLATE <c> TO LOWER CASE.  转小写

TRANSLATE <c> USING <r>.   该语句根据字段 <r> 中存储的替换规则替换字段 <c> 的所有字符

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

江曦仁
关注
  • 6
    点赞
  • 踩
  • 10
    收藏
    觉得还不错? 一键收藏
  • 0
    评论
ABAP 根据长文本拆分至内表
01-07
需求：现有ABAP长文本一条，根据其内容每132个字符就截取到内表中保存，请问什么方式合适？ 实现： DATA : STR TYPE STRING. DATA : LENGTH TYPE I. STR = ‘132dsfaf456135asd1f5sda6f4s13246543ad31f32dsa4ffdsafsdafffffffffffffffffffffffffffffffffffffffffffffffffffffffffffffff65sad4f32sda1f23’. DAT
abap处理字符串
diaobishang2107的博客
10-31 159
1.字符串连接CONCATENATE dobj1 dobj2 ... INTO result[IN { BYTE | CHARACTER } MODE][SEPARATED BY sep].2.字符串分隔, split一个string的部分到一个内表或一系列的变量SPLIT dobj AT sep INTO{ {result1 result2 ...} | {TABLE result...
SAP-ABAP-字符串操作示例解析
最新发布
baidu_35680696的博客
05-28 1467
ABAP字符串处理方式丰富多样，以下是几种常见的处理方式，按照功能分类进行归纳：
ABAP常用字符串操作
03-24
1. 字符串连接 2.字符串分隔, split 一个 string 的部分到一个内表或一系列的变量
ABAP: 分割字符串
qq_39128364的博客
10-10 6131
ABAP:字符串操作
SAP ABAP 单字符多字符拆分的使用方法
秋成的博客
08-03 2936
上述方法只适合单个的分割符号。一：SPLIT 的使用方法。
ABAP学习笔记-基础语法-05-字符串的处理（02）
Kerwin-G的博客
12-09 1298
原文链接：https://mp.weixin.qq.com/s/LJd34Mzzk9fbXjWlroQS4w 大家可以关注我个人公众号，所有分享内容，会在公众号第一时间推送，且阅读排版更好。 愿大家的学习，轻松且愉快。 如果大家觉得有用，希望转发关注，谢谢 导读 本篇，我们简单分享字符串处理基础语法的第二部分：查找、合并拆分及去除空格等。 正文 查找 字符串的查找，是指在字符串或内表中查找指定的字符串。 关键语法：SEARCH…FOR…. 举例如下： ...
[SAP ABAP] 字符串操作
Hudas的博客
01-23 2699
本文主要讲解SAP ABAP中的字符串操作相关知识点
ABAP字符串SQL Functions语法总结
12-22
ABAP是一种专为SAP系统设计的编程语言，而在ABAP中处理字符串时，SQL Functions提供了许多方便的方法。本文将对ABAP SQL Functions for Strings进行详细的语法总结。 首先，我们来讨论一下如何在ABAP SQL中跨Client...
ABAP常用字符串操作收集整理
09-09
ABAP 字符串操作收集整理 ABAP 中的字符串操作是开发者日常工作中不可或缺的一部分，本文将对 ...ABAP 中的字符串操作提供了多种方式来处理字符串，开发者可以根据实际情况选择合适的操作方式来实现字符串的处理任务。
abap处理字符串[参考].pdf
10-11
在ABAP中，字符串处理是非常重要的一部分，今天我们将学习ABAP中处理字符串的各种方法。 一、移动字段内容 ABAP中移动字段内容有多种方法，下面我们将分別介绍。 1、按给定位置数移动字符串 语法：SHIFT <c> [BY...
abap处理字符串[借鉴].pdf
10-19
理解并熟练掌握这些字符串处理方法对于编写高效的ABAP代码至关重要，它们在数据处理、文本分析和用户界面交互等场景中都有广泛应用。在实际编程中，可以根据需求灵活运用这些语句，以实现字符串的精确操作和管理。
ABAP加密和解密.doc
05-22
这些方法支持对字符串、二进制数据甚至整个表进行加密。 解密则是加密的逆过程，将密文还原为原始明文。在ABAP中，对应的解密函数如`cl_abap_decrypt`类可以用来恢复加密的数据。使用这些函数时，需要确保正确地...
ABAP 动态拆分根据指定字符拆分字符串‘/‘
FQHX_116的博客
03-21 581
ABAP 动态拆分根据指定字符拆分字符串'/'
ABAP按字符串长度拆分
su-george的博客
12-05 1468
CLEAR :k_len,k_val,k_str0,k_str,k_str0. k_len = cl_abap_list_utilities=>dynamic_output_length( tab2-kdmat ). " 字节长度 IF k_len > 12. CALL FUNCTION 'TEXT_SPLIT' ...
ABAP 关键字：SPLIT
qq_42961300的博客
09-13 2640
ABAP开发中，常用的字符串分割方法。
abap 自动按位切割字符串
zhouxu841023的专栏
06-23 2244
<br />    先解释一下什么是自动按位切割字符串 ，例如: c1(10) type c value '123,，你好'. c2(9) type c .<br />将 c2 = c1 .此时由于c1中最后一字符是中文占两个字节，那么c2中得到的数据将会是 c2 = '123,，你> ' <-----------出现了乱码。<br />   为了解决这个问题，我写了一个函数如果最后一位是两个字节而被赋值得变量是只剩一个字节空间时，放弃最后一个字符。<br />例如： <br />      CALL FU
ABAP中字符串处理方法小结（一）
banin4739的博客
08-30 1401
1, 拆分字符串split 语法： SPLIT <c> AT <del> INTO <c1> ... <cn>. 代码： DATA: STRING(60), P1(20) VALUE '', P2(20) VALUE '', P3(20) VALUE '', P4(...
abap字符串拆分成固定的几部分
抗体的博客
03-23 6676
情景：有一个字符串（比如12345678），       我们想得到它的前四位的数字（比如 1 2 3 4） 我们使用SAP的标准function TEXT_SPLIT可以实现想要的功能。 这个function， 输入参数 length每次拆分length个字符，text是要拆分的原串。 输出参数line表示的是拆分所得的字符，rest表示原串被拆分后剩下的新串。 测试代码如下所示：
abap 字符串替换
09-12
在 ABAP 中进行字符串替换可以使用 REPLACE 函数。REPLACE 函数用于将一个字符串中的子串替换为另一个字符串。 ABAP 中 REPLACE 函数的语法如下： REPLACE source WITH replacement INTO target. 其中，source 是要进行替换操作的原始字符串，replacement 是要替换成的新字符串，target 是替换后的结果字符串。 以下是一个示例： DATA: lv_string TYPE string. lv_string = 'Hello, World!'. REPLACE 'World' WITH 'ABAP' INTO lv_string. WRITE: / lv_string. 执行上述代码后，lv_string 中的字符串将会被替换为 "Hello, ABAP!"。 还可以使用 REPLACE ALL OCCURRENCES OF 来替换所有出现的子串。例如： DATA: lv_string TYPE string. lv_string = 'ABAP is a powerful programming language. ABAP is widely used in SAP systems.'. REPLACE ALL OCCURRENCES OF 'ABAP' WITH 'ABAP/4' INTO lv_string. WRITE: / lv_string. 执行上述代码后，lv_string 中的字符串将会被替换为 "ABAP/4 is a powerful programming language. ABAP/4 is widely used in SAP systems."。 注意：替换操作是大小写敏感的，如果需要进行大小写不敏感的替换，可以使用相关的函数或方法进行处理。
评论
添加红包

请填写红包祝福语或标题

个

红包个数最小为10个

元

红包金额最低5元

当前余额3.43元 前往充值 >
需支付：10.00元
成就一亿技术人!
领取后你会自动成为博主和红包主的粉丝 规则
hope_wisdom
发出的红包
实付元
使用余额支付
点击重新获取
扫码支付
钱包余额 0

抵扣说明：

1.余额是钱包充值的虚拟货币，按照1:1的比例进行支付金额的抵扣。
2.余额无法直接购买下载，可以购买VIP、付费专栏及课程。

余额充值