Орфография

[gvozd1989]

Люди, плз, дайте исходник проверки орфографии, но не Вордовской.

[RayShade]

А не кажется ли тебе, что это длинноватый исходник получится?

[vvs_adm]

Люди, плз, дайте исходник проверки орфографии, но не Вордовской.

А Вордовская орфография сильно отличается от русской?

[A.A.Z.]

В принципе, если считать, что у нас есть функция "Function Orphography(ByVal Word As String) As Boolean", которая проверяет, является ли данное слово правильным (есть ли оно в словаре), то можно даже реализовать всплывающее меню с вариантами написания, причем это не будет километровым кодом

[RayShade]

А функцию задекларируем из либы, которую посоветуем скачать с simtel.net

Да, помимо это нам понадобится еще

GetSpellingVariations(Word as String) As Collection Но ее на симтеле по моему нету...

[A.A.Z.]

Не, это уже не обязательно

[SHURUP]

В принципе, если считать, что у нас есть функция "Function Orphography(ByVal Word As String) As Boolean", которая проверяет, является ли данное слово правильным (есть ли оно в словаре), то можно даже реализовать всплывающее меню с вариантами написания, причем это не будет километровым кодом

А как можно это самое меню организовать? (В смысле как найти похожие слова) Ведь для нас то они похожи, а для машины по какому-то странному "алгоритму поиска схожести" нужно будет перелопатить весь словарь, а русский язык ВЕЛИК (а значит и словарь не маленький). Значит если я напишу "Аблоко" то пока до "Яблоко" дойдет - время пройдет немало!
Все у этих компьютеров через… … через циклы!

[vvs_adm]

А если ты напишешь ТЫблоко, то в ворде до Яблоко вообще не дошло у меня... Умерло где то по дороге

А если серьезно, то интересно, какой там (в ворде) алгоритм...

[A.A.Z.]

Ну,

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

Option Explicit

Function Orphography(ByVal Word$) As Boolean

End Function

Sub Check(ByVal Word$)
Dim I&, J&, S$
If Orphography(Word) Then Exit Sub
For I = 1 To Len(Word)
S = Mid(Word, 1, I - 1) & Mid(Word, I + 1)
If Orphography(S) Then Debug.Print S
If I < Len(Word) Then
  S = Mid(Word, 1, I - 1) & Mid(Word, I + 1, 1) & Mid(Word, I, 1) & Mid(Word, I + 2)
  If Orphography(S) Then Debug.Print S
End If
If I < Len(Word) - 1 Then
  S = Mid(Word, 1, I - 1) & Mid(Word, I + 2, 1) & Mid(Word, I + 1, 1) & Mid(Word, I, 1) & Mid(Word, I + 3)
  If Orphography(S) Then Debug.Print S
End If
For J = Asc("А") To Asc("Я")
  S = Mid(Word, 1, x - 1) & Chr(J) & Mid(Word, I + 1)
  If Orphography(S) Then Debug.Print S
  S = Mid(Word, 1, I) & Chr(J) & Mid(Word, I + 1)
  If Orphography(S) Then Debug.Print S
  If I = 1 Then
   S = Chr(J) & Word
   If Orphography(S) Then Debug.Print S
  End If
Next J
If Orphography(Mid(Word, 1, I)) And Orphography(Mid(Word, I + 1)) Then Print Mid(Word, 1, I) & " " & Mid(Word, I + 1)
Next I
End Sub

От чего он "оберегает":
- Какая-то буква является лишней (например, вместо "буква" - "букква")
- При наборе допустили очепятку и какая-то буква перепуталась местами со следующей (вместо "буква" - "бувка")
- Вместо какой-то буквы должна стоять другая буква (вместо "буква" - "бугва")
- Какая-то буква пропущена (вместо "буква" - "бува")
- Может, пропущена первая буква (вместо "буква" - "уква")
- Может, это были два слова (вместо "моя буква" - "моябуква")
ЗЫ Но от таких вещей, как "мультик_анальный", он не обережет

[Ruslan Demidow]

Можно конечно же и ISAPI заюзать (на CodeProjects) есть описание. Но там столько классов, что голова кругом идёт. Зато реализуется полная проверка орфографии. Но разработка проверки орфографии на основе этого API трудозатраты сопоставимы с проектом средней величины.
P.S. Там используется тот же принцип, что и в проверке в Word'е.

[gvozd1989]

vvs_adm
Ничем не отличается, просто я пишу платную прогу, и не хочу проблем с MS.

All
Было бы вообще классно, если бы была какая-нибудь dll, которая сама все проверяет и возвращает результат, но чтобы она была бесплатная.