Chinaunix首页 | 论坛 | 博客
  • 博客访问: 149960
  • 博文数量: 54
  • 博客积分: 0
  • 博客等级: 民兵
  • 技术积分: 508
  • 用 户 组: 普通用户
  • 注册时间: 2013-09-18 09:25
个人简介

好男人就是我,我就是你兵哥

文章分类

全部博文(54)

我的朋友

分类: IT职场

2013-10-15 17:01:46

  data lv_str type string value  'asdfadfadfadfadf'.
  data lv_offset type i.
  data lv_bytes_rd type i.
  data lv_bytes_rm type i.
  data lv_strlen type i.
  field-symbols:   TYPE ANY.


  lv_strlen   = XSTRLEN( lv_str ).
  lv_offset   = 1022.
  lv_bytes_rd = 0.
  lv_bytes_rm = lv_strlen.


  ASSIGN lv_str TO .


  WHILE lv_bytes_rd LT lv_strlen.
    IF  lv_bytes_rm LT lv_offset.
      ls_content-line = +lv_bytes_rd(lv_bytes_rm).
    ELSE.
      ls_content-line = +lv_bytes_rd(lv_offset).
    ENDIF.
    APPEND ls_content TO lt_content.
    lv_bytes_rd = lv_bytes_rd + lv_offset.
    lv_bytes_rm = lv_strlen - lv_bytes_rd.
    CLEAR ls_content.
  ENDWHILE.
阅读(456) | 评论(0) | 转发(0) |
给主人留下些什么吧!~~