meta data for this page
  •  

Unterschiede

Hier werden die Unterschiede zwischen zwei Versionen der Seite angezeigt.

Link zu der Vergleichsansicht

Nächste Überarbeitung		Vorherige Überarbeitung
sortieren-von-texten [2013/02/24 15:17] – Externe Bearbeitung 127.0.0.1sortieren-von-texten [2020/01/03 11:04] (aktuell) – michael
Zeile 1: Zeile 1:
 ====== Sortieren von Texten ====== ====== Sortieren von Texten ======
-\\ Die zum alphanumerischen Sortieren wohl bekannteste Routine dürfte "QuickSort" sein, eine rekursive und daher sehr schnelle Anwendung. Man muss nur die zu sortierenden Texte in ein eindimensionales Array übertragen und dann "QuickSort" mit dem Array und Unter- und Obergrenze des Arrays aufrufen. Soll das ganze Array sortiert werden, was der Normalfall sein dürfte, reicht es für Ober- und Untergrenze jeweils "" einzutragen. Nach dem Durchlauf stehen die Texte in sortierter Reihenfolge im Array zur Verfügung.\\ \\ Mit dem folgenden Skriptbeispiel wird ein Dialog aufgerufen, der die Eingabe beliebiger Texte erlaubt, bzw. wo man über einen Button einen Beispieltext aufrufen kann. Nach Mausklick auf "Sortieren" werden diese Texte im Ergebnisfenster sortiert angezeigt.\\ \\ \\ {{/file/view/Sortieren.gif/356399406/Sortieren.gif|Sortieren.gif}} + 
-==== Sortieren (vbs) ====+Die zum alphanumerischen Sortieren wohl bekannteste Routine dürfte "QuickSort" sein, eine rekursive und daher sehr schnelle Anwendung. Man muss nur die zu sortierenden Texte in ein eindimensionales Array übertragen und dann "QuickSort" mit dem Array und Unter- und Obergrenze des Arrays aufrufen. Soll das ganze Array sortiert werden, was der Normalfall sein dürfte, reicht es für Ober- und Untergrenze jeweils "" einzutragen. Nach dem Durchlauf stehen die Texte in sortierter Reihenfolge im Array zur Verfügung.\\ \\ Mit dem folgenden Skriptbeispiel wird ein Dialog aufgerufen, der die Eingabe beliebiger Texte erlaubt, bzw. wo man über einen Button einen Beispieltext aufrufen kann. Nach Mausklick auf "Sortieren" werden diese Texte im Ergebnisfenster sortiert angezeigt. 
 + 
 +{{::sortieren.gif?nolink|}} 
 + 
 +===== Sortieren (vbs) ===== 
 + 
 +<code VBScript [enable_line_numbers="true"]>
   'FFSubmenu=Test   'FFSubmenu=Test
   'FFName=Sortieren   'FFName=Sortieren
Zeile 95: Zeile 101:
   End Sub   End Sub
   '------------------------------------------------------------------------   '------------------------------------------------------------------------
 +</code>
        
