Имя: Пароль:
1C
 
как избавиться от пробелов
Ø
0 LivingStar
 
03.11.05
13:37
вот скажем строка
"1","03","1","НЖК ОАО","Новосибирск. ул.Семьи Шамшиных,88" ,"Башкредитбанк" ,"" ,"045005807" ,"5406013930" ,"4070281010000000533" ,"03","00","00","00","0" ,"" ,"01",""
1 Макс 1С
 
03.11.05
13:42
от всех?
стрЗамениить(ИсхлжнаяСтрока," ","");
2 Мулька
 
03.11.05
13:42
От 1 до СтрДлина считывать по одному символу, если пробел в результирующую переменную не писАть
3 dronis
 
03.11.05
13:42
где избавиться то ??
ни одного пробела не увидел ..
4 LivingStar
 
03.11.05
13:44
после "" ,идут пробелы, их нужно ликвидировать
5 КонецЦикла
 
03.11.05
13:46
Это в конце строки?
Может СокрП()?
6 951753
 
03.11.05
13:46
Тогда так: стрЗаменить(ИсходнаяСтрока, "; ", ";");
7 951753
 
03.11.05
13:48
т.е. стрЗаменить(ИсходнаяСтрока, """ ", """");
8 LivingStar
 
03.11.05
13:49
Ок, займусь
5 P.S. СокрП не пойдет, файл таким образом сформирован
9 Макс 1С
 
03.11.05
13:51
ты может пояснишь какие пробелы....
и при чем здесь образ формирования файла?
10 LivingStar
 
03.11.05
13:55
файл выгружен из домино
после " идут пробелы
что бы воспользоваться стрЗаменить(ИсходнаяСтрока, ", ", ",");
нужно получить строку, как из файла в 1С получить всю строку для обработки исключения пробелов?
11 Zamestas
 
03.11.05
13:56
(10) См. объект текст + сокрЛП.
12 LivingStar
 
03.11.05
13:58
то есть стрЗаменить(ИсходнаяСтрока, " ,", ",");
как в переменную ИсходнаяСтрока получить всю строку?
13 Макс 1С
 
03.11.05
13:58
(10)
во-первых - для того что бы убрать пробелы слева и справа (а не внутри), если СокрЛ(), СОкрП(), СокрЛП() - и это совсем не одно и тоже что и СтрЗаменить()
во-вторых: для получения строки есть метод, читай внимательнее СП:
ПолучитьСтроку(<?>)
Синтаксис:
ПолучитьСтроку(<НомерСтроки>)
Назначение:
Возвращает строку текста с заданным номером.
Параметры:
<НомерСтроки> - номер строки.
14 Женщина
 
03.11.05
13:59
Тхт=СоздатьОбъект("Текст");
Тхт.Открыть("ПутьКФайлу");
Для Сч=1 По Тхт.КоличествоСтрок() Цикл
ТекСтрока=Тхт.ПолучитьСтроку(Сч);
ТекСтрока=СтрЗаменить(ТекСтрока," ","");
КонецЦикла;
15 Женщина
 
03.11.05
14:02
+14, поняла до конца.
Замените на это:
ТекСтрока=СтрЗаменить(ТекСтрока,""" ","");
16 Zamestas
 
03.11.05
14:03
(14) Было: <"Новосибирск. ул.Семьи Шамшиных,88">
После ТекСтрока=СтрЗаменить(ТекСтрока," ",""); стало: <"Новосибирск.ул.СемьиШамшиных,88">...
С учетом всего вышесказанного:
Тхт=СоздатьОбъект("Текст");
Тхт.Открыть("ПутьКФайлу");
Для Сч=1 По Тхт.КоличествоСтрок() Цикл
 ТекСтрока=Тхт.ПолучитьСтроку(Сч);
 ТекСтрока=СокрП(ТекСтрока);
КонецЦикла;
17 LivingStar
 
03.11.05
14:32
скажите пожалуйста а как записать в файл новые строки?
вот функция обработки строк которые после нужно поместить в новый файл
то есть на выходе получить обработанный файл
Процедура ЛиквидацияЛишнПроб()
Тхт=СоздатьОбъект("Текст");
Тхт.Открыть(СокрЛП(Константа.Путь)+"Part_dis.txt");
Для Сч=1 По Тхт.КоличествоСтрок() Цикл
  ТекСтрока=Тхт.ПолучитьСтроку(Сч);
  ТекСтрока=СтрЗаменить(ТекСтрока," ,",",");
КонецЦикла;
КонецПроцедуры
18 Макс 1С
 
03.11.05
14:40
ты Синтаксис Помошник принципиально не читаешь, или что?