Daten nach größe sortieren!

Die Objektorientierung mit ABAP®: Vererbung, Dynamische Programmierung, GUI Controls (u.a. ALV im OO).

Daten nach größe sortieren!

Postby Alva1590 » Tue Jun 24, 2003 9:51 am

hi alleimiteinander,

.. ich habe ein kleines Probelm:

- wie kann ich zu folgende werte mir die gößten(hier X) in eine extra tabelle schreiben:

...../02/1
...../02/2
...../02/3 X
...../03/1 X
...../04/1
...../04/2 X
...../05/1

usw.!

wären es nur einträge, würde ich drüber loopen und mir den ersten wert n eine variable schreiben und dann jeden weitere vergleichen und wenn größer ersetzen und schließlich mit append in meine tabelle schreiben; nun weis ich nich, wei ich mit den "/" umgehen soll! die Länge ist hier immer fest, so gibt es immer nur ..../XX/X.

schoenen dank im vorraus für jeden tip.
Alva1590
.....
.....
 
Posts: 4387
Joined: Mon Dec 02, 2002 3:01 pm

Postby Ilja583 » Tue Jun 24, 2003 2:33 pm

Hi werauchimmer,

Orignaltab: Deine Ausgangstabelle
maximaltab: Die Tabelle mit den Maximalwerten
neutab: Temporäre Hilfstabelle

Vorgehensweise: (nur skizziert)
Bau dir eine neue Tabelle neutab mit einer etwas anderen Struktur:

anfang(??) " bis zum 1. "/"
zahl1(2) type n,
slash(1), " 2. "/"
zahl2(1) type n,
ende(??) " falls da noch was ist.

Die beiden Tabellen sollten so zumindest dieselbe Strukturlänge aufweisen.

jetzt: neutab[] = originaltablle[].

sort neutab by zahl1 descending zahl2 descending.
delete adjacent duplicates from neutab comparing zahl1 zahl2.

maximaltab[] = neutab[].

Das sollte es wohl in etwa tun. Ich habs nicht getestet, aber Feinheiten musst du halt selber ausprogrammieren
Ilja583
.....
.....
 
Posts: 1372
Joined: Wed Jan 08, 2003 3:00 pm

Postby Willy1492 » Wed Jun 25, 2003 11:09 am

Den Umweg über eine Hilfstabelle kann man sich evtl. auch sparen.
zumindest für zeichenartige Felder funktioniert auch so etwas:
Code: [Select all] [Expand/Collapse] [Download] (Untitled.txt)
  1. SORT itab BY f1 f2(1) f2+1(1) DESCENDING f2+2(2) ...
GeSHi ©

Frank
Willy1492
....
....
 
Posts: 581
Joined: Tue Dec 03, 2002 4:44 pm


Return to ABAP Objects®

Who is online

Users browsing this forum: No registered users and 12 guests