Форум программистов, компьютерный форум, киберфорум
Наши страницы
VBA
Войти
Регистрация
Восстановить пароль
 
Рейтинг 5.00/3: Рейтинг темы: голосов - 3, средняя оценка - 5.00
delphi7
3 / 3 / 0
Регистрация: 14.10.2011
Сообщений: 7
1

Ввести две строки и определить, сколько раз и на каких позициях встречается 2 строка внутри первой

12.04.2012, 06:22. Просмотров 597. Ответов 1
Метки нет (Все метки)

Ввести две строки и определить, сколько раз и на каких позициях встречается 2 строка внутри первой
всё это надо сделать в MS Excel
0
Similar
Эксперт
41792 / 34177 / 6122
Регистрация: 12.04.2006
Сообщений: 57,940
12.04.2012, 06:22
Ответы с готовыми решениями:

Дана строка S и слово W. Определить, сколько раз в строке встречается это слово
У меня задание: Дана строка S и слово W. Определить сколько раз в строке...

Как ввести строку и посчитать, сколько раз в ней встречается каждая цифра
Ввести строку, посчитать, сколько раз в ней встречается каждая цифра, в ответе...

Как ввести строку и посчитать, сколько раз в ней встречается заданный символ
Ввести строку, посчитать, сколько раз в ней встречается заданный символ.

Ввести произвольную строку, посчитать сколько раз в ней встречается каждый символ
Задачу я решил, но возникла загвоздка, которую я уже не в силах устранить... И...

Определить, сколько раз в числе встречается максимальная цифра
Дано натуральное четырехзначное число. Определить, сколько раз в нем...

1
Казанский
14338 / 5950 / 1576
Регистрация: 24.09.2011
Сообщений: 9,371
12.04.2012, 11:21 2
Visual Basic
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
Sub bb()
Dim s1$, s2$, s3$, i&, j&, m&
s1 = InputBox("Введите 1-ю строку", , "Этот Колпак сшит не по-колпаковски, его нетрудно переколпаковать.")
s2 = InputBox("Введите 2-ю строку", , "колпак")
m = IIf(InputBox("Учитывать регистр? 1 - учитывать, 0 - не учитывать", , "0") = "1", vbBinaryCompare, vbTextCompare)
i = 1 - Len(s2)
Do
    i = InStr(i + Len(s2), s1, s2, m)
    If i = 0 Then Exit Do
    j = j + 1
    s3 = s3 & ", " & i
Loop
If j Then
    MsgBox "Строка" & vbLf & s2 & vbLf & "встречается в строке" & vbLf & _
        s1 & vbLf & j & " раз(а), на позициях: " & Mid$(s3, 3)
Else
    MsgBox "Строка" & vbLf & s2 & vbLf & "НЕ встречается в строке" & vbLf & s1
End If
End Sub
0
MoreAnswers
Эксперт
37091 / 29110 / 5898
Регистрация: 17.06.2006
Сообщений: 43,301
12.04.2012, 11:21

Определить, сколько раз в числе встречается максимальная цифра
Дано натуральное четырехзначное число. Определить, сколько раз в нем...

Определить, сколько раз в строке встречается заданное слово
Здравствуйте .помогите пожалуйста решить задачку!!!! Определить, сколько раз в...

Определить, сколько раз встречается в нём самое длинное слово
Нужно , срочно решить задачи по VBA: 1)Ввести текст.Определить, сколько раз...


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

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

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