ABAP对字符串处理

字符串首字符索引为 0; Character Fields: C,N, D, T, string (CNDT=> CN Data Time)

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_tab} }
 [IN {BYTE|CHARACTER} MODE].

3. 字符串查找, 在一个字符串中查找模式串(FIND or SEARCH)
FIND sub_string
 IN SECTION [OFFSET off] [LENGTH len] OF dobj --> 灰色部分用来缩小目的串被查找的范围
 [ IN { BYTE | CHARACTER } MODE ]
 [ { RESPECTING | IGNORING } CASE ]
 [ MATCH OFFSET moff ] [MATCH LENGTH mlen ].

FIND 'knows'
 IN SECTION OFFSET 5 OF 'Everybody knows this is nowhere'
 MATCH OFFSET moff " => moff = 10
 MATCH LENGTH mlen. " => mlen= 5

在字符串dobj中查找pattern
SEARCH dobj FOR pattern [IN { BYTE | CHARACTER } MODE]
 [STARTING AT p1] [ENDING AT p2]
 [ABBREVIATED]
 [AND MARK].
if sy-subrc = 0. then SY-FDPOS = 返回pattern在dobj中的位置
About pattern:
'pat' - 忽略尾部空格
'.pat.' -不忽略尾部空格
'*pat' - 以pat结尾
'pat*' - 以pat开始
单词是指:　用 空格 , ; : ? ! () / + =分隔的字串

4. 字符串替换
REPLACE SECTION [OFFSET off] [LENGTH len]
 OF dobj WITH new
 [IN { BYTE | CHARACTER } MODE].

REPLACE [{FIRST OCCURRENCE}|{ALL OCCURRENCES} OF]
 [SUBSTRING] sub_string
 IN [SECTION [OFFSET off] [LENGTH len] OF ] dobj WITH new
 [IN {BYTE|CHARACTER} MODE]
 [{RESPECTING|IGNORING} CASE]
 [REPLACEMENT COUNT rcnt]
 [REPLACEMENT OFFSET roff]
 [REPLACEMENT LENGTH rlen].
eg:
DATA: text1 TYPE string VALUE 'xababx'.
REPLACE 'ab' IN text1 WITH 'xx'. --> xxxabx

5. 去前导0 (Remove leading zero)
SHIFT dobj LEFT DELETING LEADING '0'.
FM : CONVERSION_EXIT_ALPHA_OUTPUT

增前导0 (Add leading zero)
DATA v_s(5).
UNPACK '123' to v_s. ==> v_s = '00123'
FM: CONVERSION_EXIT_ALPHA_INPUT

SHIFT dobj
 [{BY num PLACES} | {UP TO sub_string}]
 [LEFT|RIGHT] [CIRCULAR]
SHIFT dobj
 {LEFT DELETING LEADING} | {RIGHT DELETING TRAILING} pattern.
 [IN {BYTE|CHARACTER} MODE].

6. 字符串的长度, 内表的行数
 STRLEN( dobj) 字符串的长度
 LINES( itab ) 内表的行数

7. 删字符串中的空格: CONDENSE text [NO-GAPS].

8. 大小写转换，字符变换
TRANSLATE text {TO {UPPER|LOWER} CASE} | {USING pattern}.
eg: text = `Barbcbdbarb`.
TRANSLATE text USING 'ABBAabba'. =>'Abracadabra'

9. CONVERT
CONVERT DATE dat [TIME tim [DAYLIGHT SAVING TIME dst]]
 INTO TIME STAMP time_stamp TIME ZONE tz.

CONVERT TIME STAMP time_stamp TIME ZONE tz
 INTO [DATE dat] [TIME tim]
 [DAYLIGHT SAVING TIME dst].

CONVERT TEXT text INTO SORTABLE CODE hex.

10. OVERLAY text1 WITH text2 [ONLY pattern].
如果不指定后面的ONLY pattern, text1中的空格会被text2中的对应字符替代
如果指定只有匹配的字符才会被替代，注意大小写敏感

11. 模式匹配
CO / CN contains only or not
CA / NA contains any or not any
CS / NS contain string or not
CP / NP contains pattern or not

NOTE:
a) . CO, NO, CA, NA比较时区分大小写，　并且尾部空格也在比较的范围之内
data: s1(10) value 'aabb'.
if s1 co 'ab' ==> false
if s1 co 'ab ' ==>true
CS, NS, CP, NP不区分大小写和尾部空格

b) .对于CP, NP
* = \s?
+ = \s
# 换码字符, 用于匹配 *, +这样的字符
 ##
 #*
 #+
 #___ 比较结尾空格
 #[a-z] 在CP, NP中强制区分大小写

c) . 比较结束后，如果结果为真，sy-fdpos将给出s2在s1中的偏移量信息

12. 特殊字符
在字符串中加入回车换行或TAB字符，在其他语言可以使用$13$10这样的ASCII码进行插入.但在ABAP中要使用sap的类CL_ABAP_CHAR_UTILITIES. 里面有字符常量:CR_LF,HORIZONTAL_TAB,NEWLINE等等.

13. 字符串位操作
DATA: v_s(10) value 'abcd'.
v_s+0(1) = 'b'.
v_s+2(*) = '12'.
=> v_s = 'bb12'.
============================================================
============================================================
ABAP對字串的操作方法與其他語言的操作有較大差別，以下是較常用的對字串操作的方法：
1. 字串的連接：CONCATENATE
DATA: t1 TYPE c LENGTH 10 VALUE 'We',
t2 TYPE c LENGTH 10 VALUE 'have',
t3 TYPE c LENGTH 10 VALUE 'all',
t4 TYPE c LENGTH 10 VALUE 'the',
t5 TYPE c LENGTH 10 VALUE 'time',
t6 TYPE c LENGTH 10 VALUE 'in',
t7 TYPE c LENGTH 10 VALUE 'the',
t8 TYPE c LENGTH 10 VALUE 'world',
result TYPE string.
CONCATENATE t1 t2 t3 t4 t5 t6 t7 t8 INTO result. "直接連接
CONCATENATE t1 t2 t3 t4 t5 t6 t7 t8 INTO result SEPARATED BY space. "用空格將每個字串連接


2. 拆分字串: SPLIT
DATA: str1 TYPE string,
str2 TYPE string,
str3 TYPE string,
itab TYPE TABLE OF string,
text TYPE string.
text = `What a drag it is getting old`.
SPLIT text AT space INTO: str1 str2 str3,
TABLE itab.
3. 去除多余的空格：CONDENSE
DATA: BEGIN OF sentence,
word1 TYPE c LENGTH 30 VALUE 'She',
word2 TYPE c LENGTH 30 VALUE 'feeds',
word3 TYPE c LENGTH 30 VALUE 'you',
word4 TYPE c LENGTH 30 VALUE 'tea',
word5 TYPE c LENGTH 30 VALUE 'and',
word6 TYPE c LENGTH 30 VALUE 'oranges',
END OF sentence,
text TYPE string.
text = sentence.
CONDENSE text.“在每個連接串中間會有一個空格
CONDENSE text No-GAPS. "在後面加入NO-GAPS後，所有空格都會去除。
4.字串轉換:TRANSLATE
DATA text TYPE string.
text = `Careful with that Axe, Eugene`.
TRANSLATE text TO UPPER CASE. "轉大寫
TRANSLATE text TO LOWER CASE. "轉小寫
　　DATA text TYPE string.
text = `Barbcbdbarb`.
TRANSLATE text USING 'ABBAabba'.　“A與B換轉 a與b換轉
5.取字串長度：STRLEN
data text type c length 20.
data: ilen type i.
text = `Barbcbdbarb`.
ilen = strlen( text ). "字串實際長度(11)
describe field text length ilen in byte mode.　"字串定義時的字節長度，一個長度等2個字節(40)
describe field text length ilen in character mode. "字串定義的長度(20)
6.截取子字串
data: text type c length 10.
data: ilen type i.
data: subtext type c length 5.
text = 'ABCDEFGHIJ'.
subtext = text+0(5). "取左邊5個字符('ABCDE')
subtext = text+3(5). "從第四個字串起取5個字符('DEFGH)
text+0(1) = 'Z'. "將第一個字符變爲'Z'
注意：+兩邊不能有空格。　
 REPORT  Z124101.
DATA string7(30) TYPE c VALUE 'ABCDEFGHIJKLMNOPQRSTUVWXYZ'.
WRITE: / 'Searched', 'SY-SUBRC', 'SY-FDPOS'.
ULINE /1(26).
SEARCH string7 FOR 'X'.
WRITE: / 'X', sy-subrc UNDER 'SY-SUBRC',
              sy-fdpos UNDER 'SY-FDPOS'.
