interene Tabelle nach Länge des Inhalts sortieren
12 Beiträge
•
Seite 1 von 1
12 Beiträge
Seite 1 von 1
Hallo zusammen,
ich wollte fragen ob es eine Funktion gibt eine interne Tabelle nach der Länge des Inhalts der Felder einer Spalte zu sortieren.
Bsp:
Spalte X:
1234567*
12*
3456*
98765*
gewünschtes Ergebnis nach Sort:
1234567*
98765*
3456*
12*
es geht wie gesagt nur um die Länge des Feldes. könnte natürlich loopen und eine Hilfstabelle füllen aber vll. gehts ja besser.
Beste Grüße
Basler
ich wollte fragen ob es eine Funktion gibt eine interne Tabelle nach der Länge des Inhalts der Felder einer Spalte zu sortieren.
Bsp:
Spalte X:
1234567*
12*
3456*
98765*
gewünschtes Ergebnis nach Sort:
1234567*
98765*
3456*
12*
es geht wie gesagt nur um die Länge des Feldes. könnte natürlich loopen und eine Hilfstabelle füllen aber vll. gehts ja besser.
Beste Grüße
Basler
gesponsert ⓘ
Stellenangebote auf ABAPforum.com schalten
kostenfrei für Ausbildungsberufe und Werksstudenten
kostenfrei für Ausbildungsberufe und Werksstudenten
Kann nicht ohne Hilfskonstrukt gehen, ich würde so aus der Hüfte geschossen eine Dummyspalte einbauen, Loop drüber und Länge reinballern, dann SORT descending danach.
Beitrag
von DeathAndPain (Top Expert / 1944 / 257 /
413
)
»
Die Alternative wäre, ein Sortierverfahren (Bubble Sort oder welches auch immer) selber zu programmieren, Zeilen zu vergleichen und anhand dessen hoch- oder runterzuschieben. Das dürfte aber weder kürzer noch performanter werden, ganz im Gegenteil.
Hi, wenn deine Spalte feste Länge hat, dann kannst auch zuerst den Inhalt nach rechts schieben, sortieren und dann wieder zurück 😊 .
Bsp:
Bsp:
Code: Alles auswählen.
TYPES : BEGIN OF ty_line,
spaltex TYPE c LENGTH 40,
spaltey type c length 5.
TYPES : END OF ty_line.
DATA line_tab TYPE TABLE OF ty_line.
APPEND INITIAL LINE TO line_tab ASSIGNING FIELD-SYMBOL(<line>).
<line>-spaltex = '12*'.
APPEND INITIAL LINE TO line_tab ASSIGNING <line>.
<line>-spaltex = '1234567*'.
APPEND INITIAL LINE TO line_tab ASSIGNING <line>.
<line>-spaltex = '345*'.
APPEND INITIAL LINE TO line_tab ASSIGNING <line>.
<line>-spaltex = '345767*'.
APPEND INITIAL LINE TO line_tab ASSIGNING <line>.
<line>-spaltex = '9876*'.
write : / 'Vor dem Sort'.
LOOP AT line_tab ASSIGNING <line>.
WRITE : / <line>-spaltex.
SHIFT <line>-spaltex RIGHT DELETING TRAILING space.
ENDLOOP.
SORT line_tab BY spaltex DESCENDING.
write : / 'Nach dem Sort'.
LOOP AT line_tab ASSIGNING <line>.
SHIFT <line>-spaltex LEFT DELETING LEADING space.
WRITE : / <line>-spaltex.
ENDLOOP.
Folgende Benutzer bedankten sich beim Autor edwin für den Beitrag:
a-dead-trousers
Beitrag
von DeathAndPain (Top Expert / 1944 / 257 /
413
)
»
Das ist ein ziemlich gerissener Ansatz! Ich glaube zwar nicht, dass er schneller ist, aber er ist trotzdem gerissen!
Wie genau funktioniert das... Habe shift noch nie verwendet... hmm .. kannst du das mal erklären? Also wieso funktioniert der Sort in diesem fall? Was macht das shift mit den Feldern / der Tabelle, dass es dann funktioniert?
Beitrag
von a-dead-trousers (Top Expert / 4396 / 223 /
1182
)
»
Das SHIFT "verschiebt" den Inhalt im Zielfeld um eine gewisse Anzahl nach links oder rechts. Da nun die Leerzeichen VORNE stehen und diese laut Codepage (z.B. ISO-8859-1) eine niedrigere Wertigkeit haben als andere Zeichen, funktioniert die Sortierung nun so, als ob man nach der Länge sortieren würde. Man sollte sich aber im Klaren sein, dass trotzdem zusätzlich noch die Sortierung der gleich langen Wörter nach dem Alphabet erfolgt, was je nach Aufgabenstellung gewünscht oder nicht gewünscht sein könnte.
Folgende Benutzer bedankten sich beim Autor a-dead-trousers für den Beitrag:
SaskuAc
Theory is when you know something, but it doesn't work.
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Practice is when something works, but you don't know why.
Programmers combine theory and practice: Nothing works and they don't know why.
ECC: 6.18
Basis: 7.50
Hi,
"shift right deleting trailing space"
Inhalt rechts schieben mit Löschung "angehängter" Leerzeichen
Bsp:
'1234567* ' -> ' 1234567*'
"shift left deleting leading space"
Inhalt links schieben mit Löschung führender Leerzeichen
Bsp:
' 1234567*' -> '1234567* '
am besten du schaust mal die ABAP Hilfe zu shift an
wenn du nun die "geschobenen" Daten anschaust, siehst du, dass jetzt die Sortierung, wie von dir gewünscht funktioniert:
sort descending -> Sort absteigend damit auch automatisch der Länge nach absteigend, oder sort ascending damit auch automatisch der Länge nach aufsteigend. (Auch hier wieder: schau dir die Hilfe zu sort an).
Jetzt musst du nur noch die Daten in die ursprüngliche Form bringen mit
Shift left.
Voraussetzung ist natürlich, dass keine führenden Leerzeichen in den Ausgangsdaten vorkommen.
/Edwin
"shift right deleting trailing space"
Inhalt rechts schieben mit Löschung "angehängter" Leerzeichen
Bsp:
'1234567* ' -> ' 1234567*'
"shift left deleting leading space"
Inhalt links schieben mit Löschung führender Leerzeichen
Bsp:
' 1234567*' -> '1234567* '
am besten du schaust mal die ABAP Hilfe zu shift an
wenn du nun die "geschobenen" Daten anschaust, siehst du, dass jetzt die Sortierung, wie von dir gewünscht funktioniert:
Code: Alles auswählen.
'1234567* ' -> ' 1234567*'
'12* ' -> ' 12*'
'3456* ' -> ' 3456*'
'98765* ' -> ' 98765*'
Jetzt musst du nur noch die Daten in die ursprüngliche Form bringen mit
Shift left.
Voraussetzung ist natürlich, dass keine führenden Leerzeichen in den Ausgangsdaten vorkommen.
/Edwin
Beitrag
von black_adept (Top Expert / 4090 / 127 /
940
)
»
Irgendwie mag ich Edwins Lösung. Sie ist zwar vom Grundsatz her falsch aber sollte für die meisten Fälle, die man in freier Wildbahn antrifft, funktionieren. 😜
😊
Seite 1 von 1
Vergleichbare Themen
9
Antw.
Antw.
3701
Views
Views
1
Antw.
Antw.
1553
Views
Views
1
Antw.
Antw.
2002
Views
Views
Kommentarfeld in Länge 400 in Tabelle und auf Screen - wie?
von MindMOB » 28.06.2007 13:25 • Verfasst in ABAP® für Anfänger
von MindMOB » 28.06.2007 13:25 • Verfasst in ABAP® für Anfänger
11
Antw.
Antw.
3537
Views
Views
Frage die ABAP Experten
Über diesen Beitrag
Unterstütze die Community und teile den Beitrag für mehr Leser und Austausch
Aktuelle Forenbeiträge
Newsletter Anmeldung
Keine Beiträge verpassen! Wöchentlich versenden wir lesenwerte Beiträge aus unserer Community.Die letzte Ausgabe findest du hier.