Имя: Пароль:
1C
 
Как убрать лишние пробелы?
0 Любящий Таню
 
21.02.05
21:01
Импортирую справочники из старых АРМов в 1с.

там куча вот такого текста

"пневмонии  частые  в  детстве ,  хр. Тонзилит", т.е. по 2-3 пробела между словами. везде по-разному.

Можно ли как-то автоматически это убрать?
1 unknown
 
21.02.05
21:02
Автоматический нет. Обработку делать надо однако ;))
2 Guk
 
21.02.05
21:03
(0) Можно...
3 Таня
 
21.02.05
21:19
открой текст в ворде и сделай заменить два пробела на один
4 GrayT
 
21.02.05
21:27
(3)А три тоже заменит?
5 unknown
 
21.02.05
21:28
Если не сколько раз повоторить.
6 Таня
 
21.02.05
21:34
а что прапора забанили? или меня еще кто-то любит?
7 GrayT
 
21.02.05
21:35
(5) так я и без ворда могу
8 Таня
 
21.02.05
21:36
(7) так расскажи (0) как делать без ворда :))
9 unknown
 
21.02.05
21:37
(7)Если много лишних пробелов, то можно за и бится.

(6)А как же я(((
10 427
 
21.02.05
21:39
не только можно - разрешено.
11 Таня
 
21.02.05
21:42
(9) логически рассуждая несложно догадаться, что (0) не ты, следовательно, в вопросе "кто еще меня любит?" подразумевалось, кто же (0)?
12 GrayT
 
21.02.05
21:43
(8)Подкатывали к тебе ;), Хотя ты уже рассказала, пардон
13 Guk
 
21.02.05
21:43
(8) Элементарно. На вскидку 2 варианта:
1. Запустить цикл с 2 до куда совесть позволяет, в цикле СтрЗаменить количество пробелов счетчика цикла на один пробел.
2. СтрЗаменить(МояСтрока,"",РазделительСтрок). Перебрать такую строку и удалить подстроки, где между двумя значащими подстроками, больше одной подстроки...
14 427
 
21.02.05
21:43
(12) все ищущие подкатывают к Тане...
15 Таня
 
21.02.05
21:45
(13) безобразие, Тане Guk бесплатно не помогает, а Любящему Таню помогает :((
несправедливость какая!!!
16 GrayT
 
21.02.05
21:46
"Тане Guk бесплатно не помогает" - вот с этого места поподробней, пожалста.
17 427
 
21.02.05
21:46
Гусары не платят!!!
18 Таня
 
21.02.05
21:46
(14) у меня даже мышка закашлялась :)) (компутерная)
19 Таня
 
21.02.05
21:47
а Любящий куда смылся?
вот так они всегда :((
20 427
 
21.02.05
21:51
"Все мужики сво..." (с) название кина...
21 Дурочкааа 1С
 
21.02.05
21:56
Эта ... кароче ... ну вобщем ... даже не знаю как сказать ...
Одним словом (0) - это не я. Вот.
22 ValeraVV
 
21.02.05
21:56
(0)
Пока Найти(ТвояСтрока, "  ")>0 Цикл
ТвояСтрока=СтрЗаменить(ТвояСтрока, "  ", " ");
КонецЦикла
23 Лихо
 
21.02.05
23:06
Таня, поздравляю!
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший