SEARCH搜索指定字符串详解

今天遇到一个问题：读取服务器目录返回文件夹信息，如果文件夹不存在就创建，下面是返回的信息

文件夹是以日期、日期的前六位命名的，此例中如果我们直接search 201503，虽然成功，但我们不能判断是不是20150315文件夹，查阅资料用SY-FDPOS解决问题。
解决思路：先获取201503字符串的位置，然后偏移量l_fdpos = sy-fdpos + 6 ； 判断gt_res-line+l_fdpos(2)是否为空来判断是不是201503文件夹。

以下是补充扩展内容：
1、SEARCH f FRO g ：g表示被搜索的字符串。

• ABBREVIATED        从指定字符串中按顺序搜索相匹配字符串。
• STARTING AT n1    从字符串n1个字符开始搜索。
• ENDING AT n2        搜索到字符串第n2个字符止。
• AND MARK             从指定字符串是模糊搜索相匹配字符串。
  

2、SEARCH itab FOR g：g表示被搜索字符串。

• ABBREVIATED                从内表中按顺序逐行搜索相匹配字符串。
• STARTING AT line1        从内表中具体某行开始搜索匹配字符串。
• ENDING AT line2                搜索最大范围到内表中具体某行。
• AND MARK                        从内表中模糊搜索相匹配字符串。
  

通过系统变量SY-SUBRC可以回执字符串查找的结果，若回执等于"0"，则表示查找成功。某段字符在字符串中的具体位置保存在系统变量SY-FDPOS中。

实例：

1. DATA search_str(50).
   
2. MOVE 'Welcome to SAP world!' TO search_str.
   
3. 
   
4. SEARCH search_str FOR 'wld' ABBREVIATED.
   
5. WRITE: / 'SY-SUBRC=',sy-subrc,
   
6.             / 'SY-FDPOS=',sy-fdpos.   "执行结果:wld按顺序包含在子字符串'world'中，SY-SUBRC=0，SY-FDPOS=15
   
7. 
   
8. SEARCH search_str FOR 'SAP' STARTING AT 10.
   
9. WRITE: / '从第十位开始：',
   
10.             / 'SY-SUBRC=',sy-subrc,
    
11.             / 'SY-FDPOS=',sy-fdpos.   "执行结果:从第10位开始查找，SY-SUBRC=0，SY-FDPOS=2
    
12. 
    
13. SEARCH search_str FOR 'SAP' ENDING AT 10.
    
14. WRITE: / '查找第十位结束：',
    
15.             / 'SY-SUBRC=',sy-subrc,
    
16.             / 'SY-FDPOS=',sy-fdpos.  "执行结果:查找到第10位结束，SY-SUBRC=4，SY-FDPOS=0
    
17. 
    
18. SEARCH search_str FOR '*AP' AND MARK.
    
19. WRITE: / '查找包含AP的子字符串，SAP符合条件，默认为查找SAP：',
    
20.             / 'SY-SUBRC=',sy-subrc,
    
21.             / 'SY-FDPOS=',sy-fdpos.  "查找包含'AP'子字符串，'SAP'符合条件，默认为查找'SAP'，SY-SUBRC=0，SY-FDPOS=11
    
22. 
    
23. SEARCH search_str FOR '*A' AND MARK.
    
24. WRITE: / '匹配字符串必须是子字符串以空格分开的最后几位：',
    
25.             / 'SY-SUBRC=',sy-subrc,
    
26.             / 'SY-FDPOS=',sy-fdpos.  "匹配字符串必须是子字符串以空格分开的最后几位，SY-SUBRC=4,SY-FDPOS=0

复制代码

对于一些特殊符号，如"*"、"@"、"."等，需要在其两边加上顿号作为修饰。如某字符串为"AAA*BBB",查找符号"*"的位置。

1. DATA search_str2(50).
   
2. MOVE 'AAA*BBB' TO search_str2.
   
3. SEARCH search_str2 FOR '.*.' ABBREVIATED.
   
4. WRITE: / 'SY-SUBRC=',sy-subrc,
   
5.        / 'SY-FDPOS=',sy-fdpos.

复制代码

从内表中查找字符串方法与上面基本类似，若内表有多行，那么字符串查找位置默认为从某行数据第一位开始。

1. DATA:BEGIN OF t_inf OCCURS 0,
   
2.        line(80),
   
3.      END OF t_inf.
   
4. *定义类型后，添加两行数据
   
5. APPEND 'HELLO SAP ' TO t_inf.
   
6. APPEND 'I am come from china' TO t_inf.
   
7. 
   
8. SEARCH t_inf FOR 'SAP' ABBREVIATED.
   
9. WRITE: / 'SY-SUBRC=',sy-subrc,
   
10.        / 'SY-FDPOS=',sy-fdpos.  "从内表第一行中可查找到，SY-SUBRC=0,SY-FDPOS=6
    
11. 
    
12. SEARCH t_inf FOR 'am' ABBREVIATED.
    
13. WRITE: / 'SY-SUBRC=',sy-subrc,  "从内表第二行中可查找到，SY-SUBRC=0,SY-FDPOS=2
    
14.        /  'SY-FDPOS=',sy-fdpos.

复制代码

学习基础语法。