Имя: Пароль:
1C
 
Чтение Adodb.Stream
0 zarcom
 
05.10.10
10:55
Стрим = СоздатьОбъект("Adodb.Stream");
   Стрим.Type    = 2;
   Стрим.Mode    = 3;
   Стрим.charset="utf-8";
   
   Стрим.Open();
   Стрим.LoadFromFile(Файл);
   
   
   
   Пока  Стрим.EOS = 0 Цикл
   
       а=Стрим.Read(1);

       
       
   КонецЦикла;
1 zarcom
 
05.10.10
10:55
Как прочитать файл ????
2 zarcom
 
05.10.10
10:55
Ни чего не получается
3 чувак
 
05.10.10
10:55
и?
4 zarcom
 
05.10.10
10:57
Есть у кого нибудь пример работы чтения файла ???

Через СоздатьОбъект("Adodb.Stream");
5 zarcom
 
05.10.10
10:58
Adodb.Stream, ТелепатБот помоги
6 zarcom
 
05.10.10
10:58
СоздатьОбъект("Adodb.Stream");, ТелепатБот ответь
7 чувак
 
05.10.10
10:59
Процедура Стрим()      
   мФайл="C:\BackUp\....\1cv7.txt";
   мПоток=СоздатьОбъект("ADODB.Stream");
   мПоток.Type=2;  // Текст  
   мПоток.Charset = "windows-1251";
   мПоток.Open();            
   Состояние("Подождите, открывается файл...");
   мПоток.LoadFromFile(мФайл);
   мПоток.Position = 1;//мПоток.Size-10000;      
   Лн=0;
   Пока (мПоток.EOS=0) Цикл
Лн=Лн+1;
Состояние("Читаем "+Лн+"-ю строку..."+мПоток.Position);
БуфКСА = мПоток.ReadText(-2);    
Сообщить(Лев(БуфКСА,100));
   КонецЦикла;
  мПоток.Close();
  мПоток = 0;
   БуфКСА = 0;
КонецПроцедуры    // Стримедура
8 zarcom
 
05.10.10
11:00
Спасибо друг
9 zarcom
 
05.10.10
11:01
Что значит мПоток.Position = 1; ???
10 zarcom
 
05.10.10
11:03
Номер начальной строки ?
11 filh
 
05.10.10
11:03
позиция