abap中检查字符串长度、字符串中是否有空格、前两位是否为字符、正则表达式详解编程语言

IF i_mseg
–charg <> 
”
.

 “字符串长度

  
CLEAR lv_len
.

  lv_len 
= 
strlen
( i_mseg
–charg 
)
.

  
IF lv_len < 
8
.

    
MESSAGE e005
(zmigo
)
.

  
ENDIF
.

  “字符串是否包含空格

  
IF lv_len > 
0
.

    
IF i_mseg+0
(lv_len
) 
CA space
.

      
MESSAGE e006
(zmigo
)
.

    
ENDIF
.

  
ENDIF
.

 ”字符串前两位是否为字幕

  
CLEAR lv_batch
.

  lv_batch 
= i_mseg
–charg+0
(
2
)
.

  
REPLACE 
ALL 
OCCURRENCES 
OF REGEX 
‘[A-Z]’ 
IN lv_batch 
WITH 
‘*’
.

  
REPLACE 
ALL 
OCCURRENCES 
OF REGEX 
‘[a-z]’ 
IN lv_batch 
WITH 
‘*’
.

  
IF lv_batch <> 
‘**’
.

    
MESSAGE e004
(zmigo
)
.

  
ENDIF
.


ENDIF
.