Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Willie1,
17. Dez 2008
Obwohl ich es selbst z.Z. nicht brauche, noch ein Codebeispiel, wo auch in mask die Joker selbst vorkommen können. Dem Joker # voranstellen. Also: #? #* und ##. #0 darf in text NICHT vorkommen!
function MatchesMask_(text, mask: string; Modus: byte; CaseSensitive: Boolean): boolean;
const
Joker = ;
var
po,i: Integer;
tmp: string;
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Willie1,
17. Dez 2008
Hallo sx2800,
ich verstehe deinen Einwand nicht ganz. Die Joker *? dürfen in text natürlich nicht vorkommen - in Dateinamen sind seit den DOS-Zeiten diese Zeichen verboten! Das ich text verändere, ist sicher ein Schönheitsfehler, aber wenn ich sehe, wie himitsu mit GOTO's hantiert, denke ich, ist das hin zu nehmen.
Ich halte meine Lösung für effizient.
W.
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Willie1,
16. Dez 2008
Hallo Leute,
wie ist es damit:
function MatchesMask_(text, mask: string; Modus: byte; CaseSensitive: Boolean): boolean;
var
po,i: Integer;
tmp: string;
{ Modus 0 = exakt - 1 = mit Joker - 2 = Suchwort kommt vor
Forum: Neuen Beitrag zur Code-Library hinzufügen
Delphi
by Willie1,
12. Dez 2008
Hallo,
ich habe mir vor einiger Zeit einen Stringvergleich mit Wildcards gebaut:
function MatchesMask(text, mask: string; Modus: byte; CaseSensitive: Boolean): boolean;
var
po,i: Integer;
{ Modus 0 = exakt - 1 = mit Joker - 2 = kommt vor
Joker =
* jeweils 1* entweder am Anfang oder Ende z.B. Hamb* oder *burg
? gleiche Länge von Text und Maske z.B. M??er