write:/ '看这里的数据'.


      1）.SHIFT:截断字符串
         SHIFT {c} [BY {n} PLACES] [{mode}].：
             作用：去掉字符串的前n个位置的字符，如果n未指定，默认为1，如果指定的n小于等于0，则字符串不变。如果n超出字符串的长度，则字符串变空，所以在做 此操作的时候要注意n的指定。可以首先获得该字符串的长度，方法：len＝STRLEN(C)。
                 Mode：指定字符串截断的方向。
                   LEFT:从左边截断
                   RIGHT:从右边截断
                   CIRCULAR：把左边的字符放到右边。
           SHIFT {c} UP TO {str} {mode}.：
             作用：把字符串中在str以前的字符都去掉，同样可以指定mode，原理同上。
           SHIFT {c} LEFT DELETING LEADING {str}.
           SHIFT {c} RIGHT DELETING TRAILING {str}.：
             作用：这两个语句就是把字符串c中前的（LEFT）或者后的(RIGHT)的字符str都去掉。
           以上语句常用的场合：
             A．去掉字符串中的前导字符。例如：如果alv中定一了一个字段是10位的字符，里面放的是so，po等number，而你不想显示前面的0，那么就可以这样做：SHIFT {c} LEFT DELETING LEADING 0.
             B．已知某个字符串中包含固定的字符，想把这个固定字符前面的字符删掉，那么可以使用：SHIFT {c} UP TO {str}。例如：某个物料，通过增强mga00002和mga00003对其加了前缀，这个前缀部分是在某固定值表中取得的数据，在具体显示中，要把其 前缀去掉。如TE-MRP-MAT1中想把te去掉，mrp表示该物料是跑mrp的，需求要求把te－去掉，mrp可以在固定值表中取得，则可以使用 SHIFT {c} UP TO 'MRP'.
       2）.REPLACE:替换字符串
         REPLACE {str1} WITH {str2} INTO {c} [LENGTH {l}].：
             作用：把字符串c中的str1替换成str2，如果指定l，就是指定了替换的长度。如果替换成功，则SY-SUBRC设置成0。
             常用场合：
                 字符串的替换操作比较常用，需要注意的是l的指定长度。
       3）. TRANSLATE:转换字符串
           TRANSLATE {c} TO UPPER CASE.
           TRANSLATE {c} TO LOWER CASE.：
             作用：字符串的大小写的转换
           TRANSLATE {c} USING {r}. :
             作用：根据规则r转换字符串c
           常用场合：
             Sap系统一般都是使用大写字母的，但是某些特定的字段却是用小写字母来标记的，在操作这些字段的时候就需要注意大小写的转换了。转换规则倒是不太常用，到现在我还没有遇到过。
       4）. SEARCH:查找字符串
           SEARCH {c} FOR {str} {options}.：
             作用：在字符串c中查找str，如果找到了，SY-SUBRC为0，SY-FDPOS为找到字符串的具体位置。
             需要说明的地方：注意模式的使用
                 指定str：查找str，str中后面的空格忽略
                 指定.str.：查找str，包含了str中尾部的空格
                 指定*str：查找以str结尾的字符串
                 指定str*：查找以str开头的字符串
               {options}的指定：
                 主要用到的就是：STARTING AT {n1}指定开始位置
                                 ENDING AT {n2}指定结束位置
             常用场合：
                 一般用来判断某个字符串是否符合条件。也可以结合其他语句对字符串进行操作。
       5）.CONDENSE:去掉字符串中的空格
           CONDENSE {c} [NO-GAPS].：
             作用：去掉字符串中的前面和后面的空格，如果指定NO-GAPS，则去掉字符串中的所有空格。
             常用场合：获得字符串的精确长度，用于判断。
       6）.SPLIT:拆分字符串
           SPLIT {c} AT {del} INTO {c1} ... {cn}.
             作用：按照分割字符del把字符串c分割成c1…cn。
           SPLIT {c} AT {del} INTO TABLE {itab}.
               作用：按照分割字符del把c分割，然后放到内表中的相应字段
           常用场合：
               文件名的分割，根据完整的文件路径加文件名把文件名分割出来。
               难点：无法确定要分割多少次.
               解决方法：两两分割，到最后的那个就是了。例如：str=c:"dir1"dir2"dir3"file
                 Split str at '"' into str1 str2.
                 Find str2 for '/'.
                 Check sy-subrc = 0.
                 Do.
                   Find str2 for '/'.
                   If sy-subrc = 0.
                     Split str2 into str1 str2.
                   Else.
                     Exit.
                   Endif.
                 Enddo.
               文件上传的类型是字符串，把其分割后放到内表中。例如上面的问题：
                 data: begin of itab occurs 0 ,
                       col1(30) type c,
                     end of itab.
                 Split str at '"' into table itab.
                 describe table itab lines line.
                 Read table itab index line.
                 Itab-col1就是file
       7）.CONCATENATE:连接字符串
           CONCATENATE {c1} ... {cn} INTO {c} [SEPARATED BY {s}].
             作用：把c1…cn用s分隔连接到c中
             常用场合：文件下载，对文件中的字段编辑。 
       8）.SHIFT <c> [BY <n> PLACES] [<mode>].
           按照给定位置数移动字符串
        该语句将字段 <c> 移动 <n> 个位置。如果省略 BY <n> PLACES， 则将<n>解释为一个位置。如果<n> 是 0 或负值，则<c>保持不变。如果<n>超过<c>长度，则<c>用空格填充 。<n> 可为变量。


           对不同（<mode>） 选项，可以按以下方式移动字段 <c>：a.LEFT:向左移动 <n> 位置，右边用<n>个空格填充（默认设置 ）。b.RIGHT:向右移动<n>位置，左边用<n>个空格填充 。c.CIRCULAR:向左移动 <n> 位置，以便左边 <n> 个字符出现在右边。
          移动字段串到给定串
          SHIFT <c> UP TO <str> <mode>.
