Подсчитать, сколько раз буква встречается в строке

@ulia · Регистрация: 19.09.2009

Студворк — интернет-сервис помощи студентам

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

SQL
1
2
 DECLARE @text VARCHAR(1000)
SET @text = 'В полет,  раскинув   два крыла.  В полет! В обьятья небосвода.'

Пожалуйста помогите

@Апострофф · 19.03.2012, 19:49

ulia, найди подходящий для себя раздел там https://www.cyberforum.ru/database/
или задавай адекватные для VB вопросы здесьО_о

@ulia · 19.03.2012, 19:57 **[ТС]**

в разделе баз данных мне пишут то же самое

Добавлено через 5 минут
Апострофф, в разделе баз данных мне пишут то же самое , помоги пожалуйста

Памирыч · 19.03.2012, 20:03

ulia, так и будет, пока Вы не уточните, на каком языке Вам это нужно

@ulia · 19.03.2012, 20:04 **[ТС]**

Памирыч, sql server

@pincet · 19.03.2012, 21:51

Балин, что за ВУЗ такой, где задачки на парсинг простого текста заставляют решать на T-SQL????
Хоть бы уже Бэйсик какой-нить сперва пропробовали применить.....

@Agapov_stas · 20.03.2012, 10:06

T-SQL
1
2
3
4
5
6
7
 declare @text Varchar(1000)
SET @text = 'В полет,  раскинув   два крыла.  В полет! В обьятья небосвода.'  
Select  
 LEN(@text) - LEN(REPLACE(@text, 'а', '')) AS [Количество Букв А],
 LEN(@text) - LEN(REPLACE(@text, 'в', '')) AS [Количество Букв В],
 LEN(@text) - LEN(REPLACE(@text, 'и', '')) AS [Количество Букв И],
 LEN(@text) - LEN(REPLACE(@text, 'п', '')) AS [Количество Букв П]

@iap · 20.03.2012, 16:33

А для такой строки:

T-SQL
1
SET @text = 'В полет,  раскинув   два крыла.  В полет! В обьятья небосвода.   а'

А если COLLATE базы регистрозависимый?

@Agapov_stas · 20.03.2012, 18:20

Не по теме:

iap, есть что по теме , скажите, если же нет, нечего тут оффтопить и выпендриваться.
Если есть хорошие варианты решения вопроса, - пожалуйста в студию. ТС и задал вопрос, чтобы на него отвечали, а не страдали тут не понятно чем.
Шесть сообщений, ни один и близко не отвечает на вопрос ТС-а.

Я ответил, ниже поправка с учетом "увиденного" Вами недостатка.

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

А для такой строки:

T-SQL
1
SET @TEXT = 'В полет,  раскинув   два крыла.  В полет! В обьятья небосвода.   а'

А для такой строки будет так:

T-SQL
1
2
3
4
5
6
7
DECLARE @TEXT VARCHAR(1000)
SET @TEXT = 'В полет,  раскинув   два крыла.  В полет! В обьятья небосвода.а а  а    а       а'  
SELECT  
 Len(REPLACE(@TEXT,' ',''))-  Len(REPLACE(REPLACE(@TEXT,' ',''), 'а', '')) AS [Количество Букв А],
 Len(REPLACE(@TEXT,' ',''))-  Len(REPLACE(REPLACE(@TEXT,' ',''), 'в', '')) AS [Количество Букв В],
 Len(REPLACE(@TEXT,' ',''))-  Len(REPLACE(REPLACE(@TEXT,' ',''), 'и', '')) AS [Количество Букв И],
 Len(REPLACE(@TEXT,' ',''))-  Len(REPLACE(REPLACE(@TEXT,' ',''), 'п', '')) AS [Количество Букв П]

Вложенным Replace-ом приводим строку к нужному нам виду, а потом выводим количество букв.

@iap · 21.03.2012, 09:46

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

Не по теме:

