|
0 / 0 / 0
Регистрация: 21.12.2017
Сообщений: 1
|
|
| 1 | |
В символьной строке каждое слово НН заменить на слово Нижний Новгород и полученную строку вывести на экран21.12.2017, 20:03. Просмотров 444. Ответов 4
Метки нет (Все метки)
 использовать функцию Mid
0
|
|
(|
|
| 21.12.2017, 20:03 | |
|
В строке слова разделены пробелами. Удалить каждое нечётное слово. Напечатать полученную строку. В символьной строке удалить все повторяющиеся слова и вывести полученную строку на экран. VBA Заменить каждое слово в строке на обратное ему слово, при этом сохраняя последовательность слов в строке
__________________
4
Помогаю в написании курсовых работ и дипломов здесь. |
|
|
Сообщение от Vis777777777777
|
132 / 108 / 22
Регистрация: 23.06.2015
Сообщений: 339
|
|
| 21.12.2017, 22:42 | 3 |
|
Vis777777777777, вариант макроса test:
Код
Sub test()
Dim t$: t = "Турист приехал в НН и восхищенный покинул НН": MsgBox t
With CreateObject("VBScript.RegExp"): .Pattern = " НН(?= |$)": .Global = True
MsgBox .Replace(t, " Нижний Новгород ")
End With
End Sub
0
|
|
|
Казанский
|
|
21.12.2017, 23:24
#4
|
|
Не по теме: Svsh2015, выражу мысль ТС:
0
|
|
132 / 108 / 22
Регистрация: 23.06.2015
Сообщений: 339
|
|
| 22.12.2017, 00:28 | 5 |
|
Vis777777777777, в Вашей теме нет никакого файл-примера,попробуйте допилить что-то типа макроса test1
Код
Sub test1()
Dim t$, i1&: t = "турист приехал в НН и удивленный покинул НН": MsgBox t
i1 = InStr(1, t, " НН ")
MsgBox Replace(t, Mid(t, i1 + 1, 2), "Нижний Новгород")
End Sub
0
|
|
| 22.12.2017, 00:28 | |
|
Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь. Ввести с клавиатуры строку. Вывести каждое слово в отдельной строке. Вывести строку на экран по словам, причем каждое слово вывести в обратном порядке Ввести строку, вывести на экран пословно, причем каждое слово вывести в обратном порядке
Искать еще темы с ответами Или воспользуйтесь поиском по форуму: |
