|
|
Чтение 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
|
позиция
|
|