Пожауйста помогите студентке гуманитарного вуза

[Maria_Babkina]

Здравствуйте!

Пожалуйста, помогите! Проблема заключается в следующем, есть огромный художественный текст, в котором случайным образом находятся Имена+Фамилии. Необходимо выписать из всего текста каждое Именя+Фамилию и записать, какое количество раз оно встречается в тексте.
Например:
Архитектор Василий Петров завершил проект это здания в 1953 году. Под его началом трудились многие инженеры и проектировщики, среди них Ольга Зайцева, Антон Антипов. Позднее, Ольга Зайцева участвовала и в других проектах.
В результате хочется получить:
Антон Антипов - 1
Василий Петров - 1
Ольга Зайцева - 2
Мне посоветовали обратиться к вам на формум, сама я программировании не разбираюсь.
Уповаю на вашу доброту!

[challengerr]

Dim names() As String 'массив встречающихся имен
Dim name_count() As Integer ' количество каждого из встречающихся имен
Dim flag1,flag2, i As Integer
Dim fs
Dim f
Dim TextLine
Dim TestArray()

Set fs = CreateObject("Scripting.FileSystemObject")
Set f = fs.CreateTextFile("c:\testfile.txt", True)
flag1 = 0
Do While f.AtEndOfStream <> True
TextLine = f.ReadLine
TestArray = Split(TextLine)
If flag1 = 0 Then
ReDim names(1)
ReDim name_count(1)
names(0) = TestArray(0)
name_count(0) = 1
flag1=1
Else
flag2 = 0
For i=0 To names.Length-1
If TestArray(0) = names(i) Then
flag2=1
name_count(i) = name_count(i) + 1
End If
If flag2=0 Then
ReDim Preserve names(names.Length+1)
ReDim Preserve name_count(names.Length+1)
names(names.Length-1) = TestArray(0)
name_count(names.Length-1)=1
End If
Next i
End If
Loop

Код не проверял, нужно доводить.

[Maria_Babkina]

Здравстуйте, challenger !
Огромное спасибо за ответ!

Сообщение от challengerr

[code]
Код не проверял, нужно доводить.

Не могли бы вы ответить на вопрос, как должен работать этот скрипт? Каким образом код понимается, что найденое слово - это имя?
Как я уже писала, имена в тексте встречаются в формате: Имя+Фамилия или Фамилия+Имя.
В каком направлении двигаться? Пожалуйста, подскажите

[Maria_Babkina]

Наверное, я неполно объясниласуть задачи.
Есть художественный текст, в котором случайным образом находятся Имена+Фамилии. Необходимо выписать каждое Именя+Фамилию и узнать, какое количество раз оно встречается в тексте.

Например:
Архитектор Василий Петров завершил проект это здания в 1953 году. Под его началом трудились многие инженеры и проектировщики, среди них Ольга Зайцева, Антон Антипов. Позднее, Ольга Зайцева участвовала и в других проектах.
В результате хочется получить:
Антон Антипов - 1
Василий Петров - 1
Ольга Зайцева - 2


Я совсем не знаю, что делать. Пожалуйста, помогите!

[Rififi]

Maria_Babkina

Архитектор Василий Петров завершил проект это здания в 1953 году. Под его началом трудились многие инженеры и проектировщики, среди них Ольга Зайцева, Антон Антипов. Позднее, Ольга Зайцева участвовала и в других проектах.
В результате хочется получить:
Антон Антипов - 1
Василий Петров - 1
Ольга Зайцева - 2

У вас должна быть база имен и фамилий (или только база имён, если предположить, что за именем всегда следует фамилия), потом из текста выделять каждое слово, производить морфологический разбор слова и сверять по базе.

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

Я совсем не знаю, что делать. Пожалуйста, помогите!

Озвучте цену за выпоняемую для вас работу.

[shanemac51]

Архитектор Василий Петров завершил проект это здания в 1953 году. Под его началом трудились многие инженеры и проектировщики, среди них Ольга Зайцева, Антон Антипов. Позднее, Ольга Зайцева участвовала и в других проектах вместе с Василием Петровым
В результате хочется получить:
Антон Антипов - 1
Василий Петров - 1
Ольга Зайцева - 2

и как быть с падежами и дополнительным первым словом в предложении(повторы не проблема)

** Архитектор Василий Петров
Ольга Зайцева
Антон Антипов
Ольга Зайцева
** Василием Петровым
Антон Антипов
Василий Петров
Ольга Зайцева
=======
или В.Петровым или В.А.Петровым

[Maria_Babkina]

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

Один знакомый предложил использовать выборку по двум соседним словам, написанным с заглавной буквы. Но как это записать в макрос он не знает.

Сообщение от shanemac51

и как быть с падежами и дополнительным первым словом в предложении(повторы не проблема)

Дополнительных слов в тексте нет, все написаны развернуто.
Как я понимаю, падежи - огромная проблема, поэтому её не надо решать. Думаю, я смогу потом руками отредактировать за день...

shanemac51, Если у вас есть возможность, пожалуйста, помогите.

[shanemac51]

вы сможете записать макрос в шаблон и запустить его?
или присылайте файл

[Maria_Babkina]

Сообщение от shanemac51

вы сможете записать макрос в шаблон и запустить его?
или присылайте файл

Да, думаю, что смогу.
Макрос-> записать макрос.
Затем я сразу его останавливаю.
Макрос-> посмотреть макрос.
Выбираю, только что записанный пустой макрос.
Жму кнопку Edit.
И сюда, как я поняла, и нужно вставлять код.
Все верно?

[shanemac51]

ВСЕ правильно, правда у меня подсчет не вставлен
попробуйте попрактиковаться на

Sub w140930_14()
Dim w1 As Object, s1, K1, SS
Dim zpath, zname
SS = ""
zpath = Word.ActiveDocument.Path & "\"
zname = zpath & "spisok140930.txt"
Open zname For Output As #1
For Each w1 In Selection.Words
s1 = w1
If s1 Like "[А-ЯЁ]*" Then
K1 = K1 + 1
SS = SS & Trim(s1) & " "
Else
If Len(SS) > 5 And K1 > 1 Then
'Debug.Print K1, SS
Print #1, SS
End If
SS = ""
K1 = 0
End If
Next w1

Close #1
End Sub

получите текстовик, откройте его ехсель и через впр и сводную волучите желаемое