ABAP 字符串

发表于 更新于 分类于 ， 阅读次数： 本文字数： 1.2k 阅读时长 ≈ 4 分钟

ABAP 字符串

ℹ️概述
在ABAP编程中广泛使用的字符串是一系列字符。我们使用数据类型C变量保存字母数字字符，最少为1个字符，最多为65,535个字符。默认情况下，这些向左对齐。

📝 创建字符串

基本声明

以下声明和初始化创建一个由”Hello”字组成的字符串。字符串的大小正好是单词”Hello”中的字符数。

1
Data my_Char(5) VALUE 'Hello'.

示例程序

1
2
3
REPORT YT_SEP_15.  
DATA my_Char(5) VALUE 'Hello'.  
Write my_Char.

输出：

1
Hello

📏 字符串长度

为了找到字符串的长度，我们可以使用 STRLEN语句。STRLEN()函数返回字符串中包含的字符数。

示例

1
2
3
4
5
6
7
REPORT YT_SEP_15.
DATA: 
  title_1(10) VALUE 'Tutorials',
  length_1 TYPE I.

length_1 = STRLEN( title_1 ).
Write: / 'The Length of the Title is:', length_1.

输出：

1
The Length of the Title is: 9

🔧 字符串操作语句

ABAP支持处理字符串的各种语句。

编号 语句 用途
1 CONCATENATE 连接两个字符串形成第三个字符串
2 CONDENSE 删除空格字符
3 STRLEN 用于查找字段的长度
4 REPLACE 用于以字符进行替换
5 SEARCH 在字符串中运行搜索
6 SHIFT 用于向左或向右移动字符串的内容
7 SPLIT 用于将字段的内容拆分为两个或多个字段

📝 字符串操作示例

1. CONCATENATE - 字符串连接

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
REPORT YT_SEP_15.
DATA: 
  title_1(10) VALUE 'Tutorials',
  title_2(10) VALUE 'Point',
  sep TYPE C VALUE ' ',
  dest1(30),
  dest2(30).

" 直接连接
CONCATENATE title_1 title_2 INTO dest1.
Write: / 'Concatenation:', dest1.

" 带分隔符的连接
CONCATENATE title_1 title_2 INTO dest2 SEPARATED BY sep.
Write: / 'Concatenation with Space:', dest2.

输出：

1
2
Concatenation: TutorialsPoint
Concatenation with Space: Tutorials Point

2. CONDENSE - 压缩空格

1
2
3
4
5
6
7
8
9
DATA: spaced_title(30) VALUE 'Tutorials  Point  Limited'.

" 压缩空格（保留一个）
CONDENSE spaced_title.
Write: / 'Condense with Gaps:', spaced_title.

" 删除所有空格
CONDENSE spaced_title NO-GAPS.
Write: / 'Condense with No Gaps:', spaced_title.

输出：

1
2
Condense with Gaps: Tutorials Point Limited
Condense with No Gaps: TutorialsPointLimited
📌CONDENSE说明
  • CONDENSE语句删除字段之间的空格，但只留下1个字符的空格
  • ‘NO-GAPS’是CONDENSE语句的可选添加，删除所有空格

🔍 其他字符串操作

3. REPLACE - 字符替换

1
2
3
4
DATA: text TYPE C VALUE 'Hello World'.

REPLACE 'World' WITH 'ABAP' INTO text.
Write: / 'After REPLACE:', text.

输出：

1
After REPLACE: Hello ABAP

4. SEARCH - 字符串搜索

1
2
3
4
5
6
7
8
9
10
DATA: 
  text TYPE C VALUE 'This is a test string',
  offset TYPE I.

offset = SEARCH text FOR 'test'.
IF offset > 0.
  Write: / 'Found at position:', offset.
ELSE.
  Write: / 'Not found'.
ENDIF.

输出：

1
Found at position: 11

5. SHIFT - 字符串移动

1
2
3
4
5
6
7
8
9
10
DATA: text TYPE C VALUE 'ABAP'.

" 向左移动2位
SHIFT text BY 2 PLACES TO THE LEFT.
Write: / 'After left shift:', text.  " 输出: AP

