ReSQL.ru
     
powered by simpleCommunicator - 2.0.51     © 2025 Programmizd 02
Мобильная версия    Контакт    Правила    FAQ    Помощь
Доб. в избранное | Игнор. тему | Прикреп. тему | Пометить прочит. / непрочит. | Фильтр
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Посчитать количество пробелов и заменить их на нужное количество
10 сообщений из 10, страница 1 из 1
Посчитать количество пробелов и заменить их на нужное количество
    #38838194
Namik
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
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:06
| Ответить | Цитировать | Написать  
Посчитать количество пробелов и заменить их на нужное количество
    #38838219
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
Приветствую, Намик.

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

в цикле, пока замена не перестанет происходить.
Проверять, произошла ли замена можно, сравнивая длину строки до и после замены
...
Рейтинг: 0 / 0
19.12.2014, 15:20
| Ответить | Цитировать | Написать  
Посчитать количество пробелов и заменить их на нужное количество
    #38838251
13-й квартал
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
13-й квартал
Гость
NamikНо мне надо предположительно так

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

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

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

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

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

С Уважением и Благодарностью
Намик
...
Рейтинг: 0 / 0
19.12.2014, 16:01
| Ответить | Цитировать | Написать  
Посчитать количество пробелов и заменить их на нужное количество
    #38838292
Фотография Akina
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Akina
Участник
CHR(160)
:D
...
Рейтинг: 0 / 0
19.12.2014, 16:10
| Ответить | Цитировать | Написать  
Посчитать количество пробелов и заменить их на нужное количество
    #38838340
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
Как вариант. Split s по пробелу, потом собрать строку заново в цикле с Trim + три пробела.
...
Рейтинг: 0 / 0
19.12.2014, 16:42
| Ответить | Цитировать | Написать  
Посчитать количество пробелов и заменить их на нужное количество
    #38838349
Фотография Shocker.Pro
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Shocker.Pro
Участник
AndreyMpКак вариант. Split s по пробелу, потом собрать строку заново в цикле с Trim + три пробела.боюсь, это самый медленный и громоздкий вариант )
...
Рейтинг: 0 / 0
19.12.2014, 16:47
| Ответить | Цитировать | Написать  
Посчитать количество пробелов и заменить их на нужное количество
    #38838383
Фотография Antonariy
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
Antonariy
Участник
Shocker.ProAndreyMpКак вариант. Split s по пробелу, потом собрать строку заново в цикле с Trim + три пробела.боюсь, это самый медленный и громоздкий вариант )а я так вообще в ужасе
...
Рейтинг: 0 / 0
19.12.2014, 17:27
| Ответить | Цитировать | Написать  
Посчитать количество пробелов и заменить их на нужное количество
    #38839282
AndreyMp
Скрыть профиль Поместить в игнор-лист Сообщения автора в теме
AndreyMp
Участник
Ну это просто тупо в лоб. :-)
...
Рейтинг: 0 / 0
22.12.2014, 07:32
| Ответить | Цитировать | Написать  
10 сообщений из 10, страница 1 из 1
Форумы / Visual Basic [игнор отключен] [закрыт для гостей] / Посчитать количество пробелов и заменить их на нужное количество
Целевая тема:
Создать новую тему:
Автор:
Закрыть
Цитировать
Найденые пользователи ...
Разблокировать пользователей ...
Читали тему (0):
Читали форум (0):
Пользователи онлайн (0):
Польз. соглашение
NoSQL.ru       Новости, Чат       Фотоальбом: Участники, Встречи
Закрыть
start [/forum/topic.php?fid=60&msg=38838194&tid=2156089]:
 0ms
get settings:
 9ms
get forum list:
 13ms
check forum access:
 4ms
check topic access:
 4ms
track hit:
 48ms
get topic data:
 8ms
get forum data:
 2ms
get page messages:
 40ms
get tp. blocked users:
 1ms
others: 12ms
total:  141ms
созд. / загр.: 141ms
x
x
Закрыть


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