AGB  ·  Datenschutz  ·  Impressum  







Anmelden
Nützliche Links
Registrieren
Zurück Delphi-PRAXiS Programmierung allgemein Datenbanken Delphi Strings schnell ersetzen
Thema durchsuchen
Ansicht
Themen-Optionen

Strings schnell ersetzen

Ein Thema von Nersgatt · begonnen am 28. Apr 2015 · letzter Beitrag vom 29. Apr 2015
Antwort Antwort
Benutzerbild von Nersgatt
Nersgatt

Registriert seit: 12. Sep 2008
Ort: Emlichheim
693 Beiträge
 
Delphi 10.1 Berlin Professional
 
#1

Strings schnell ersetzen

  Alt 28. Apr 2015, 15:42
Datenbank: MySql • Version: 5.6 • Zugriff über: SQL
Moin,

ich habe auf dem MySql-Server eine Function erstellt, um bestimmte Zeichen in einem String durch andere Zeichen zu ersetzen.
Ich frage ich mich, ob man da noch irgendwie etwas mehr Geschwindigkeit rausholen könnte? Es geht mir dabei um die Ersetzung von Polnischen Akzenten um den Buchstaben ohne Akzent.

So sieht die Function momentan aus:
Code:
CREATE DEFINER=`root`@`localhost` FUNCTION `normalize_str`(AStr VarChar(2000)) RETURNS varchar(2000) CHARSET utf8
BEGIN

  declare _withAccents   VarChar(200) default 'ąĆćꣳńÓ󌜏źŻż';
  declare _withoutAccents VarChar(200) default 'aCceLlnOoSsZzZz';
 
  declare _length integer default length(_withAccents);
  declare _i integer default 1;
 
  while (_i <= _length) do
    set AStr = Replace(AStr, substring(_withaccents, _i, 1), substring(_withoutaccents, _i, 1));
    set _i = _i + 1;
  end while;
 

  RETURN AStr;
END
Es wird ja für jedes Sonderzeichen ein Replace ausgelöst. Könnte man das evtl. eleganter lösen?

Danke!

Edit: Das Forum stellt die Sonderzeichen in meinem Quelltext nicht richtig dar. In meiner Function stehen natürlich nicht die &#-Sachen, sondern wirklich das entsprechende Sonderzeichen.
Jens

Geändert von Nersgatt (28. Apr 2015 um 15:45 Uhr)
  Mit Zitat antworten Zitat
Benutzerbild von p80286
p80286

Registriert seit: 28. Apr 2008
Ort: Stolberg (Rhl)
6.659 Beiträge
 
FreePascal / Lazarus
 
#2

AW: Strings schnell ersetzen

  Alt 28. Apr 2015, 16:10
klingt so als wenn Du  translate() gebrauchen könntest, aber das scheint es in MySQL nicht zu geben u.U. könntest Du mit Convert etwas machen aber da ich mich in MySQL nicht soo auskenne halte ich mich da besser zurück.

Gruß
K-H
Programme gehorchen nicht Deinen Absichten sondern Deinen Anweisungen
R.E.D retired error detector
  Mit Zitat antworten Zitat
Benutzerbild von Nersgatt
Nersgatt

Registriert seit: 12. Sep 2008
Ort: Emlichheim
693 Beiträge
 
Delphi 10.1 Berlin Professional
 
#3

AW: Strings schnell ersetzen

  Alt 28. Apr 2015, 16:22
Wenn ich z.B.
Zitat:
select convert('ąĆćꣳńÓ󌜏źŻż' using latin1)
erhalte ich leider ???????Óó??????
Das hilft mich so nicht wirklich weiter.

Translate sähe wohl wirklich hilfreich aus, allerdings scheint MySql das wirklich nicht zu kennen.
Jens
  Mit Zitat antworten Zitat
Dejan Vu
(Gast)

n/a Beiträge
 
#4

AW: Strings schnell ersetzen

  Alt 28. Apr 2015, 20:25
Wieso machst Du das in SQL und nicht in Delphi (über DisplayText bzw. GetText) oder eine berechnete Spalte?
  Mit Zitat antworten Zitat
jobo

Registriert seit: 29. Nov 2010
3.072 Beiträge
 
Delphi 2010 Enterprise
 
#5

AW: Strings schnell ersetzen

  Alt 28. Apr 2015, 21:56
Wenn es schnell gehen soll, hilft vielleicht diese UDF
https://github.com/hholzgra/mysql-udf-regexp
Gruß, Jo
  Mit Zitat antworten Zitat
Benutzerbild von Nersgatt
Nersgatt

Registriert seit: 12. Sep 2008
Ort: Emlichheim
693 Beiträge
 
Delphi 10.1 Berlin Professional
 
#6

AW: Strings schnell ersetzen

  Alt 29. Apr 2015, 06:30
Wieso machst Du das in SQL und nicht in Delphi (über DisplayText bzw. GetText) oder eine berechnete Spalte?
Das hier ist der Grund dafür: http://www.delphipraxis.net/184160-d...ml#post1299552
Eine berechnete Spalte könnte ich auch machen. Müsste ich mal probieren, ob das noch spürbar war bringt.
Jens
  Mit Zitat antworten Zitat
Dejan Vu
(Gast)

n/a Beiträge
 
#7

AW: Strings schnell ersetzen

  Alt 29. Apr 2015, 07:25
Moin, ich hab den anderen Thread schon gelesen. Daher die Frage.
In Delphi hast Du performancetechnisch kein Problem mehr, wobei ich nicht sagen würde, dass das in SQL grottenlahm ist. Aber den Ansatz in SQL finde ich persönlich hier unsauber, weil hier eine Funktionalität (filtern) in einer der Darstellung dienenden View hinterlegt wird.
Andererseits hat man in SQL natürlich die Flexibilität, das Charactermapping noch anzupassen, ohne die Anwendung neu kompilieren zu müssen.

Hat immer alles zwei Seiten
  Mit Zitat antworten Zitat
Antwort Antwort


Forumregeln

Es ist dir nicht erlaubt, neue Themen zu verfassen.
Es ist dir nicht erlaubt, auf Beiträge zu antworten.
Es ist dir nicht erlaubt, Anhänge hochzuladen.
Es ist dir nicht erlaubt, deine Beiträge zu bearbeiten.

BB-Code ist an.
Smileys sind an.
[IMG] Code ist an.
HTML-Code ist aus.
Trackbacks are an
Pingbacks are an
Refbacks are aus

Gehe zu:

Impressum · AGB · Datenschutz · Nach oben
Alle Zeitangaben in WEZ +1. Es ist jetzt 04:22 Uhr.
Powered by vBulletin® Copyright ©2000 - 2025, Jelsoft Enterprises Ltd.
LinkBacks Enabled by vBSEO © 2011, Crawlability, Inc.
Delphi-PRAXiS (c) 2002 - 2023 by Daniel R. Wolf, 2024 by Thomas Breitkreuz