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

В символьной строке каждое слово НН заменить на слово Нижний Новгород и полученную строку вывести на экран

21.12.2017, 20:03. Просмотров 444. Ответов 4
Метки нет (Все метки)


В символьной строке каждое слово НН заменить на слово Нижний Новгород и полученную строку вывести на экран
использовать функцию Mid
0
Programming
Эксперт
94731 / 64177 / 26122
Регистрация: 12.04.2006
Сообщений: 116,782
21.12.2017, 20:03
Ответы с готовыми решениями:

В строке слова разделены пробелами. Удалить каждое нечётное слово. Напечатать полученную строку.
В строке слова разделены пробелами. Удалить каждое нечётное слово. Напечатать полученную строку....

В символьной строке удалить все повторяющиеся слова и вывести полученную строку на экран. VBA
В символьной строке удалить все повторяющиеся слова и вывести полученную строку на экран. VBA B...

Заменить каждое слово в строке на обратное ему слово, при этом сохраняя последовательность слов в строке
Доброго времени суток ! Есть задача Заменить каждое слово в строке на обратное ему слово, при этом...

В заданной строке, состоящей из слов, разделенных одним или более пробелами, заменить каждое третье слово «мама» слово
помогите решить пожалуйста а то я в программировании не очень)

__________________
Помогаю в написании курсовых работ и дипломов здесь.
4
Эксперт MS Access
26614 / 14312 / 3167
Регистрация: 28.04.2012
Сообщений: 15,692
21.12.2017, 20:40 2
Цитата Сообщение от Vis777777777777 Посмотреть сообщение
использовать функцию Mid
Есть такие функции HelpMePlease и ThankYou. Незаменимы на форумах. Оказывают буквально волшебные действия
2
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, выражу мысль ТС:
"Боец, ты чо, тупой? Какой регэксп?! Приказано использовать Mid!"

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
IT_Exp
Эксперт
87844 / 49110 / 22898
Регистрация: 17.06.2006
Сообщений: 92,604
22.12.2017, 00:28

Заказываю контрольные, курсовые, дипломные работы и диссертации здесь или здесь.

Ввести с клавиатуры строку. Вывести каждое слово в отдельной строке.
ввести с клавиатуры строку,состоящую из нескольких слов.Вывести каждое слово на экран в отдельной...

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

Ввести строку, вывести на экран пословно, причем каждое слово вывести в обратном порядке
Задание: Ввести строку, вывести на экран пословно, причем каждое слово вывести в обратном порядке....

Оределить количество слов в строке и вывести на экран каждое нечетное слово
Дана строка текста, в которой слова разделены запятыми и двоеточиями. Необходимо: а) оределить...


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

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

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