Hallo Zusammen,

Ich habe 2 Variablen:

A = "Hallo ich bin ein falscher Text"
B = "Hallo ich bin ein faltscher Text"

Nun möchte ich die Variablen vergleichen und falls es Fehler hat den Fehler ausgeben. Mir ist klar das ich es einfach so machen könnte: If A = B Then.

Aber ich möchte eine Art parsing machen und dann sollte er nur den falschen Teil ausgeben. Also in diesem Beispiel dann das: "faltscher Text".

Einfach das ganze falsche Wort und der Rest der Variable,
Auch sollte auch möglich sein mehrere Fehler auszugeben
Gruss,

Bagandi

Moin moin

Versuchs mal in Prosa.

Als erstes.. mir fallen tausend Stolpersteine ein, aber ein Grundgedanke hätt ich.

Bastle ne Schleife. Und dann vergleiche die Texte zeichenweise, oder als wachsender Text.

Code -- schlampig, nicht getestet aus dem Kopf auf die Schnelle --

for i = 1 to len(A)

curA = left(A,i)
curB = left(B,i)

If CurA = CurB then
blabla
else
blublu
end if

next

Dann musste dir in der Schleife auch noch das aktuelle Zeichen merken. Ist es ein Leerzeichen kannste von nem Wortanfang bzw. einem Wortende ausgehen. Oder - es könnt auch ein Fehler sein.

Dein Beispiel einwenig abgewandelt

A = "Hallo ich bin ein falscher Text"
B = "Hallo ich bin ein faltscherText"

Nun ist das fehlende Leerzeichen zugleich der Fehler. Oder umgekehrt

A = "Hallo ich bin ein falscherText"
B = "Hallo ich bin ein faltscher Text"

Ist das Leerzeichen nicht Ende/Anfang Wort sondern eben auch falsch.

Immer unter der Voraussetzung, dass A der richtige Text ist.

Dann musste dich noch um die Grenzen des Strings kümmern. Also die Längen überprüfen, damit du nicht über das Ende hinaus kontrollierst. Bzw. kannste jeden Fehler gleich korrigieren, damit beide Texte im Bereich der überprüften Zeichen gleich sind.
etc. etc. ist wohl noch tricky jeden Spezialfall abzufangen.

Viel Spass dabei

cheerio
moll

Hallo Moll

Vielen herzlichen Dank wieder einmal!

Ich bin mir sicher, dass ich es nun heute packen kann mit deiner super Antwort.

Natürlich werde ich dann ein Feedback mit dem Code geben.

Danke und Gruss,

Bagandi

Leider komme ich nicht mehr weiter. Ich habe einfach Mühe mit ineinander verschachtelten Schleifen.
Der Code bisherige sieht so aus:

Es ist unglaublich, dass man in Google nicht zu dem findet ausser das man die Funktionen: Right,Left, Mid und Instr braucht -.-

Gruss,

Bagandi

+push+

Sorry ich muss das morgen erledigt haben *rot werd*

Da ich ja sonst nix zu tun habe..

Das Script findet den ersten Fehler.

Option Explicit
Dim a,b,i,vara,varb,fehler,bla,j,wort
Dim laenge, leer, offset, lastfehler

a = "Hallo ich bin ein falscher Text"
b = "Hallo ich bin ein faltscher Text"
i=0
laenge=0
fehler= false

if len(a) < len(b) then
laenge=len(a)
else
laenge=len(b)
end if

while i <= laenge and not fehler
vara = mid(a,1,i)
varb = mid(b,1,i)

if right(left(b,i),1) = " " then leer=i

if vara <> varb Then
fehler = true
wscript.echo "An der Stelle " & i & " hat es einen Fehler."
end if
i=i+1
wend


gruss
moll

Hallo Moll.
Vielen Dank für deinen Aufwand.
Leider habe ich gemerkt, dass ich noch einiges zu lernen habe in dieser Sprache

Nun habe ich es anders gelöst. Simple and Stupid:
Danke und Gruss,
Bagandi

moin moin

Tipptopp.. So tut auch ;-)

Und - Lernen müssen wir alle noch. Das ist ja das schöne an dem Job ..

cheerio
moll