iap, есть что по теме , скажите, если же нет, нечего тут оффтопить и выпендриваться.
Если есть хорошие варианты решения вопроса, - пожалуйста в студию.

Не по теме:

А нечего тут говнокод постить! И хамить, когда носом в него ткнули.

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

А для такой строки будет так:

T-SQL
1
2
3
4
5
6
7
DECLARE @TEXT VARCHAR(1000)
SET @TEXT = 'В полет,  раскинув   два крыла.  В полет! В обьятья небосвода.а а  а    а       а'  
SELECT  
 Len(REPLACE(@TEXT,' ',''))-  Len(REPLACE(REPLACE(@TEXT,' ',''), 'а', '')) AS [Количество Букв А],
 Len(REPLACE(@TEXT,' ',''))-  Len(REPLACE(REPLACE(@TEXT,' ',''), 'в', '')) AS [Количество Букв В],
 Len(REPLACE(@TEXT,' ',''))-  Len(REPLACE(REPLACE(@TEXT,' ',''), 'и', '')) AS [Количество Букв И],
 Len(REPLACE(@TEXT,' ',''))-  Len(REPLACE(REPLACE(@TEXT,' ',''), 'п', '')) AS [Количество Букв П]

Вложенным Replace-ом приводим строку к нужному нам виду, а потом выводим количество букв.

T-SQL
1
2
3
4
5
6
7
DECLARE @TEXT VARCHAR(1000)
SET @TEXT = 'В полет,  раскинув   два крыла.  В полет! В обьятья небосвода.а а  а    а       а'  
SELECT  
 DATALENGTH(@TEXT)-DATALENGTH(REPLACE(@TEXT,'а' COLLATE Cyrillic_General_CI_AI,'')) AS [Количество Букв А],
 DATALENGTH(@TEXT)-DATALENGTH(REPLACE(@TEXT,'в' COLLATE Cyrillic_General_CI_AI,'')) AS [Количество Букв В],
 DATALENGTH(@TEXT)-DATALENGTH(REPLACE(@TEXT,'и' COLLATE Cyrillic_General_CI_AI,'')) AS [Количество Букв И],
 DATALENGTH(@TEXT)-DATALENGTH(REPLACE(@TEXT,'п' COLLATE Cyrillic_General_CI_AI,'')) AS [Количество Букв П]

Кроме всего прочего, с указанным COLLATE буквы 'е' и 'ё' не различаются (......_AI)
Если строка будет юникодная, DATALENGTH надо будет делить на 2, чтобы получить количество символов (а не байт)

@Agapov_stas · 21.03.2012, 12:26

Не по теме:

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

А нечего тут говнокод постить!

К сведению, предложенный мною вариант, работоспособен. Если Вы не желали помочь, то нужно было просто взять и написать вариант решения вопроса для ТС.
По поводу collate, не думаю, что у ТС-а изменен он в базе с Cyrillic_General_CI_AS(который по умолчанию вообще-то стоит) на какой-либо иной.
Но даже сли и так, то не сложно добавить это "уточнение":

T-SQL
1
2
3
4
5
6
7
DECLARE @TEXT VARCHAR(1000)
SET @TEXT = 'В полет,  раскинув   два крыла.  В полет! В обьятья небосвода.а а  а    а       а'  
SELECT  
 LEN(REPLACE(@TEXT,' ',''))-  LEN(REPLACE(REPLACE(@TEXT,' ',''), 'а'  COLLATE Cyrillic_General_CI_AI, '')) AS [Количество Букв А],
 LEN(REPLACE(@TEXT,' ',''))-  LEN(REPLACE(REPLACE(@TEXT,' ',''), 'в'  COLLATE Cyrillic_General_CI_AI, '')) AS [Количество Букв В],
 LEN(REPLACE(@TEXT,' ',''))-  LEN(REPLACE(REPLACE(@TEXT,' ',''), 'и'  COLLATE Cyrillic_General_CI_AI, '')) AS [Количество Букв И],
 LEN(REPLACE(@TEXT,' ',''))-  LEN(REPLACE(REPLACE(@TEXT,' ',''), 'п'  COLLATE Cyrillic_General_CI_AI, '')) AS [Количество Букв П]

