Как правильно проверять количество ошибок в тексте?...

[BV]

Вот мой код для проверки:

Код: Выделить всё

Dim i As Long, lErrCount As Long
Dim strExample As String, strResult As String
For i = 1 To Len(txtText.Text)
    strExample = Mid$(txtExample.Text, i, 1)
    strResult = Mid$(txtText.Text, i, 1)
    If strExample <> strResult Then lErrCount = lErrCount + 1
Next i

Но если в тексте просто пропущен один или несколько символов, то получится, что весь последующий текст – одна большая ошибка.
Я уже достаточно много вариантов перепробовал – результат не тот. Подскажите, как мне обойти эту ситуацию, и корректно проверять текст на количество ошибок (разумеется, если код простой)?

[Ennor]

Ничего не понятно. Что с чем ты сравниваешь, и что такое для тебя ошибка?

Если я угадал, то ты пытаешься сделать аналог Code Compare из VSS. Но там сравнение идет с точностью до строки, а не до символа. А вообще, посмотри, как работает утилита fc - глядишь, тебя и осенит .

[BV]

2 Ennor

Ты помнишь мою программу "Скорость"?
Всё для неё.

Т.е. я сравниваю образец с тем, что написал пользователь, и показываю кол-во ошибок. НО, если пропущена буква, то как я не изменял код - всё равно весь следующий текст будет посимвольно считаться с ошибками, хотя по правилам была допущена лишь одна ошибка!