Имя: Пароль:
1C
1C 7.7
v7: Как загрузить вебстраницу в 1С
0 volodya1122
 
24.03.12
23:23
Вопрос может кому-то показатся детским, но все же....
И так суть вопроса. Есть некий сайт. Если указать нужную ссылку оркрываеться обычная текстовая страница на сайте (тоисть текст там написан как в "блокноте").
Текста там много (скажем так- примерно 200'000 символов).
Суть вопроска как средствами 1С получить этот текст?
1 МихаилМ
 
24.03.12
23:29
компонента V7plus
Вам в помощь
доступ к данным по протоколу хттп
2 volodya1122
 
24.03.12
23:36
а попроще, без внешних модулей?
3 МихаилМ
 
24.03.12
23:40
(2)
кудаушь проще.

переходите на восьмерку
4 volodya1122
 
24.03.12
23:56
Если сохраняю данную страницу в "htm" формат, а потом открываю блокнотом, то там текст остается без изменений (каким и был на сайте) . Неужели без V7Plus не обойтись в данном случае?
5 volodya1122
 
24.03.12
23:58
не хочется из за одной функции внешнюю компоненту ставить. Тогда уж, если Вам не трудно, опишите какую функцию и как использовать (из V7plus.dll)..
6 МихаилМ
 
25.03.12
00:00
видать, непонятно Ваш   "получить этот текст"

если нужно скачать то  (2)

если прочитать - все равно v7plus

чтение текстовых файлов
7 МихаилМ
 
25.03.12
00:03
так эта компонента, входит в поставку 1с.

за 12 лет 1с77 поэтому поводу представляете сколько материала.

если Вам не под силу нарыть эту информацию - я Вам не помощьник.

посмотрите типовые там и работа с ххтп и работа с текстом.
8 volodya1122
 
25.03.12
00:10
нужно скачать(записать в текстовый файл). Дальше я уже знаю как обработать текстовый файл. (Загвоздка только в том как скачать и сохранить в текстовый файл)...
9 МихаилМ
 
25.03.12
00:19
это "загвоздка"

если у вас нет ни одной типовой конфигурации
+
Вас забанили в поисковиках
+
украли справку по v7plus/
10 volodya1122
 
25.03.12
00:23
Ладно, если Вам трудно поделится знанием, то, как когда-то в одном фильме говорил Юрий Нмкуллин: "Будем искать".....
11 Aleksey
 
25.03.12
00:26
(8) Сказали же, смотри типовые. Там скачевается курс валют + загружаются
12 Aleksey
 
25.03.12
00:27
(10) А что искать. Открыл типовые и смотри. Или ждешь команду

МояСтраница=СкачатьСтраницу(Адрес)?
13 МихаилМ
 
25.03.12
00:34
(10)
Передергиваете.
Юрий Никулин искал то, чего нет

а по 1с информации на русском языке, больше чем по веб, с++ и delphi
вместе взятым.

тк это ПО используется в 90% росийских компаний.

(1 млн)
14 volodya1122
 
25.03.12
00:47
на этом можно закончить дискусию.
ПолучитьКакФайл(<?>,); - думаю Вам не трудно было мне это написать, чтобы я не искал....
15 МихаилМ
 
25.03.12
01:00
(14)
надо быть больным на голову
чтоб все ф-ции и методы держать в голове
и по неявному (или явному) желанию каждого лентяя искать их.

все ключевые слова для поиска Вам были сказаны.


на тему 1с77 все ищется за секунды.

с v8 - чуть хуже.

например примеров работы с объектом "анализ данных" не так много.
16 andrewks
 
25.03.12
07:28

Функция СкачатьФайлПоСсылке(Ссылка,ИмяФайла)
   
   Попытка
       JS=СоздатьОбъект("MSScriptControl.ScriptControl");
       JS.Language="jscript";
       JS.Timeout=-1;
   Исключение
       ТекстОшибки=ОписаниеОшибки();
       Сообщить("Не удалось создать объект MSScriptControl.ScriptControl","!");
       Сообщить("Описание ошибки: "+ТекстОшибки,"!");
       Возврат 0;
   КонецПопытки;
   
   Попытка
       
       СтрКода="function DwnFile(FileLink,FileName)
       |{
       |   Stream=new ActiveXObject(""ADODB.Stream"");
       |   Stream.Mode=3;
       |   Stream.Type=1;
       |   Stream.Open();
       |   Req=new ActiveXObject(""Microsoft.XMLHTTP"");
       |   Req.Open(""GET"",FileLink,0,"""","""");
       |   Req.Send();
       |   Stream.Write(Req.responseBody);
       |   Stream.SaveToFile(FileName,2);
       |   Stream.Close();
       
       | return(0);
       |}
       |";
   
   JS.AddCode(СтрКода);
   Рез=JS.Modules("Global").CodeObject.DwnFile(Ссылка,ИмяФайла);
   Исключение
       ТекстОшибки=ОписаниеОшибки();
       Сообщить("Произошла ошибка при получении данных!","!");
       Сообщить("Описание ошибки: "+ТекстОшибки,"!");
       Возврат 0;
   КонецПопытки;
   Возврат 1;
КонецФункции
17 vova1122
 
26.03.12
18:23
Нашел в сети реализацию своего вопроса.
Так как функция ПолучитьКакФайл() неподходит ибо загружает только первые 4 Кб информации.
Привожу теккст, может кому то еще пригодится.

      ФайлРезультата=(КаталогИБ()+"\ExtForms\baza.txt");
      Адрес= "http://сайт";
         Скрипт = СоздатьОбъект("MSScriptControl.ScriptControl");
         Скрипт.language = "vbscript";
         x = CreateObject("Microsoft.XMLHTTP");
         x.Open("GET", Адрес, 0,"","");
         x.Send();
         s = CreateObject("ADODB.Stream");
         s.Mode = 3;
         s.Type = 1;
         s.Open();
         Скрипт.AddObject("s",s);
         Скрипт.AddObject("x",x);
         Скрипт.Eval("s.Write(x.responseBody)");
         s.SaveToFile(ФайлРезультата, 2);
18 FN
 
26.03.12
18:52
игра - найдите 10 отличий :)
19 ДенисЧ
 
26.03.12
19:19
мда... А титану в клювах ещё хватает...
20 volodya1122
 
26.03.12
22:02
Может для програмиста это легко (в смесле разобратся в этом коде). Я не програмист. в 1С с горем пополам научился кое как "кодить". А вот в этих скриптах что делает и для чего служит каждая строчка немогу разобраться.
Хотя заметил что это из той же самой "оперы" но сыграно немного подругому...