Registriert seit: 17. Jan 2007
418 Beiträge
Delphi 10 Seattle Professional
|
String intelligent Kürzen
18. Jun 2011, 16:05
Habe folgendes Problem. Ein String der eine Bezeichnung enthält muss auf 14 Zeichen gekürzt werden. Aber nicht einfach abgeschnitten, sondern eben Intelligent.
1. Aus der Bezeichnung sollen alle Sonderzeichen und Satzzeichen entfernt werden. nur a-z, A-Z und 0-9 sollen erhalten bleiben
2. Ist am Ende der Bezeichnung eine Zahl so muss diese erhalten bleiben
3. Aus der Bezeichnung sollen alle Leerzeichen entfernt werden.
Ich denke man müsste zuerst berechnen wie viele Worte der String hat, und dann von jedem Wort ein paar Anfangsbuchstaben nehmen. Wobei es gut wäre wenn vom ersten Wort mehr Buchstaben genommen werden als von den nächsten. Zudem muss jeder Name einmalig sein. Sollte ein Name doppelt sein, müsste dieser anders benannt werden.
Bsp:
aus "Kitho´s Serie Teil 3" sollte "KithoSeriTeil3" werden.
aus "Lorscher Geschichte 'Laurissa'" sollte "LorschGescLaur" werden
aus "Die Rheinblick Serie 12" sollte "DieRheinblSe12" werden.
Hat von euch jemand eine Idee wie ich das verwirklichen kann?
Danke!
|