" 重置并向右移动
text = 'ABAP'.
SHIFT text BY 2 PLACES TO THE RIGHT.
Write: / 'After right shift:', text.  " 输出:  ABAP

6. SPLIT - 字符串分割

1
2
3
4
5
6
7
8
DATA: 
  full_name TYPE C VALUE 'John Doe',
  first_name(10),
  last_name(10).

SPLIT full_name AT SPACE INTO first_name last_name.
Write: / 'First Name:', first_name.
Write: / 'Last Name:', last_name.

输出：

1
2
First Name: John
Last Name: Doe

🎯 高级字符串操作

多字符串连接

1
2
3
4
5
6
7
8
9
DATA: 
  part1 TYPE C VALUE 'Hello',
  part2 TYPE C VALUE ' ',
  part3 TYPE C VALUE 'World',
  result TYPE C VALUE 'CONCATENATE part1 part2 part3 INTO result'.

" 使用WITH选项
CONCATENATE part1 part2 part3 INTO result SEPARATED BY space.
Write: / 'Result:', result.

动态字符串处理

1
2
3
4
5
6
7
8
DATA: 
  text TYPE C VALUE 'Initial Text',
  search_char TYPE C VALUE 'x',
  replace_char TYPE C VALUE 'y'.

" 动态替换
REPLACE ALL OCCURRENCES OF search_char WITH replace_char INTO text.
Write: / 'After replace all:', text.

⚠️ 注意事项

1. 字符串长度限制

1
2
3
4
5
" ❌ 错误：超过最大长度
DATA: too_long TYPE C VALUE 'A very long string...'.

" ✅ 正确：声明足够长度
DATA: proper_length(65535) VALUE 'A very long string...'.

2. 字符串对齐

1
2
3
4
5
" C类型向左对齐
DATA: left_aligned(10) VALUE 'ABAP'.

" 查看填充情况
Write: / 'Left aligned:', left_aligned.

3. 特殊字符处理

1
2
3
4
5
6
7
" 处理特殊字符
DATA: 
  text TYPE C VALUE 'Line 1\nLine 2',
  escaped_text TYPE C VALUE 'Line 1\\nLine 2'.

Write: / 'Original:', text.
Write: / 'Escaped:', escaped_text.

💡 实际应用场景

1. 文本格式化

1
2
3
4
5
6
7
8
9
10
" 格式化输出
DATA: 
  name TYPE C VALUE 'John Doe',
  age TYPE I VALUE 30,
  output TYPE C VALUE 100.

FORMAT COLOR COL_POSITIVE.
WRITE: / 'Name:', name.
FORMAT COLOR COL_NEGATIVE.
WRITE: / 'Age:', age.

2. 数据验证

1
2
3
4
5
6
7
8
" 验证输入
DATA: input TYPE C VALUE '12345'.

IF STRLEN( input ) = 5 AND input CO '0123456789'.
  WRITE: / 'Valid input'.
ELSE.
  WRITE: / 'Invalid input'.
ENDIF.

3. 文本处理

1
2
3
4
5
6
7
8
9
10
" 处理多行文本
DATA: 
  text TYPE C VALUE 'First line\nSecond line\nThird line',
  line TYPE C(50).

SPLIT text AT '\n' INTO TABLE DATA(lt_lines).

LOOP AT lt_lines INTO line.
  WRITE: / line.
ENDLOOP.

📊 字符串操作性能对比

操作 时间复杂度 适用场景
CONCATENATE O(n+m) 字符串连接
STRLEN O(1) 获取长度
SEARCH O(n) 查找子串
REPLACE O(n) 字符替换
SHIFT O(n) 字符移动
SPLIT O(n) 字符分割

💡 最佳实践

1. 字符串设计原则

  • 使用合适的长度声明
  • 考虑字符对齐需求
  • 避免硬编码字符串

2. 性能优化

  • 避免频繁的字符串操作
  • 使用合适的字符串函数
  • 注意大字符串的内存使用

3. 代码质量

  • 使用有意义的变量名
  • 添加必要的注释
  • 保持字符串操作的清晰

4. 错误处理

  • 检查字符串长度
  • 验证字符串内容
  • 处理可能的异常情况