С наступающим Новым годом! Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.50/4: Рейтинг темы: голосов - 4, средняя оценка - 4.50
Edianan
0 / 0 / 0
Регистрация: 13.04.2017
Сообщений: 30
1

Частотный анализ текста на встречаемость букв

11.06.2017, 17:27. Просмотров 644. Ответов 5
Метки нет (Все метки)

Ребята,помогите с кодом для задачи, может есть у кого решение, срочно нужно.
Разработать программный код на VBA для частотного анализа текста на встречаемость букв в тексте произвольного размера. Вывести на экран табличку, в которой для каждой буквы алфавита будет выводиться процент встречаемости и количество букв.
Например:
Всего букв – 6000.
А__ Б__ В__ … Я
1500 400 300 500
15% 5% 3% 6%
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
11.06.2017, 17:27
Ответы с готовыми решениями:

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

Частотный анализ текста
Добрый день! Помогите решить данную задачу. В исходном текстовом файле...

Частотный анализ текста
Вообщем задача, Есть текст в файле, необходимо определить, какие символы и...

Частотный анализ текста
Доброго времени суток! Решаю задачу в С++ (среда Borland C++ 3.0) Дан...

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

5
OLEGOFF
977 / 443 / 111
Регистрация: 27.02.2013
Сообщений: 1,279
11.06.2017, 18:05 2
Edianan, посмотрите здесь
Провести частотный анализ текста
1
Sasha_Smirnov
5468 / 1311 / 143
Регистрация: 08.02.2009
Сообщений: 4,029
Записей в блоге: 29
12.06.2017, 01:54 3
Например:
Цитата Сообщение от R Dmitry Посмотреть сообщение
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
Sub test()
Dim t$, tt As String * 1, t2$, i as long
t = "tftfasefgvhwaegfyw"
ReDim arr(1 To 255, 1 To 2)
For i = 1 To 255
tt = ChrW(i)
t2 = Replace(t, tt, "")
arr(i, 1) = tt
arr(i, 2) = Len(t) - Len(t2)
Debug.Print arr(i, 1); arr(i, 2)
t = t2
Next
End Sub

Цитата Сообщение от Alex77755 Посмотреть сообщение
А ведь в примерах есть
0
Edianan
0 / 0 / 0
Регистрация: 13.04.2017
Сообщений: 30
12.06.2017, 15:06  [ТС] 4
а могли бы Вы объяснить, мне вот что, я вставил эту комманду в макрос, в word, в файле где у меня набрат текст, в какой строке нужно указать, какие буквы он должен анализировать? в этой?
Visual Basic
1
t = "tftfasefgvhwaegfyw"
? с пробелами или без? просто я не совсем понимаю, как это должно выглядеть .
0
Alex77755
10780 / 3345 / 561
Регистрация: 13.02.2009
Сообщений: 9,826
12.06.2017, 15:24 5
? с пробелами или без?
При чём здесь пробелы?
For i = 1 To 255
ВСЕ символы по Chr() коду!

Добавлено через 8 минут
А если надо конкретные буквы анализировать, то лучше написать функцию и передавать ей в качестве аргументов текст и букву(ы)
0
Edianan
0 / 0 / 0
Регистрация: 13.04.2017
Сообщений: 30
12.06.2017, 15:34  [ТС] 6
и как это будет выглядеть в готовом ввиде?


ps. послушайте, нам эту лаб.работу дали без каких-либо пояснений, сделайте как хотите. Я никогда не работа с vba, поэтому и не представляю, что и как в нем работает. Мне просто нужно принести, показать, что оно работает и все на этом. Может это и тупо, но как есть.
0
12.06.2017, 15:34
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.06.2017, 15:34

Частотный анализ текста
Помогите решить задачу! Дана строка, содержащая текст, набранный заглавными...

Частотный анализ русских букв и биграмм в тексте
Вот наработка. Вылезает ошибка при объявлении константы RusChar...

Частотный анализ встречаемости букв русского алфавита
Задача: Проведите частотный анализ встречаемости символов и пар символов для...


Искать еще темы с ответами

Или воспользуйтесь поиском по форуму:
6
Ответ Создать тему
Опции темы

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin® Version 3.8.9
Copyright ©2000 - 2018, vBulletin Solutions, Inc.
Рейтинг@Mail.ru