Релиб / Программирование / Visual Basic / Нужно решить такую задачку: "Анализ вводимого текста" / Latest Posts

RE: Нужно решить такую задачку: "Анализ вводимого текста"

Киберсоф — Mon, 16 Jul 2007 21:41:46 GMT

[quote][b]babken76 (16.07.2007)[/b][hr]to Киберсоф: в моем примере hg это не переменная, а имя процедуры. Вы так и не сказали в какой среде разработки тестируете мой пример.

С уважением,
[/quote]

Уважаемый babken!

Я пользуюсь Visual Studio 2005, (VB 2005).NET Framework 2.0

Получили мое сообщение по электропочте?

С уважением

RE: Нужно решить такую задачку: "Анализ вводимого текста"

babken76 — Mon, 16 Jul 2007 18:35:40 GMT

to Киберсоф: в моем примере hg это не переменная, а имя процедуры. Вы так и не сказали в какой среде разработки тестируете мой пример.

С уважением,

RE: Нужно решить такую задачку: "Анализ вводимого текста"

Киберсоф — Mon, 16 Jul 2007 17:40:53 GMT

[quote][b]pl (10.07.2007)[/b][hr]Воспользуйтесь стандартной функцией Split, выдающий массив подстрок из строки, разбитой по разделителю.[/quote]

Уважаемый pl

Я воспользовался Вашим советом, и вот что получилось:

Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

'— Объявление переменных

Dim P1 As String

Dim P2 As Integer

Dim P3() As String

P1 = "Cats Dogs, Horses Birds"

'— Синтаксический разбор строки с использованием символа "пробел" в качестве разделителя:

P3 = Split(P1, " ")

'— Просмотр массива в цикле

For P2 = LBound(P3) To UBound(P3)

MsgBox(P3(P2))

End Sub

Все бы ничего, но вот как теперь разбросать эти фрагменты в какую-нибудь таблицу?

Кто может помочь?!

С уважением

RE: Нужно решить такую задачку: "Анализ вводимого текста"

Киберсоф — Wed, 11 Jul 2007 23:15:39 GMT

[quote][b]babken76 (11.07.2007)[/b][hr]

[code]
Sub hg()

[/code]

Уважаемый babken76!

Очень благодарен Вам за терпение и желание помочь мне в этом вопросе. В связи с этим я послал Вам письмо на Вашу электропочту.

В коде, который Вы дали, вроде, все хорошо, но никак не найду достойное место переменной hg ().

Куда ее пристроить. Да и сам одномерный массив слов никак не хочет показываться.

Может я чего-то делаю не так?

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

Киберсоф

[/quote]

RE: Нужно решить такую задачку: "Анализ вводимого текста"

rank1 — Wed, 11 Jul 2007 16:23:41 GMT

Такие задачи вообще-то решаются на языках типа Prolog. Но если нужно на VB - я бы почитал в частности

Марселлус Д. “Программирование экспертных систем на турбо Прологе”- М.: Финансы и статистика,1994,- 19с.

и всякие книжки в Djvu и Pdf в гогле по прологу, а потом бы сэмулировал рабьоту пролога на VB.

http://www.citforum.ru/programming/digest/morfolog.shtml

Погоглите на "Prolog анализ текста"

RE: Нужно решить такую задачку: "Анализ вводимого текста"

babken76 — Wed, 11 Jul 2007 15:38:00 GMT

[quote] Сам проект проги желательно в Visual Studio на Basice.[/quote]
Постарайтесь, задавая вопрос уточнять в какой именно студии. Вообще, если база в формате Access, то было бы логично в ней и писать т.е. на VBA.
Этот вариант для VS.NET 2005
[code]
Sub hg()

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

f = TextBox1.Text
Do
g = InStr(1, f, " ", vbTextCompare)
If g = 0 Then
curr_word(n) = f
Exit Sub
End If
curr_word(n) = Microsoft.VisualBasic.Left(f, g - 1)
n = n + 1
f = Microsoft.VisualBasic.Right(f, Len(f) - g)
Loop Until g = 0
End Sub
[/code]

RE: Нужно решить такую задачку: "Анализ вводимого текста"

Киберсоф — Tue, 10 Jul 2007 22:35:25 GMT

[quote][b]bazile (10.07.2007)[/b][hr]Для семантического анализа можно использовать парсер mystem от Яndex'a.[/quote]

Уважаемый bazile!

Не подскажите, как использовать опционально парсер mystem для вышеприведенного мною примера текста из двух предложений.

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

RE: Нужно решить такую задачку: "Анализ вводимого текста"

Киберсоф — Tue, 10 Jul 2007 22:32:23 GMT

[quote][b]babken76 (10.07.2007)[/b]

Как вариант:

[code]
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
[/code]
На выходе получаете одномерный массив curr_word слов.

С уважением,[/quote]

Уважаемый babken76!

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

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

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

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

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

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

КАК БЫТЬ?

RE: Нужно решить такую задачку: "Анализ вводимого текста"

Киберсоф — Tue, 10 Jul 2007 22:23:39 GMT

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

Вот какой алгоритм мне думалось использовать.

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

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

Шаг 1.

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

Шаг 2.

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

Шаг 3.

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

Шаг 4.

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

Шаг 5.

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

Шаг 6.

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

RE: Нужно решить такую задачку: "Анализ вводимого текста"

bazile — Tue, 10 Jul 2007 16:54:05 GMT

Для семантического анализа можно использовать парсер mystem от Яndex'a.