Форум программистов, компьютерный форум, киберфорум
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 4.60/5: Рейтинг темы: голосов - 5, средняя оценка - 4.60
1 / 1 / 1
Регистрация: 22.11.2019
Сообщений: 22
1

Дана строка. Определить сколько раз в неё входит подстрока abc

22.11.2019, 20:02. Показов 888. Ответов 12
Метки vba (Все метки)

Здравствуйте,не могу написать программу прошу помощи у более опытных пользователей ВБА
Дана строка. Определить сколько раз в неё входит подстрока abc.
Ввод текста в tx1 и вывод результата в tx2
Заранее спасибо
__________________
Помощь в написании контрольных, курсовых и дипломных работ здесь
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
22.11.2019, 20:02
Ответы с готовыми решениями:

Дана строка; определить, сколько раз входит в нее группа букв abc
дана строка (которую я ввожу с textbox) определить сколько раз входит в нее группа букв abc ...

Дана строка. Определить, сколько раз входит в нее подстрока "abc"
написать нужно 2 программы массивы и функции strink.

Дана строка, определить сколько раз входит в нее группа abc
дана строка определить сколько раз входит в нее группа abc

Дана строка. Определить, сколько раз в нее входит группа abc
Дана строка.Определить,сколько раз в нее входит группа abc ПОМОГИТЕ ПЛИЗ!!! Именуйте темы...

12
6859 / 2794 / 529
Регистрация: 19.10.2012
Сообщений: 8,524
23.11.2019, 00:21 2
Частый вопрос, и буквально вчера было...
Visual Basic
1
MsgBox UBound(Split("adfadabc fh abcip gjhjabcudfabc", "abc"))
P.S. А вот если нужно искать подстроку например "cac" - тут всё сложнее, такой подход не годится...
0
1468 / 1013 / 322
Регистрация: 11.07.2014
Сообщений: 3,624
23.11.2019, 05:16 3
ArximageQ, а ввод и вывод, как менее опытный, вы написать сможете?
0
2059 / 1408 / 661
Регистрация: 23.03.2015
Сообщений: 4,587
23.11.2019, 12:14 4
ArximageQ,
Еще вариант:
Visual Basic
1
2
3
4
5
6
7
8
Sub MMM()
Set RR = CreateObject("VBScript.RegExp")
With RR
.Global = True
.Pattern = "abc"
 MsgBox .Execute("adfadabc fh abcip gjhjabcudfabc").Count
End With
End Sub
0
1468 / 1013 / 322
Регистрация: 11.07.2014
Сообщений: 3,624
23.11.2019, 14:58 5
Ели исходить из уровня знаний человека, которого подобные задачи ставят в тупик,то можно и проще
Visual Basic
1
2
3
4
5
6
Sub proba()
tx1 = "abcde ffabccc cccccccac"
tx2 = (Len(tx1) - Len(Replace(tx1, "abc", ""))) / 3
'можно вместо "abc" потавить, что угодно,например, "cac", "ccc"
MsgBox tx2
End Sub
1
2059 / 1408 / 661
Регистрация: 23.03.2015
Сообщений: 4,587
23.11.2019, 15:15 6
Цитата Сообщение от Burk Посмотреть сообщение
можно вместо "abc" потавить,
"bc"?
0
1468 / 1013 / 322
Регистрация: 11.07.2014
Сообщений: 3,624
23.11.2019, 15:31 7
Narimanych, ну вы же видите, что делится на 3 (три символа как в задании), зачем же проверять на двух символах? Если в общем виде, то так
Visual Basic
1
2
3
4
5
6
Sub proba()
tx1 = "abcde ffabccc cccccccac": tx3="abc"
tx2 = (Len(tx1) - Len(Replace(tx1, tx3, ""))) / Len(tx3)
'можно вместо "abc" поставить, что угодно,например, "cac", "ccc"
MsgBox tx2
End Sub
Поставьте tx3="bc"
0
2059 / 1408 / 661
Регистрация: 23.03.2015
Сообщений: 4,587
23.11.2019, 15:58 8
Burk,
К последнему варианту претензий нет

Добавлено через 3 минуты

Не по теме:


у меня не все смайлики показывает ( не прокручивается) почемуто… Может кто знает как исправить?

0
1468 / 1013 / 322
Регистрация: 11.07.2014
Сообщений: 3,624
23.11.2019, 16:09 9
Narimanych, лучше бы у вас в дальнейшем не было никаких претензий, я пишу, в основном, для авторов тем и стараюсь писать попроще. И незачем выискивать к чему бы придраться в моих кодах. Всем и так ясно, что вы шибко умный. И небольшое замечание - вы уверены, что ArximageQ влёгкую сможет пояснить ваш код преподавателю?
0
2059 / 1408 / 661
Регистрация: 23.03.2015
Сообщений: 4,587
23.11.2019, 16:24 10
Burk,
Извините,не думал, что вы так болезненно реагируете....
буду прходить мимо....
0
6859 / 2794 / 529
Регистрация: 19.10.2012
Сообщений: 8,524
23.11.2019, 22:41 11
По ходу дела вопрос (т.к. я не дока в таких непрактичных заданиях, упомяну ещё раз) - как правильно считать число вхождений того пресловутого "cac" в строке "adcacacbc"? Или вернее - сколько тут вхождений, посчитать уж как-то можно придумать, хоть банально циклом...
0
1468 / 1013 / 322
Регистрация: 11.07.2014
Сообщений: 3,624
24.11.2019, 09:21 12
Hugo121, выскажу своё мнение, я более склонен к тому чтобы не считать "перехлёсты", уверен, что уровень таких заданий "cac" не предусматривает.
0
6859 / 2794 / 529
Регистрация: 19.10.2012
Сообщений: 8,524
24.11.2019, 12:15 13
Ну в общем сплит и регэксп эти перехлёсты и не учитывает, но думаю студенту при общении с вредным преподом этот момент нужно знать.
0
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
24.11.2019, 12:15

Дана строка. Определить, сколько раз входит в нее группа букв abc
Дана строка. Определить, сколько раз входит в нее группа букв abc. Во всех заданиях исходные...

Дана строка. Определить, сколько раз входит в нее группа букв abc.
Дана строка. Определить, сколько раз входит в нее группа букв abc.

Дана строка. Определить, сколько раз входит в нее группа букв abc
Дана строка. Определить, сколько раз входит в нее группа букв abc.

Дана строка. Определить, сколько раз входит в нее группа букв abc
Дана строка. Определить, сколько раз входит в нее группа букв abc.

Дана строка. Определить, сколько раз входит в нее группа букв abc
24. Дана строка. Определить, сколько раз входит в нее группа букв abc я бы с удовольствием...

Дана строка; определить сколько раз входит в нее группа букв abc
Помогите решить данную заачу в C# я ноль ( Дана строка определить сколько раз входит в нее...


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

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

КиберФорум - форум программистов, компьютерный форум, программирование
Powered by vBulletin
Copyright ©2000 - 2022, CyberForum.ru