内表中的处理问题

fengleihen

见怪不怪了，现在做abap的有几个是计算机?是计算机的，有几个认真学过算法、数据结构等计算机课程。有学过这些课程有几个会写一些简单的排序、遍历？

chouer523

原帖由 fengleihen 于 2009-5-18 15:10 发表
见怪不怪了，现在做abap的有几个是计算机?是计算机的，有几个认真学过算法、数据结构等计算机课程。有学过这些课程有几个会写一些简单的排序、遍历？

yexin168

你说的对，是在处理这个问题... 我觉得放在一起处理起来好处理...就是写出来的时候执行比较慢， ABAP 的限制太多了..

yexin168

原帖由 fengleihen 于 2009-5-18 15:10 发表
见怪不怪了，现在做abap的有几个是计算机?是计算机的，有几个认真学过算法、数据结构等计算机课程。有学过这些课程有几个会写一些简单的排序、遍历？

请问下，我这样问个问题，应该没有必要针对这些无聊的争论上来吧。。 解决问题才是最重要的，如果要讨论这些问题，还不如去教育论坛去讨论吧..
我只是个abap 初学者，每种语言都有不同的处理方式，有必要来争论这些吗？
  这个问题归结到最后还是说 如何进行内表的处理... 其实根本不是什么算法问题。如果各位有更好的处理方式，也请麻烦提供下代码参考下。。

fengleihen

定义个内部表 key1
key1里面放 A B C这三个类似的东东
loop key1
排序 itab 关键字 和日期 升序排列
  loop itab where 日期 >= 200903 and 关键字 = key1-关键字
    exit
  endloop
  if sy-subrc <> 0.
    排序 itab 关键字 和日期 降序排列
     loop itab where 日期<200903 and 关键字 = key1-关键字
        exit
     endloop.
     if sy-subrc = 0.
       工作区内容为对象数据
     endif.
  else
     工作区内容为对象数据
  endif.
endloop

yexin168

感谢fengleihen  大力支持...   让我这个abap初学者 受益匪浅.  谢谢~

awarecan

原帖由 fengleihen 于 2009-5-20 15:15 发表
定义个内部表 key1
key1里面放 A B C这三个类似的东东
loop key1
排序 itab 关键字 和日期 升序排列
  loop itab where 日期 >= 200903 and 关键字 = key1-关键字
    exit
  endloop
  if sy-subrc  0.
    排序 itab 关键字 和日期 降序排列
     loop itab where 日期<200903 and 关键字 = key1-关键字
        exit
     endloop.
     if sy-subrc = 0.
       工作区内容为对象数据
     endif.
  else
     工作区内容为对象数据
  endif.
endloop

就做一次loop搞定的事儿，让你们搞的那么麻烦，唉。
程序 = 算法 + 数据结构

data itab type table of xxx.
data last_value like line of itab.
data found.

sort itab by key date.
loop itab.
  at new key.
    clear found.
    clear last_value.
  end at.

  if found is initial.
    if itab-date = 200903.
      itab is your need
      found = 'X'.
    elseif itab-date > 200903.
      itab is your need
      found = 'X'.
    else.
      last_value = itab.
    endif.
  endif.

  at end of key.
    if found is initial.
      last_value is your need
    endif.
  end at.
endloop.

[ 本帖最后由 awarecan 于 2009-5-21 10:08 编辑 ]

awarecan

可能连last_value都不用声明，在at end of key里直接用itab也行。

data itab type table of xxx.
data found.

sort itab by key date.
loop itab.
  at new key.
    clear found.
  end at.

  if found is initial.
    if itab-date >= 200903.
      itab is your need
      found = 'X'.
    endif.
  endif.

  at end of key.
    if found is initial.
      itab is your need
    endif.
  end at.
endloop.

[ 本帖最后由 awarecan 于 2009-5-21 10:15 编辑 ]

rosefish

原帖由 awarecan 于 2009-5-21 10:14 发表
可能连last_value都不用声明，在at end of key里直接用itab也行。

data itab type table of xxx.
data found.

sort itab by key date.
loop itab.
  at new key.
    clear found.
  end at.

  if found is initial.
    if itab-date >= 200903.
      itab is your need
      found = 'X'.
    endif.
  endif.

  at end of key.
    if found is initial.
      itab is your need
    endif.
  end at.
endloop.

“程序 = 算法 + 数据结构”
上面这个算法非常好，我觉得这是实现楼主需求的最佳算法。另外我想补充几点数据结构或者说是ABAP语法的看法：
1. loop itab 在ABAP中的语句是loop at itab.
2. end at 在ABAP中是一个关键字endat.
3. at new f. at end of f. 要考虑f前面的字段。比如内表的字段是f1,f2,...fn. 如果使用at new f2这样的语句，结果会被f1影响。详细情况请debug。
4. at end of f.语句执行后，f后面的字段值会丢失(变成*)。
因此，要用楼上的算法写一个完整的程序实现楼主的需求，可能需要解决上面的几个问题。

fengleihen

不错不错，

[ 本帖最后由 fengleihen 于 2009-5-21 12:03 编辑 ]