Имя: Пароль:
1C
 
7.7 убрать разделители строк
Ø
0 ServMan
 
04.01.05
14:57
имеется текстовый файл, такого вида
[00:06:00]
child
надо привести к виду
[00:06:00]child
то есть убрать разделители строк, как?
1 IgorKa
 
04.01.05
15:10
Перебираешь символы и отсеиваешь разделитель строк.
2 ServMan
 
04.01.05
15:13
каким образом, ПолучтьСтроку()получает только строку без разделителя, проверял - кодсимвола(Прав()) и Лев()
3 pvase
 
04.01.05
15:16
СтрЗаменить(СтрокаТекста,Симв(10),"");
СтрЗаменить(СтрокаТекста,Симв(13),"");
4 IgorKa
 
04.01.05
15:18
НоваяСтрочка = "";
Для Н=1 По 2 Цикл
Строчка = Текст.ПолучитьСтроку(Н);
Для Р=1 По СтрДлина(Строчка) Цикл
Символ = Сред(Р,1);
Если КодСимв(Символ) <> 121 // сам найди разделитель
НоваяСтрочка = НоваяСтрочка + Символ;
//Вроде смысл такой
5 ServMan
 
04.01.05
15:25
(3) не получится, смотри и попробуй как в (2) нет в полученной строке кода окончания строки и возврата каретки
(4) ясно, попробую в новый объект текст
6 pvase
 
04.01.05
15:33
(5) Попробуй так:
Рез = "";
Для нТекст = 1 По Текст.КоличестваСтрок() Цикл
   СтрокаТекста = Текст.ПолучитьСТроку(нТекст);
   Рез = Рез + СтрЗаменить(СтрокаТекста,РазделительСтрок,"");
КонецЦикла;
7 ServMan
 
04.01.05
15:47
(6)да нет в полученной строке символа разделителя строк, то есть СтрокаТекста возвращает голую строку.
8 MMF
 
04.01.05
15:51
пока сч <= Текст.КоличестваСтрок() Цикл
  Текст2.ДобавитьСтроку(Текст.ПолучитьСтроку(сч) + Текст.ПолучитьСтроку(Сч+1));
  Сч=сч+2;
9 ServMan
 
04.01.05
16:09
(8)Спасибо, так я и поступил см. (5) обращение к (4)