Имя: Пароль:
1C
1С v8
ЧтениеТекста
,
0 Slaventiya
 
25.09.14
11:33
Создал файл txt

В нем 8 строк:

1
2
3
4
5
6
7
8

Читаем, используя сообщить  получаю

2
5
8

Почему так ?
1 МихаилМ
 
25.09.14
11:37
текст кода покажите.

но без оскорблений вряд ли обойдется.
2 Slaventiya
 
25.09.14
11:49
НумераторСтрок             = 0;
    НомерИтерации            = 0;
    
    ЧтениеТекста = Новый ЧтениеТекста(ФайлДанных, КодировкаТекста.Системная);
    
    СтрокаТекста = ЧтениеТекста.ПрочитатьСтроку();
    Пока СтрокаТекста <> Неопределено Цикл // строки читаются до символа перевода строки
        
        НумераторСтрок     = НумераторСтрок     + 1;
        НомерИтерации     = НомерИтерации     + 1;

        СтрокаТекста = ЧтениеТекста.ПрочитатьСтроку();
        Сообщить(СтрокаТекста);
                
        Если НомерИтерации <> КоличествоСтрокВПриемнике Тогда
            
            ТекстовыйДокумент.ДобавитьСтроку(ЧтениеТекста.ПрочитатьСтроку());
            ЗаписатьВФайлПоследнююОбработаннуюСтроку(НумераторСтрок);
            
        Иначе
            
            СуфиксТекстовогоФайла = СуфиксТекстовогоФайла + 1;
            
            РезультатЗаписи = ЗаписатьТекстовыйДокументНаКлиенте(СуфиксТекстовогоФайла);
            Если РезультатЗаписи <> Неопределено Тогда
                
                ТекстовыйДокумент.Очистить();
                НомерИтерации = 0;
                
            КонецЕсли;
            
        КонецЕсли;
                     
    КонецЦикла;
3 H A D G E H O G s
 
25.09.14
11:51
СтрокаТекста = ЧтениеТекста.ПрочитатьСтроку();
        Сообщить(СтрокаТекста);
                
        Если НомерИтерации <> КоличествоСтрокВПриемнике Тогда
            
            ТекстовыйДокумент.ДобавитьСтроку(ЧтениеТекста.ПрочитатьСтроку());
4 Wobland
 
25.09.14
11:51
как-то не соответствует заявленному результату
5 H A D G E H O G s
 
25.09.14
11:51
СтрокаТекста = ЧтениеТекста.ПрочитатьСтроку();
ТекстовыйДокумент.ДобавитьСтроку(ЧтениеТекста.ПрочитатьСтроку());
6 H A D G E H O G s
 
25.09.14
11:51
(0) Автор - ты упорот.
7 Wobland
 
25.09.14
11:51
а, нет, всё верно
8 H A D G E H O G s
 
25.09.14
11:52
(6) Это я не про алгоритм, а про упертость в необходимости сохранить позицию (залогировать прочитанное)? Ну или че ты там пытаешься сделать.
9 H A D G E H O G s
 
25.09.14
11:57
В ветке счаст сидит:
Borteg,Fedor-1971,H A D G E H O G s,IVT_2009,Indian,Kurbash,Repey,Slaventiya,ilgizinjo,kosts,piter3,rincewind,Галахад,Легат,Нуф-Нуф,Легат,Третий

Что могу сказать, с учетом предыдущей эпопеи автора:

"Пятнадцать клевых людей на проекте Дом 2
С нами Ксения Собчак и Ксюша Бородина"
10 Borteg
 
25.09.14
11:58
СтрокаТекста = ЧтениеТекста.ПрочитатьСтроку();
    Пока СтрокаТекста <> Неопределено Цикл // строки читаются до символа перевода строки

     Сообщить(СтрокаТекста)  
СтрокаТекста = ЧтениеТекста.ПрочитатьСтроку();

     //Сообщить(СтрокаТекста)
поменять местами надо изза этого первой стрки никогда не будет

  ТекстовыйДокумент.ДобавитьСтроку(ЧтениеТекста.ПрочитатьСтроку());
надо заменить на
ТекстовыйДокумент.ДобавитьСтроку(СтрокаТекста);
11 Slaventiya
 
25.09.14
12:31
(8) Да, мне необходимо залогировать прочитанное, а также вам Дмитрий реальное спасибо за "открой для себя ЧтениеТекста"
12 H A D G E H O G s
 
25.09.14
12:33
(11) Зачем логировать?
13 hhhh
 
25.09.14
12:34
(11) ну, 3 раза делаете ПолучитьСтроку(), а потом сообщить. То есть вы планируете выводить сообщение через 3 строки?
14 hhhh
 
25.09.14
12:35
ну, оно так и выводит: 2,5,8. Всё четко.
15 ДенисЧ
 
25.09.14
12:36
Расстрелять автора сего творения.
И никаких поблажек на малых детишек и неудовлетворённую супругу.
16 Kamas
 
25.09.14
12:36
нет инициализации СуфиксТекстовогоФайла и ТекстовыйДокумент , НомерИтерации <> КоличествоСтрокВПриемнике сработает только когда ЗаписатьТекстовыйДокументНаКлиенте вернет неопределенно
17 bolobol
 
25.09.14
12:37
Ну жесть же! Наймите программиста, штоле.
18 DrZombi
 
гуру
25.09.14
12:46
(0) Все работает Правильно, как написано по (2). 1С тут ни причем, все дело в руках писателя :)
19 Slaventiya
 
25.09.14
12:48
Все услышано, прочитано и запомнено, за критику спасибо, неприятно конечно но не смертельно. Во всем разобрался пусть с неприятной но ВАШЕЙ помощью.
20 H A D G E H O G s
 
25.09.14
13:03
(19) Зачем писать лог?
21 DrZombi
 
гуру
25.09.14
13:09
(19) Кому нужен лог?
Вот написать обработку получения ошибок из журнала регистрации и рассылка по почте этого лога.
Вот в этом есть смысл :)
22 bolobol
 
25.09.14
13:22
(21) Сидишь, такой, перед компом - грузишь что-то, а сообщения на почту приходят. Неудобно как-то, переключаться нужно. Может, сразу смс? Или курьера высылать, чтоб устно объяснил?
23 DrZombi
 
гуру
25.09.14
13:27
(22) Сидишь в Казани, а тебе лог приходит раз в сутки из БД с 200 пользователями. И следишь, что бы все было Хорошо :)
24 bolobol
 
25.09.14
13:29
(23) Если приходит лог - значит всё хорошо. Что делать, если лог не пришёл? А если всё плохо, я полагаю - в Казань приедут)
25 DrZombi
 
гуру
25.09.14
13:45
(24) Если приходит лог, не совсем хорошо. При отсутствие ошибок, посылать лог раз в неделю, по понедельникам "Нет ошибок за последние "n" дней" :)
26 DrZombi
 
гуру
25.09.14
13:46
+(24) Это мечты... просто сама идея куда продуктивней, чем писать куда то в файл какой-то лог, который еще нужно читать :)
27 bolobol
 
25.09.14
14:52
Если нет необходимости читать, то и писать не было бы необходимости)
Чтобы обнаруживать ошибки, программист должен иметь ум, которому доставляет удовольствие находить изъяны там, где, казалось, царят красота и совершенство. Фредерик Брукс-младший