Имя: Пароль:
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С с горем пополам научился кое как "кодить". А вот в этих скриптах что делает и для чего служит каждая строчка немогу разобраться.
Хотя заметил что это из той же самой "оперы" но сыграно немного подругому...
Здесь можно обсудить любую тему при этом оставаясь на форуме для 1Сников, который нужен для работы. Ymryn