ABAP/4 查找<c>字段内容直到找到字符串 <str> 并将字段<c> 移动到字段边缘。 <mode> 选项与按给定位置数移动字段串中所述相同。<str> 可为变量。
如果 <c> 中找不到 <str>， 则将SY-SUBRC 设置为 4 并且不移动 <c>。否则，将 SY-SUBRC 设置为0。
          根据第一个或最后一个字符移动字段串  
        假设第一个或最后一个字符符合一定条件，则可用 SHIFT 语句将字段向左或向右移动。为此，请使用以下语法：
SHIFT <c> LEFT  DELETING LEADING  <str>.
SHIFT <c> RIGHT DELETING TRAILING <str>.
假设左边的第一个字符或右边的最后一个字符出现在 <str> 中，该语句将字段 <c> 向左或向右移动。字段右边或左边用空格填充。<str> 可为变量。 


9）.转换为可排序格式
          可以将字符字段转换为可按字母顺序排列的格式：
语法
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>].
该语句根据语言<lg>设置文本环境。对于选项COUNTRY，只要特定国家语言不同，就可以在语言以外指定国家。对于选项MODIFIER，只要一个国
家内语言不同，就可以指定另一个标识符，例如，排序顺序在电话簿和词典之间不同。
字段<lg>、<cy>和<m>必须是类型C且长度必须与表TCP0C的关键字段长度相等。表TCP0C是一个表格，从中进行平台相关的文本环境维护。在语句SETLOCALE期间，系统根据TCP0C中的条目设置文本环境。除了内部传送的平台特性之外，用SET语句指定表关键字。如果<lg>等于SPACE，则系统根据用户主记录设置文本环境。如果对于指定的关键字在表中无条目，则系统将产生运行错误。


文本环境影响ABAP/4中依赖于字符集的所有操作。
有关该主题的详细信息，参见CONVERT TEXT和SET LOCALE LANGUAGE 的关键字文档。
关于如何根据语言排序的示例，参见内表排序。
 
10) 覆盖字符字段
要用另一字符字段覆盖字符字段，请使用OVERLAY语句，用法如下：
语法
OVERLAY <c1> WITH <c2> [ONLY <str>].
该语句用<c2>的内容覆盖字段<c1>中包含<str>中字母的所有位置。<c2>保持不变。如果省略ONLY<str>，则覆盖字段<c1>中所有包含空格的位置。
如果至少要替换<c1>中的一个字符，则将SY-SUBRC设置为0。对于所有其它情况，将SY-SUBRC设置为4。如果<c1>比<c2>长，则只覆盖<c2>
中的长度。
 
11)  获得字符串长度
要决定字符串到最后一个字符而不是SPACE的长度，请使用内部函数STRLEN，用法如下：
语法
[COMPUTE] <n> = STRLEN( <c> ).
STRLEN将操作数<c>作为字符数据类型处理，而不考虑其实际类型。不进行转换。
 
12)  分配字符串部分


MOVE语句的以下变体只使用类型C字段：
语法
MOVE <c1> TO <c2> PERCENTAGE <p> [RIGHT].
将左对齐的字符字段<c1>的百分比<p>（或如果用RIGHT选项指定，则为右对齐）复制到<c2>。
<p>值可为0和100之间的任何数。将要从<f1>复制的长度取整为下一个整数。
如果语句中某一参数不是类型C，则忽略参数PERCENTAGE。
DATA C1(10) VALUE 'ABCDEFGHIJ',
     C2(10).
MOVE C1 TO C2 PERCENTAGE 40.
WRITE C2.
MOVE C1 TO C2 PERCENTAGE 40 RIGHT.
WRITE / C2.
该过程的输 出如下：
ABCD      
      ABCD