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

@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 [Количество Букв П]

Новые блоги и статьи Все статьи Все блоги /
Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Programma_Boinc 26.12.2025 Кто-нибудь знает, где можно бесплатно получить настольный компьютер или ноутбук? США. Нашел на реддите интересную статью под названием «Кто-нибудь знает, где получить бесплатный компьютер или. . .	Thinkpad X220 Tablet — это лучший бюджетный ноутбук для учёбы, точка. Programma_Boinc 23.12.2025 Рецензия / Мнение/ Перевод Нашел на реддите интересную статью под названием The Thinkpad X220 Tablet is the best budget school laptop period . Ниже её машинный перевод. Thinkpad X220 Tablet —. . .	PhpStorm 2025.3: WSL Terminal всегда стартует в ~ and_y87 14.12.2025 PhpStorm 2025. 3: WSL Terminal всегда стартует в ~ (home), игнорируя директорию проекта Симптом: После обновления до PhpStorm 2025. 3 встроенный терминал WSL открывается в домашней директории. . .	Как объединить две одинаковые БД Access с разными данными VikBal 11.12.2025 Помогите пожалуйста !! Как объединить 2 одинаковые БД Access с разными данными.	Новый ноутбук volvo 07.12.2025 Всем привет. По скидке в "черную пятницу" взял себе новый ноутбук Lenovo ThinkBook 16 G7 на Амазоне: Ryzen 5 7533HS 64 Gb DDR5 1Tb NVMe 16" Full HD Display Win11 Pro
Музыка, написанная Искусственным Интеллектом volvo 04.12.2025 Всем привет. Некоторое время назад меня заинтересовало, что уже умеет ИИ в плане написания музыки для песен, и, собственно, исполнения этих самых песен. Стихов у нас много, уже вышли 4 книги, еще 3. . .	От async/await к виртуальным потокам в Python IndentationError 23.11.2025 Армин Ронахер поставил под сомнение async/ await. Создатель Flask заявляет: цветные функции - провал, виртуальные потоки - решение. Не threading-динозавры, а новое поколение лёгких потоков. Откат?. . .	Поиск "дружественных имён" СОМ портов Argus19 22.11.2025 Поиск "дружественных имён" СОМ портов На странице: https:/ / norseev. ru/ 2018/ 01/ 04/ comportlist_windows/ нашёл схожую тему. Там приведён код на С++, который показывает только имена СОМ портов, типа,. . .	Сколько Государство потратило денег на меня, обеспечивая инсулином. Programma_Boinc 20.11.2025 Сколько Государство потратило денег на меня, обеспечивая инсулином. Вот решила сделать интересный приблизительный подсчет, сколько государство потратило на меня денег на покупку инсулинов. . . .	Ломающие изменения в C#.NStar Alpha Etyuhibosecyu 20.11.2025 Уже можно не только тестировать, но и пользоваться C#. NStar - писать оконные приложения, содержащие надписи, кнопки, текстовые поля и даже изображения, например, моя игра "Три в ряд" написана на этом. . .

@Апострофф 9908 / 3919 / 742 Регистрация: 11.10.2011 Сообщений: 5,903
	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