-\\ Wie man am Sortierergebnis des Beispieltextes sehen kann, erfolgt die Sortierung nach ASCII-Werten. Das hat zur Folge, dass erst nach Großbuchstaben, dann nach Kleinbuchstaben und zum Schluss nach Umlauten sortiert wird.\\ \\ Wünschenswert ist natürlich, dass unabhängig von Groß- und Kleinschreibung sortiert wird und die Umlaute Ä, Ö, Ü bzw. ä, ö, ü wie Ae, Oe, Ue bzw. ae, oe, ue behandelt werden. Um letzteres zu erreichen, zumindest jeweils für den Anfangsbuchstaben eines Textes, kann man als Vorbereitung zum Sortieren die Umlaute bei den Anfangsbuchstaben entsprechend ersetzen und den Originalumlaut zur späteren Rekonstruktion mit einem Trennzeichen dem Text anhängen. Anschließend werden noch alle Texte in Großbuchstaben gewandelt.\\ Nach dem Sortieren werden in der Rekonstruktionsroutine die Texte mit Trennzeichen gesucht und die Umlaute wieder hergestellt. Dann wird für jeden Text der Ursprungstext gesucht und dieser mit der ursprünglichen Groß- und Kleinschreibung wieder eingesetzt.\\ \\  +Wie man am Sortierergebnis des Beispieltextes sehen kann, erfolgt die Sortierung nach ASCII-Werten. Das hat zur Folge, dass erst nach Großbuchstaben, dann nach Kleinbuchstaben und zum Schluss nach Umlauten sortiert wird. 
-==== Sortieren+ (vbs) ====+ 
 +Wünschenswert ist natürlich, dass unabhängig von Groß- und Kleinschreibung sortiert wird und die Umlaute Ä, Ö, Ü bzw. ä, ö, ü wie Ae, Oe, Ue bzw. ae, oe, ue behandelt werden. Um letzteres zu erreichen, zumindest jeweils für den Anfangsbuchstaben eines Textes, kann man als Vorbereitung zum Sortieren die Umlaute bei den Anfangsbuchstaben entsprechend ersetzen und den Originalumlaut zur späteren Rekonstruktion mit einem Trennzeichen dem Text anhängen. Anschließend werden noch alle Texte in Großbuchstaben gewandelt. 
 + 
 +Nach dem Sortieren werden in der Rekonstruktionsroutine die Texte mit Trennzeichen gesucht und die Umlaute wieder hergestellt. Dann wird für jeden Text der Ursprungstext gesucht und dieser mit der ursprünglichen Groß- und Kleinschreibung wieder eingesetzt. 
 + 
 +===== Sortieren+ (vbs) ===== 
 +<code VBScript [enable_line_numbers="true"]>
   'FFSubmenu=Test   'FFSubmenu=Test
   'FFName=Sortieren+   'FFName=Sortieren+
Zeile 230: Zeile 242:
   End Sub   End Sub
   '------------------------------------------------------------------------   '------------------------------------------------------------------------
 +</code>
        
-Auch Zahlen werden richtig sortiert, wie man ausprobieren kann. Allerdings werden die Zahlen wie Text behandelt. 1,35,2,17 ergibt sortiert 1,17,2,35, wo hingegen bei 01, 35, 02, 17 die gewünschte Reihenfolge 01, 02, 17, 35 angezeigt wird. Bei Zahlen muss also auf immer gleiche Stellenzahl geachtet und vorlaufende Stellen entsprechen mit Nullen aufgefüllt werden.\\ \\  +Auch Zahlen werden richtig sortiert, wie man ausprobieren kann. Allerdings werden die Zahlen wie Text behandelt. 1,35,2,17 ergibt sortiert 1,17,2,35, wo hingegen bei 01, 35, 02, 17 die gewünschte Reihenfolge 01, 02, 17, 35 angezeigt wird. Bei Zahlen muss also auf immer gleiche Stellenzahl geachtet und vorlaufende Stellen entsprechen mit Nullen aufgefüllt werden. 
-====== Mehrdimensionales Feld sortieren ======+ 
 +===== Mehrdimensionales Feld sortieren ===== 
 + 
 +<code VBScript [enable_line_numbers="true"]>
   Sub QuickSortMultiDim(vSort, index, lngStart, lngEnd)   Sub QuickSortMultiDim(vSort, index, lngStart, lngEnd)
       ' sortiert ein zweidimensionales Feld nach einem anzugebenden Index (Spalte)       ' sortiert ein zweidimensionales Feld nach einem anzugebenden Index (Spalte)
Zeile 273: Zeile 288:
     If (i < lngEnd) Then QuickSortMultiDim vSort, index, i, lngEnd     If (i < lngEnd) Then QuickSortMultiDim vSort, index, i, lngEnd
   End Sub   End Sub
-\\ \\ \\ Sortieren+ (vbs)+</code>