Chinaunix首页 | 论坛 | 博客
  • 博客访问: 386645
  • 博文数量: 66
  • 博客积分: 1235
  • 博客等级: 少尉
  • 技术积分: 694
  • 用 户 组: 普通用户
  • 注册时间: 2010-03-05 12:24
文章分类

全部博文(66)

文章存档

2010年(66)

分类:

2010-10-19 13:32:09

DATA: alpha_num(120) TYPE c.
alpha_num = ' abcdefghijklopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ0123456789,./;''[]\-=`<>?:".
IF input CA alpha_num.
  output = '不仅仅全是汉字'.
ELSE.
  output = '全是汉字'.
ENDIF.
IF NOT input CO alpha_num.
  output = '含有汉字'.
ELSE.
  output = '不含有任何汉字'.
ENDIF.

提取汉字
data len type i.
data n type i.
len = strlen( input ).
do len times.
  n = sy-index - 1.
  if not alpha_num cs input+n(1).
    concatenate output input+n(1) into output.
  endif.
enddo.
阅读(6152) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~