Как определит слова, в которых есть одинаковые буквы?

[Раиса]

Текст вводится через TextBox. Вывести все слова, в которых есть одинаковые буквы и количество слов, в которых все буквы разные.Сделать эту проверку через оператор Like. Результат выводится так же в TextBox.

[alibek]

Like тут неуместен.

[Vi]

Like тут неуместен.

Сдаётся мне, что это так задано.

[Proxy]

Тогда, кажется, Like поможет только найти, входит ли символ в строку. Не могу иного pattern-а придумать, чтобы составить его из проверяемого слова, притом одним действием проверить.
ИМХО тут предполагается брать из второго проверяемого слова посимвольно и с помощью like проверять вхождение данного символа в первое проверяемое слово (если есть, инкрементим счетчик). Пары слов — все сочетания из n по 2 (не размещения). При каждой итерации сбрасываем счетчик (впрочем тут boolean), если по окончании он не нулевой, то оба слова помечаем. Помеченные слова выводим в TextBox.

[alibek]

Ну почему, если проверять на все возможные сочетания "аа", "бб", "вв" и далее, то LIKE вполне подойдет.
Но тогда еще больше подойдет обычный INSTR.
Поэтому повторюсь, что в этой задаче LIKE бесполезен. Нужен или перебор возможных сочетаний с INSTR, или регулярные выражения.

[Vi]

Поэтому повторюсь, что в этой задаче LIKE бесполезен. Нужен или перебор возможных сочетаний с INSTR, или регулярные выражения.

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

Private Function HasSameLetters(ByVal sWord As String) As Boolean
  Dim i As Long, s As String
  s = UCase(sWord)
  For i = 1 To Len(s)
    HasSameLetters = CheckSameLetter(s, Mid(s, i, 1))
    If HasSameLetters Then
      Exit For
    End If
  Next
End Function

Private Function CheckSameLetter(ByVal sWord As String, ByVal sLetter As String) As Boolean
  CheckSameLetter = sWord Like "*" & sLetter & "*" & sLetter & "*"
End Function


Регуляркой, конечно, без перебора за один запрос можно определить.

PS
? HasSameLetters("teeth")
True
? HasSameLetters("dog")
False

[Proxy]

Ну почему, если проверять на все возможные сочетания "аа", "бб", "вв" и далее, то LIKE вполне подойдет.

Ох, пардон, я неверно трактовал условия задачи.

Вывести все слова, в которых есть одинаковые буквы и количество слов

Я полагал, что здесь речь о сравнении букв в сочетаниях слов. Есть совпадающие буквы между словами — в список.
"Кактус", "Гладиолус", "Яд" — "Кактус", "Гладиолус" считаем (т.к. "а" и "у"), "Яд" — отбрасываем.
Нужно больше спать

Поэтому повторюсь, что в этой задаче LIKE бесполезен.

Это условие, кмк.