Das deutsche QBasic- und FreeBASIC-Forum

[SL]

In der FB-Befehls-Referenz steht unter Basic-Grundlagen / Ausdrücke und Operatoren / Stringoperationen unter anderem Folgendes: Prüfen, ob ein String alphabetisch vor einem anderen steht (String1 < String2).

Dieser Satz ist so leicht missverständlich. Besser wäre vielleicht folgende Darstellung: Prüfen, ob ein String alphabetisch (entsprechend der Sortierung nach ASCII-Codes) vor einem anderen steht (String1 < String2).

Womit ich nun beim Thema bin: Ich suche eine Routine, welche genau das tut, was oben beschrieben wurde, jedoch nicht nach ASCII-Code vergleicht (sortiert) sondern nach dem deutschen Alphabet. Hier gibt es bekanntlich so Gemeinheiten wie Groß- und Kleinbuchstaben und Sonderbuchstaben wie ä, ü, ö, ß. Auch Sonderzeichen wie ? oder $ oder - innerhalb eines Strings können bei einer Sortierung nach ASCII zu sehr seltsamen Ergebnissen führen. Ein kurze Einführung in alphabetische Sortierung ist hier: http://de.wikipedia.org/wiki/Alphabetische_Sortierung

Hat jemand bereits so eine Sortier-Routine? Beispielsweise eine „Telefonbuchsortierung“ (Im Freebasic-Portal / Code-Beispiele / kleine Helferlein fand ich nichts)

[St_W]

In QBasic hab ich soetwas schon einmal implementiert. Hier prüfe ich die ASCII Codes vorher und rechne diese in ein eigenes Sortierungssystem um, sodass auch Umlaute, Sonderzeichen, Groß-/Kleinbuchstaben richtig sortiert werden (sollten ).

Ich weiß nicht wie schlecht/gut mein selbstgebastelter Algorithmus ist und wie zuverlässig das Programm ist. Weiters müsste es natürlich in den FreeBasic Dialekt umgeschrieben werden, was aber normalerweise kein so großer Aufwand ist.

Das Programm enthält neben einer Sortiermethode für Strings auch noch eine für Zahlen.

Vielleicht ist es ja nützlich:
http://wurzinger.bplaced.net/files/programmierung/qb/sort.bas
(Ist im DOS-OEM Zeichensatz kodiert, also werden im Windows Editor die Sonderzeichen falsch dargestellt)
_________________
Aktuelle FreeBasic Builds, Projekte, Code-Snippets unter http://users.freebasic-portal.de/stw/
http://www.mv-lacken.at Musikverein Lacken (MV Lacken)

[dreael]

Du musst Deine Sortierschlüssel beispielsweise in ein Hilfsarray konvertieren oder Funktion aufrufen. Als erstes würde ich eine FUNCTION programmieren, welche wie folgt arbeitet:

[volta]

Forensuche: sortieren

siehe http://forum.qbasic.at/viewtopic.php?t=5716
_________________
Warnung an Choleriker:
Dieser Beitrag kann Spuren von Ironie & Sarkasmus enthalten.
Zu Risiken & Nebenwirkungen fragen Sie Ihren Therapeuten oder Psychiater.

[Jojo]

Volta: Da ist aber keine telefonbuch-sortierung dabei.
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.

[St_W]

Ich glaube aus dem von Volta verlinkten Thread (der von mir erstellt wurde) ging mein obiges Programm hervor, wenn ich mich richtig erinnere.

//edit: Ich habe mir die Arbeit gemacht das obige Programm nach FreeBasic zu portieren. Dafür waren nur etliche "DIM"s und das Löschen der Datentyp-Präfixe nötig.
Download:
http://wurzinger.bplaced.net/files/programmierung/fb/sort_fb.bas
_________________
Aktuelle FreeBasic Builds, Projekte, Code-Snippets unter http://users.freebasic-portal.de/stw/
http://www.mv-lacken.at Musikverein Lacken (MV Lacken)

[SL]

Ich habe mich vielleicht etwas ungeschickt ausgedrückt. Mir geht es nicht um die Sortierung eines String-Arrays (dafür gibt es genügend Programm-Beispiele) sondern um die Vorstufe zum Sortieren, nämlich den Vergleich von zwei String-Variablen, um festzustellen welcher von beiden kleiner ist.

Dabei sollen nicht die ASCII-Codes als Vergleichsmaßstab dienen, sondern die im deutschen Sprachraum übliche alphabetische Sortierung (siehe Hinweis auf Wiki im ersten Beitrag)

Ein gutes Beispiel ist MS-Word. Hier kann man Text nach DIN sortieren. Dazu einfach eine Tabelle mit z. B. 5 Zeilen eröffnen und jeweils in der erste Spalte irgendeinen Text eingeben. Dann im Menü Tabelle / Sortieren / Sortierschlüssel den Text für die erste Spalte sortieren. Man sieht dann sehr gut, nach welchen Regeln sortiert wird.

Man bräuchte also eine Funktion die so bezeichnet wird:

Funktion_Zeichenkettenvergleich_DIN_5007_2 (Zeichenkette_1, Zeichenkette_2)

