Форум программистов [Powered by Invision Power Board]

Версия для печати темы
Нажмите сюда для просмотра этой темы в оригинальном формате

Форум программистов > Центр помощи > vba

Автор: koljan 1.7.2006, 21:20

Дан файл, содержащий текст на русском языке. Найти слово, встречающееся в каждом предложении, или сообщить, что такого слова нет.

я начал делать но не знаю что дальше
я первое предложение забил в массив и дальше хотел проверять с другими предложениями а каким образом smile

Автор: Pete 10.7.2006, 22:04

Для каждого слова x первого (например) предложения делаешь следующее (a() -- массив предложений):

Код


exists = 1
For j = 0 To (количество предложений - 1)
  If (a(j) не содержит слово x) Then
    exists = 0
    прервать цикл
  End If
  
  If (exists = 1) Then
    print "Слово " + x + " содержится в каждом предложении." + vbcrlf
  End If
Next j

Написано коряво, потому что я уже забыл этот корявый vb...