Новые блоги и статьи Все статьи Все блоги /
Почему дизайн решает? Neotwalker 09.01.2026 В современном мире, где конкуренция за внимание потребителя достигла пика, дизайн становится мощным инструментом для успеха бренда. Это не просто красивый внешний вид продукта или сайта — это. . .	Модель микоризы: классовый агентный подход 3 anaschu 06.01.2026 aa0a7f55b50dd51c5ec569d2d10c54f6/ O1rJuneU_ls https:/ / vkvideo. ru/ video-115721503_456239114	Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ФедосеевПавел 06.01.2026 Owen Logic: О недопустимости использования связки «аналоговый ПИД» + RegKZR ВВЕДЕНИЕ Введу сокращения: аналоговый ПИД — ПИД регулятор с управляющим выходом в виде числа в диапазоне от 0% до. . .	Модель микоризы: классовый агентный подход 2 anaschu 06.01.2026 репозиторий https:/ / github. com/ shumilovas/ fungi ветка по-частям. коммит Create переделка под биомассу. txt вход sc, но sm считается внутри мицелия. кстати, обьем тоже должен там считаться. . . .
Расчёт токов в цепи постоянного тока igorrr37 05.01.2026 / * Дана цепь постоянного тока с сопротивлениями и напряжениями. Надо найти токи в ветвях. Программа составляет систему уравнений по 1 и 2 законам Кирхгофа и решает её. Последовательность действий:. . .	Новый CodeBlocs. Версия 25.03 palva 04.01.2026 Оказывается, недавно вышла новая версия CodeBlocks за номером 25. 03. Когда-то давно я возился с только что вышедшей тогда версией 20. 03. С тех пор я давно снёс всё с компьютера и забыл. Теперь. . .	Модель микоризы: классовый агентный подход anaschu 02.01.2026 Раньше это было два гриба и бактерия. Теперь три гриба, растение. И на уровне агентов добавится между грибами или бактериями взаимодействий. До того я пробовал подход через многомерные массивы,. . .	Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Programma_Boinc 28.12.2025 Советы по крайней бережливости. Внимание, это ОЧЕНЬ длинный пост. Налог на собак: https:/ / ********/ gallery/ V06K53e Финансовый отчет в Excel: https:/ / ********/ gallery/ bKBkQFf Пост отсюда. . .

@Апострофф 9908 / 3924 / 742 Регистрация: 11.10.2011 Сообщений: 5,904
	19.03.2012, 19:49
	ulia, найди подходящий для себя раздел там https://www.cyberforum.ru/database/ или задавай адекватные для VB вопросы здесьО_о 0

@ulia 0 / 0 / 0 Регистрация: 19.09.2009 Сообщений: 77
	19.03.2012, 19:57 [ТС]
	в разделе баз данных мне пишут то же самое Добавлено через 5 минут Апострофф, в разделе баз данных мне пишут то же самое , помоги пожалуйста 0

Памирыч Почетный модератор 23248 / 9160 / 1084 Регистрация: 11.04.2010 Сообщений: 11,014
	19.03.2012, 20:03
	ulia, так и будет, пока Вы не уточните, на каком языке Вам это нужно 0

@ulia 0 / 0 / 0 Регистрация: 19.09.2009 Сообщений: 77
	19.03.2012, 20:04 [ТС]
	Памирыч, sql server 0

@pincet 1654 / 1153 / 173 Регистрация: 23.07.2010 Сообщений: 6,910
	19.03.2012, 21:51
	Балин, что за ВУЗ такой, где задачки на парсинг простого текста заставляют решать на T-SQL???? Хоть бы уже Бэйсик какой-нить сперва пропробовали применить..... 0