[gelöst] String A ungefähr wie String B

[marco2007]

Hi,

Code von Stargate:

Code: Alles auswählen

Debug StringVergleich("Zsuchnitt", "Zuschnitt")

ergibt: 100%

umgeschriebener VB-Code von Hexor:

ergibt 80%.

Was ist wohl besser? Bei Einzelwörter könnte man den mit dem Code von Stargate Rechtschreibfehler einfach finden - und genau das brauche ich.

Danke!!

[Kaeru Gaman]

> Bei Einzelwörter könnte man den mit dem Code von Stargate Rechtschreibfehler einfach finden - und genau das brauche ich.

ich würde beide algos verwenden.
wenn Stargates 100% zurückgibt, Hexors aber nicht, liegt ein einfacher tippfehler vor.

[KeyKon]

Man sollte aber die Strings vorher mit UCase()/LCase() großschreibtechnisch gleich machen, denn

Code: Alles auswählen

Debug LD("Wort", "wORT")

ergibt 0% übereinstimmung...

[marco2007]

Ich hätt`s einfach so gemacht:

Code: Alles auswählen

If StringVergleich(a$, b$)=1 And a$<>b$
  Debug "Fehler"
EndIf

lg
Marco

[marco2007]

...obwohl:

Code: Alles auswählen

Debug StringVergleich("Belchh", "Bllech")

...1.0?

Dann ist wohl die VB-Variante sicherer....

@Keykon: Hast natürlich recht!