Ist die Zeichenkette_1 kleiner als Zeichenkette_2 gibt die Funktion 1 zurück, ansonsten 0.

[Sebastian]

Hallo,

hast du dir das so vorgestellt? Telefonbuchsortierung für String-Arrays

Viele Grüße!
Sebastian
_________________

Die gefährlichsten Familienclans | Opas Leistung muss sich wieder lohnen - für 6 bis 10 Generationen!

[SL]

Danke, genau das ist es.

Du hast aber, was nicht notwendig wäre, die Unterscheidung zwischen Klein- und Großbuchstaben aufgehoben. Hier würde die Sortierung nach ASCII sogar ohne Änderung mit der „Telefonbuchsortierung“ übereinstimmen, da Großbuchstaben Vorrang gegenüber Kleinbuchstaben haben.

Am besten, du änderst in deinem Code-Teil bei „Testnamen“ den Eintrag „Mueller“ in „mueller“, dann siehst du sofort was ich meine.

Edit: So einfach wie zuerst gedacht ist das mit Groß- und Kleinbuchstaben doch nicht. Die ASCII-Sortierung hilft hier nicht weiter. Die würde so sortieren: A, B, a. Richtig wäre aber: A, a, B.

Edit II: Ich muß alles zurücknehmen. Dein Code ist so absolut korrekt! Word sortiert genauso wie dein Code. Ein Beispiel aus einer Word-Sortierung: m, M, Maat, mager, Mönch, Müller

Hoffentlich war das mein letztes Edit!!

[Sebastian]

Ansonsten hier noch mal ein Versuch der anderen Sortierweise: http://www.freebasic-portal.de/porticula/telefonbuchsortierung-fuer-string-arrays-1040.html

Übrigens: In der ersten Fassung (#1039) muss es statt

[SL]

Die zweite Version sortiert zunächst nach Großbuchstaben, dann nach Kleinbuchstaben. Es ist Geschmackssache, welche alphabetische Sortierung einem besser gefällt. Ich würde mittlerweile die erste Version bevorzugen.

Als Anfänger-Projekt versuche ich gerade ein „Karteikasten-Programm“ in Form einer Adressenverwaltung zu schreiben. Damit können Datensätze (= Adressen) gesucht, zugefügt, gelöscht oder geändert werden. Für den Such-Index werde ich – deine Zustimmung vorausgesetzt – die von dir hier vorgestellte „Telefonbuchsortierung“ verwenden.

[Sebastian]

[dreael]

[SL]

Mittlerweile ist mir der Weg einigermaßen klar. Was ich bei deinem Code allerdings nicht verstehe, ist die Verwendung von "SHARED“ innerhalb einer Funktion (in deinem Code, Teil 3 ganz unten). Wenn ich SHARED in einer SUB/Funktion verwende, meckert mich der Compiler immer an. Was mache ich da falsch?

[Jojo]

FB ist ein wenig sauberer als QB und somit funktioniert das "nach außen bekannt machen" von Variablen mittels SHARED nicht mehr.
_________________
» Die Mathematik wurde geschaffen, um Probleme zu lösen, die es nicht gäbe, wenn die Mathematik nicht erschaffen worden wäre.

[SL]

Noch eine kleine Anmerkung zur "Telefonbuchsortierung". Sobald Ziffern ins Spiel kommen, wird es wieder chaotisch, wenn nach ASCII-Codes sortiert wird. Da würden dann die Zeichenketten „A9“ und „A123“ so sortiert werden: A123, A9, was eigentlich jeder Logik widerspricht. Die Zeichenketten „B9 und „C123“ werden hingegen – wie nicht anders zu erwarten - richtig sortiert.

Im "Telefonbuch" dürften obige Zeichenketten eher nicht vorkommen. Doch beispielsweise bei Artikelnummern gibt es häufig Bezeichnungen aus einer Kombination von Buchstaben und Ziffern. Übrigens, die Sortier-Funktion von MS Word kommt bei so gemeinen Beispielen auch ganz nett ins Stolpern!

[SL]

Bei obigen Code-Beispiel von Sebastian (Sortierung eines Arrays) ist mir erst jetzt aufgefallen, dass die Unterprogramme nicht deklariert sind!

Trotzdem läuft das Programm wie am Schnürchen. Das liegt daran, dass sämtliche Unterprogramme vor dem Modulebenen-Code angeordnet sind.

In der Referenz steht davon kein Wort. Läuft dies unter "quick and dirty" oder sind Deklarationen in Zukunft "offiziell" obsolet? (Falls der Modulebenen-Code erst nach den Unterprogrammen angeordnet ist,)

[MOD]

Wenn die Unterprogramme vor dem Einstiegspunkt sind, dann sind sie damit deklariert. War schon immer so.

[Stueber]

Du musst eine Funktion deklarieren, damit sie vor der Implementierung aufrufbar ist.
Wenn man das aber garnicht muss kann man die Dekleration weglassen.
Durch das Implementieren werden sie ausserdem auch deklariert.

Trotzdem ist Dekleration nützlich:
- Wenn man den Code übersichtlich machen will, da viele Funktionen schnell unübersichtlich werden.
- Wenn man aus einer Bibliothek laden will.
- Wenn man sowas hat:

[SL]