существительные, глаголы, прилагательные, предлоги, местоимения и прочее.

Например, есть фраза: "Петя пошел в школу в семь утра". Надо, чтобы прога проанализировала это предложение и выдала:

Петя - существительное;

пошел - глагол;

в - предлог ... и так далее.

Базы для каждых из частей речи (как эталоны) имеются в Аксесс. Но если потребуется как-то иначе, то можно составить новые или переформатировать старые базы. 

Сам проект проги желательно в Visual Studio на Basice.

Буду благодарен каждому кто хоть чем-нибудь поможет, хоть советом, хоть идеей...

Вот в том-то и дело, что "отделить в цикле каждое слово" не получается. Теоретически алгоритм понятен: надо считать словами слитные последовательности символов, ограниченных либо пробелом, либо каким-то знаком прпинания. Но напрактике не получается.

Не могли бы Вы помочь в составлении кода для этой части проги?

С наилучшими пожеланиями,

Sub hg()



Dim f As String, g As Integer, n As Integer

Dim curr_word(256) As Variant



f = textbox1.Value

Do

g = InStr(1, f, " ", vbTextCompare)

If g = 0 Then

curr_word(n) = f

Exit Sub

End If

curr_word(n) = Left(f, g - 1)

n = n + 1

f = Right(f, Len(f) - g)

Loop Until g = 0

End Sub

Рад бы это сделать, да не могу.

Пусть имеется, например, текст:

Петя пошел в среднюю школу №3 с семи лет. А мама пошла на работу в шесть утра, когда папа вернулся со смены домой.

Шаг 1.

Все символы текста, отличные от А до Я и от а до я и от 0 до 9 , заменить на знак «ПРОБЕЛ».

Шаг 2.

Добавить к началу текста знак «ПРОБЕЛ».

Шаг 3.

Заменить все двойные «ПРОБЕЛЫ» на одинарные.

Шаг 4.

Выделить последовательность символов (слово), заключенных между двумя «ПРОБЕЛАМИ».

Шаг 5.

Каждое выделенное слово индексируется и помещается в Базу Данных.

Шаг 6.

Слова полученные из текста  последовательно сравниваются со словами, имеющимися в БД, и они идентифицируются как Существительные, глаголы и прочее.

Sub hg()

Dim f As String, g As Integer, n As Integer
Dim curr_word(256) As Variant

f = textbox1.Value
Do
g = InStr(1, f, " ", vbTextCompare)
If g = 0 Then
curr_word(n) = f
Exit Sub
End If
curr_word(n) = Left(f, g - 1)
n = n + 1
f = Right(f, Len(f) - g)
Loop Until g = 0
End Sub

Уважаемый babken76!

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

Ну, а во-вторых, у меня что-то не получается. 

Здесь есть три момента когда мой debag ругается:

1. f = textbox1.Value - здесь он говорит: "Value" не является членом "System.Windows.Forms.TextBox"

2. "Public Property Left() As Integer" не имеет параметров, поэтому невозможно проиндексировать его возвращаемый тип. 

3. "Public ReadOnly Property Right() As Integer" не имеет параметров, поэтому невозможно проиндексировать его возвращаемый тип. 

КАК БЫТЬ?