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.