Гость
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Посчитать количество пробелов и заменить их на нужное количество / 10 сообщений из 10, страница 1 из 1
19.12.2014, 15:06
    #38838194
Namik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Посчитать количество пробелов и заменить их на нужное количество
Доброго Вам времени суток
Уважаемые господа.

При наличии Вашего времени прошу Вас подсказать.

Есть строка, слова в которой разделены n количеством пробелов.
Например:

4-пробела Слово 5-пробелов слово 2-пробела слово 1-пробел слово 7-пробелов слово
(количество пробелов может меняться)

Мне необходимо реализовать следующее:
если между словами больше 3х пробелов заменить их на три.

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

Код: vbnet
1.
s = Replace(s, "  ", " ")



Но мне надо предположительно так

Код: vbnet
1.
s = Replace(s, "если больше 3х пробелов", "заменить на три пробела")



Подскажите пожалуйста как это реализовать.

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
19.12.2014, 15:20
    #38838219
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Посчитать количество пробелов и заменить их на нужное количество
Приветствую, Намик.

Самое простое, выполнять
Код: vbnet
1.
s = Replace(s, "    ", "   ")

в цикле, пока замена не перестанет происходить.
Проверять, произошла ли замена можно, сравнивая длину строки до и после замены
...
Рейтинг: 0 / 0
19.12.2014, 15:41
    #38838251
Посчитать количество пробелов и заменить их на нужное количество
NamikНо мне надо предположительно так

Код: vbnet
1.
s = Replace(s, "если больше 3х пробелов", "заменить на три пробела")

Считая, что символы "*", ">", "<" не входят в строку s (взяты произвольно, можно заменить на другие):
Код: vbnet
1.
s=Replace(Replace(Replace(Replace(Replace(Replace(s,"   ","*"),"* ","*"),"* ","*"),"*","<>"),"><",""),"<>","   ")
...
Рейтинг: 0 / 0
19.12.2014, 15:52
    #38838269
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Посчитать количество пробелов и заменить их на нужное количество
13-й квартал,

красиво
...
Рейтинг: 0 / 0
19.12.2014, 16:01
    #38838278
Namik
Гость
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Посчитать количество пробелов и заменить их на нужное количество
Приветствую Вас

Shocker.Pro
13-й квартал

Большое Вам спасибо

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
19.12.2014, 16:10
    #38838292
Akina
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Посчитать количество пробелов и заменить их на нужное количество
CHR(160)
:D
...
Рейтинг: 0 / 0
19.12.2014, 16:42
    #38838340
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Посчитать количество пробелов и заменить их на нужное количество
Как вариант. Split s по пробелу, потом собрать строку заново в цикле с Trim + три пробела.
...
Рейтинг: 0 / 0
19.12.2014, 16:47
    #38838349
Shocker.Pro
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Посчитать количество пробелов и заменить их на нужное количество
AndreyMpКак вариант. Split s по пробелу, потом собрать строку заново в цикле с Trim + три пробела.боюсь, это самый медленный и громоздкий вариант )
...
Рейтинг: 0 / 0
19.12.2014, 17:27
    #38838383
Antonariy
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Посчитать количество пробелов и заменить их на нужное количество
Shocker.ProAndreyMpКак вариант. Split s по пробелу, потом собрать строку заново в цикле с Trim + три пробела.боюсь, это самый медленный и громоздкий вариант )а я так вообще в ужасе
...
Рейтинг: 0 / 0
22.12.2014, 07:32
    #38839282
AndreyMp
Участник
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Посчитать количество пробелов и заменить их на нужное количество
Ну это просто тупо в лоб. :-)
...
Рейтинг: 0 / 0
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Посчитать количество пробелов и заменить их на нужное количество / 10 сообщений из 10, страница 1 из 1
Целевая тема:
Создать новую тему:
Автор:
Найденые пользователи ...
Разблокировать пользователей ...
Читали форум (0):
Пользователи онлайн (0):
x
x
Закрыть


Просмотр
0 / 0
Close
Debug Console [Select Text]