ДД = ДвоичныеДанные(ИмяФайла);   

 Процедура Пример(ИмяФайла)



    // Перечисления из библиотеки ADO

    StreamTypeEnum = Новый Структура("adTypeBinary, adTypeText", 1, 2);

    ConnectModeEnum = Новый Структура(

        "adModeRead, adModeReadWrite, adModeRecursive, adModeShareDenyNone,

        |adModeShareDenyRead, adModeShareDenyWrite, adModeShareExclusive, 

        |adModeUnknown, adModeWrite", 1, 3, 4194304, 16, 4, 8, 12, 0, 2);

    SaveOptionsEnum = Новый Структура("adSaveCreateNotExist, adSaveCreateOverWrite", 1, 2);

    

    StreamIn = Новый COMОбъект("ADODB.Stream"); //Для создания этого объекта требуется MDAC 2.5 и выше

    StreamIn.Type = StreamTypeEnum.adTypeBinary;

    

    StreamIn.Open(); //По умолчанию открывается на чтение

    StreamIn.LoadFromFile(ИмяФайла); //Очевидно, что для больших файлов так поступать нехорошо.

    Data = StreamIn.Read(); //у переменной Data тип COMSafeArray, это массив байтов

    StreamIn.Close(); //Больше нам этот поток не нужен - закрываем.

    

    //Конечно, манипуляция в памяти приемлима только для небольших файлов!

    СодержимоеМассив = Data.Выгрузить();

    

    //...

    //...

    //тут можно по-всякому поиздеваться над массивом

    //...

    //...

    

    //Запихиваем массив 1С в COMSafeArray. VT_UI1 - обозначение однобайтного беззнакового целого.

    Data = Новый COMSafeArray(СодержимоеМассив, "VT_UI1", СодержимоеМассив.Количество());

    

    StreamOut = Новый COMОбъект("ADODB.Stream");

    StreamOut.Type = StreamTypeEnum.adTypeBinary;

    StreamOut.Mode = ConnectModeEnum.adModeReadWrite; //Нужны и чтение и запись.

    

    StreamOut.Open(); //Открыли на чтение и запись

    StreamOut.Write(Data); 

    StreamOut.SaveToFile(ИмяФайла, SaveOptionsEnum.adSaveCreateOverWrite); //"2" - перезапись файла

    StreamOut.Close();



КонецПроцедуры   

 ДД = ДвоичныеДанные(ИмяФайла);   

 Строка64 = Base64Строка(ДвоичныеДанные);   

 Массив64 = Преобразовать64(Строка64 , );   

 Строка64 = Преобразовать64( , Массив64 );   

  //Автор: Гобсек
&НаСервере
Функция Преобразовать64(Строка64 = неопределено, Массив64 = неопределено)
 Таб64 = Новый ТаблицаЗначений;
 Таб64.Колонки.Добавить("Код");
 Таб64.Колонки.Добавить("Символ");
 Нпп = 0;
 Для Код = КодСимвола("A") По КодСимвола("Z") Цикл
  стр = Таб64.Добавить();
  стр.Код = Нпп;
  стр.Символ = Символ(Код);
  Нпп = Нпп + 1;
 КонецЦикла;
 Для Код = КодСимвола("a") По КодСимвола("z") Цикл
  стр = Таб64.Добавить();
  стр.Код = Нпп;
  стр.Символ = Символ(Код);
  Нпп = Нпп + 1;
 КонецЦикла;
 стр = Таб64.Добавить();
 стр.Код = Нпп;
 стр.Символ = "0";
 Нпп = Нпп + 1;
 Для Код = 1 По 9 Цикл
  стр = Таб64.Добавить();
  стр.Код = Нпп;
  стр.Символ = Формат(Код,"ЧЦ=1; ЧДЦ=0");
  Нпп = Нпп + 1;
 КонецЦикла;
 стр = Таб64.Добавить();
 стр.Код = Нпп;
 стр.Символ = "+";
 Нпп = Нпп + 1;
 стр = Таб64.Добавить();
 стр.Код = Нпп;
 стр.Символ = "/";
 
 Если Массив64 = неопределено Тогда 
  Если Строка64 = неопределено Тогда
   Сообщить("неверный вызов функции");
   Возврат неопределено;
  КонецЕсли;
  //Уберем переносы строк
  Строка64 = СтрЗаменить(Строка64, Символ(10), "");
  Строка64 = СтрЗаменить(Строка64, Символ(13), "");
  
  //преобразовываем строку в массив
  Если СтрДлина(Строка64) % 4 <> 0 Тогда
   Сообщить("длина строки на входе должна быть кратна 4"); 
   Сообщить(СтрДлина(Строка64)); 
   Возврат неопределено;
  КонецЕсли;
  Кол4 = Цел(СтрДлина(Строка64) / 4);
  РазмерМ = Кол4 * 3;
  Если Прав(Строка64, 2) = "==" Тогда
   РазмерМ = РазмерМ - 2;
  ИначеЕсли Прав(Строка64, 1) = "=" Тогда
   РазмерМ = РазмерМ - 1;
  КонецЕсли;   
  Массив64 = Новый Массив(РазмерМ);
  Для А = 1 По Кол4 Цикл
   Число3 = 0;
   Для Б = 1 По 4 Цикл
    Буква1 = Сред(Строка64, (А-1)*4 + Б, 1); 
    Если Буква1 = "=" Тогда
     Код4 = 0;
    Иначе
     стрН = Таб64.Найти(Буква1, "Символ");
     Если стрН = Неопределено Тогда
      Сообщить("ошибка при поиске "+ КодСимвола(Буква1)); 
     Иначе 
      Код4 = стрН.Код;
     КонецЕсли;
    КонецЕсли;
    Число3 = Число3 * 64 + Код4;
   КонецЦикла;
   Ост = Число3 % 256;
   Индекс = (А-1)*3 + 2;
   Если Индекс <= РазмерМ - 1 Тогда
    Массив64[Индекс] = Ост;
   КонецЕсли;
   Число3 = (Число3 - Ост) / 256;
   Ост = Число3 % 256;
   Индекс = (А-1)*3 + 1;
   Если Индекс <= РазмерМ - 1 Тогда
    Массив64[Индекс] = Ост;
   КонецЕсли;
   Число3 = (Число3 - Ост) / 256;
   Ост = Число3 % 256;
   Массив64[(А-1)*3 + 0] = Ост;
  КонецЦикла;
  Возврат Массив64;
 Иначе //Преобразовываем массив в строку
  Строка64 = "";
  Кол3 = Цел(Массив64.Количество() / 3);
  Если Массив64.Количество() % 3 <> 0 Тогда
   Кол3 = Кол3 + 1;
  КонецЕсли;
  Для А = 1 По Кол3 Цикл
   Число3 = Массив64[(А-1)*3]; 
   Если (А-1)*3+1 <= Массив64.ВГраница() Тогда
    Код3 = Массив64[(А-1)*3+1];
   Иначе
    Код3 = 0;
   КонецЕсли;
   Число3 = Число3*256 + Код3;
   Если (А-1)*3+2 <= Массив64.ВГраница() Тогда
    Код3 = Массив64[(А-1)*3+2];
   Иначе
    Код3 = 0;
   КонецЕсли;
   Число3 = Число3*256 + Код3;
   
   Ост4 = Число3 % 64;
   Число3 = (Число3 - Ост4) / 64;
   Ост3 = Число3 % 64;
   Число3 = (Число3 - Ост3) / 64;
   Ост2 = Число3 % 64;
   Число3 = (Число3 - Ост2) / 64;
   Ост1 = Число3 % 64;
   Число3 = (Число3 - Ост1) / 64;
   стрН = Таб64.Найти(Ост1, "Код");
   Если стрН = неопределено Тогда
    Сообщить("Ошибка при поиске");
   Иначе
    Строка64 = Строка64 + стрН.Символ;
   КонецЕсли;
   стрН = Таб64.Найти(Ост2, "Код");
   Если стрН = неопределено Тогда
    Сообщить("Ошибка при поиске");
   Иначе
    Строка64 = Строка64 + стрН.Символ;
   КонецЕсли;
   стрН = Таб64.Найти(Ост3, "Код");
   Если стрН = неопределено Тогда
    Сообщить("Ошибка при поиске");
   Иначе
    Строка64 = Строка64 + стрН.Символ;
   КонецЕсли;
   стрН = Таб64.Найти(Ост4, "Код");
   Если стрН = неопределено Тогда
    Сообщить("Ошибка при поиске");
   Иначе
    Строка64 = Строка64 + стрН.Символ;
   КонецЕсли;
  КонецЦикла;
  //Если количество символов не делится на 3, то на конце должны быть
  //знаки "="
  Если Массив64.Количество() % 3 = 1 Тогда
   Строка64 = Лев(Строка64, СтрДлина(Строка64)-2)+ "=="; 
  ИначеЕсли Массив64.Количество() % 3 = 2 Тогда
   Строка64 = Лев(Строка64, СтрДлина(Строка64)-1)+ "="; 
  КонецЕсли;
  Возврат Строка64;
 КонецЕсли;
КонецФункции    

 Процедура Сформировать()

    Перем Имя,Путь;

    Если ФС.ВыбратьФайл(0,Имя,Путь,"","*.*|*.*","*")=0 Тогда

        Возврат;

    КонецЕсли;

    Файл=Путь+Имя;

    Стрим=СоздатьОбъект("ADODB.Stream");

    Стрим.Type=2;

    Стрим.charset="windows-1251";

    Стрим.Open();

    Стрим.LoadFromFile(Файл);

    Стрим.charset="utf-8";

    Стр=Лев(Стрим.ReadText(),255);

    Сообщить(Стр);

КонецПроцедуры



// еще способ

Процедура Сформировать()

    Перем Имя,Путь;

    Если ФС.ВыбратьФайл(0,Имя,Путь,"","*.*|*.*","*")=0 Тогда

        Возврат;

    КонецЕсли;

    Файл=Путь+Имя;

    УТФ16=КаталогВременныхФайлов()+_GetPerformanceCounter()+"-unicode.txt";

    ЦП1251=КаталогВременныхФайлов()+_GetPerformanceCounter()+"-cp1251.txt";

    БАТ=КаталогВременныхФайлов()+_GetPerformanceCounter()+".bat";

    Стр="@echo off

    |chcp 1251 > nul

    |chcp 65001 |>> """+УТФ16+""" cmd /u /c ""type """+Файл+""" & chcp 1251 > nul""

    |chcp 1251 > nul

    |type """+УТФ16+""" > """+ЦП1251+"""

    |chcp 866 > nul";

    Текст=СоздатьОбъект("Текст");

    Текст.ДобавитьСтроку(Стр);

    Текст.Записать(БАТ);

    КомандаСистемы(БАТ);

    Текст=СоздатьОбъект("Текст");

    Текст.Открыть(ЦП1251);

    Для Сч=1 По Текст.КоличествоСтрок() Цикл

        Сообщить(Лев(Текст.ПолучитьСтроку(Сч),255));

    КонецЦикла;

    ФС.УдалитьФайл(УТФ16);

    ФС.УдалитьФайл(ЦП1251);

    ФС.УдалитьФайл(БАТ);

КонецПроцедуры

 

Функция Перекодировка(Стр="",Кодировка="windows-1251")

    Стрим = СоздатьОбъект("Adodb.Stream");

    Стрим.Type = 2;

    Стрим.Mode= 3;

    Стрим.charset="iso-8859-5";

    Стрим.Open();

    Стрим.WriteText(Стр);

    Стрим.Position=0;

    Стрим.charset=Кодировка;

    Рез=Стрим.ReadText(-1);

    Стрим.Close();

    Возврат    Рез;

КонецФункции



//Если предыдущая функция не срабатывает, то попробуйте:

Стрим = СоздатьОбъект("Adodb.Stream");

Стрим.charset="iso-8859-5";

Стрим.Open();

Стрим.LoadFromFile("c:\WORK\H R\PSHRR848.C");

Стрим.Position=0; // здесь уже можно дергать нормальный текст

 

Стрим2 = СоздатьОбъект("Adodb.Stream");

Стрим2.charset="windows-1251";

Стрим2.Open();

Стрим2.WriteText(Стрим.ReadText);

Стрим2.Position=0;

Рез=Стрим2.ReadText(-1);

Стрим.Close();

Стрим2.Close();

//Выведем в Сообщить результаты

Message("2 = "+Рез);

Message("StrLen(Рез) = "+StrLen(Рез));



// Кратко

Стрим = СоздатьОбъект("Adodb.Stream");

Стрим.charset="iso-8859-5";

Стрим.Open();

Стрим.LoadFromFile("c:\WORK\H R\PSHRR848.C");

Рез=Стрим.ReadText();

  //Код где, ни единого объекта. smaharbA
Процедура Сформировать()
    Стр="Нажрися вотки и закуси ка селедкой! ";
    База=""+_GetPerformanceCounter()+".txt";
    УТФ=КаталогВременныхФайлов()+"УТФ"+База;
    ИСО=КаталогВременныхФайлов()+"ИСО"+База;
    ДОС=КаталогВременныхФайлов()+"ДОС"+База;
    ОбратноДОС=КаталогВременныхФайлов()+"ОбратноДОС"+База;
    Текст=СоздатьОбъект("Текст");
    Текст.КодоваяСтраница(1);
    Для Сч=1 По 10 Цикл
        Текст.ДобавитьСтроку(Стр);
    КонецЦикла;
    Текст.Записать(ДОС);
    Текст.Очистить();
    КомандаСистемы("chcp 28595 > nul & echo off 2> """+ИСО+""" & for /f ""delims="" %i in ("+ДОС+") do (chcp 28595|>> """+ИСО+""" echo %i)");
//    КомандаСистемы("cmd /c ""chcp 28595|> """+ИСО+""" echo "+Стр+""""); 
    Текст.КодоваяСтраница(0);
    Текст.ДобавитьСтроку(Симв(255)+Симв(254));
    Текст.Записать(УТФ);
    КомандаСистемы("chcp 28595|> nul echo & cmd /u /c type """+ИСО+""" >> """+УТФ+"""");
    КомандаСистемы("type """+УТФ+""" > """+ОбратноДОС+"""");
    Текст.КодоваяСтраница(1);
    Текст.Открыть(ОбратноДОС);
    Для Сч=1 По Текст.КоличествоСтрок() Цикл
        Сообщить(Текст.ПолучитьСтроку(Сч));
    КонецЦикла;
КонецПроцедуры

 Соединение = Новый HTTPСоединение("export.rbc.ru"); //готовим соединение
ИмяФайла = ПолучитьИмяВременногоФайла(".txt");
//строка-образец
//http://export.rbc.ru/free/cb.0/free.fcgi?period=DAILY&tickers=USD&d1=18&m1=01&y1=2009&d2=17&m2=02&y2=2009&lastdays=30&separator=TAB&data_format=BROWSER&header=1
//http://export.rbc.ru/free/cb.5/free.fcgi?period=DAILY&tickers=USDEUR_BASKET&d1=08&m1=07&y1=2009&d2=22&m2=07&y2=2009&lastdays=14&separator=TAB&data_format=BROWSER&header=1
СтрокаСоединения="/free/"+Источник+"/free.fcgi?period=DAILY&tickers="+Валюта1+"&d1="+День1+"&m1="+Месяц1+"&y1="+Год1+"&d2="+День2+"&m2="+Месяц2+"&y2="+Год2+"&separator=%7C&data_format=BROWSER";
СтрокаСоединения=СтрЗаменить(СтрокаСоединения," ","");

Попытка //соединяемся
Соединение.Получить(СтрокаСоединения,ИмяФайла);
Исключение
Сообщить("Невозможно получить курс по адресу http://export.rbc.ru"+СтрокаСоединения);
КонецПопытки;

КурсыТекст=Новый ТекстовыйДокумент; //читаем результат запроса
КурсыТекст.Прочитать(ИмяФайла);   

  // еще пример
 Функция ПолучитьКакСтроку(Адресс) 
	соминет = Новый COMОбъект("MSXML2.XMLHTTP");
	соминет.open ("GET", Адресс, Ложь);
	соминет.send();
	Возврат соминет.responseText;
КонецФункции	

Функция ПреобразоватьДату(дат)
	// Медот преобразования даты времен 1Сv7
	//Т=Строка(Дат);
	//Возврат Сред(Т,7,4)+"/"+Сред(Т,4,2)+"/"+Лев(Т,2);
	Возврат Формат(Дат,"ДФ=""гггг/ММ/дд""");
КонецФункции

Процедура КнопкаЗагрузитьКурсы(Элемент)
	//Список - список валют	
	Для А = 1 по Список.Количество() цикл
		Если Список[а-1].Пометка тогда
			Сообщить("Загружаем курсы для "+Строка(Список[а-1].Значение));
			Код = Строка(Список[а-1].Значение.Код);
			Дат = ПериодС;
			Пока Дат <= ПериодПо цикл
				Стр = ПолучитьКакСтроку("http://cbrates.rbc.ru/tsv/"+Код+"/"+ПреобразоватьДату(Дат)+".tsv");
				Поз = Найти(Стр,Символы.Таб);
				Если Поз = 0 Тогда
					Дат = Дат + 86400;
					Продолжить;
				КонецЕсли;					
				Кратность = Число(СокрЛП(Лев(стр,Поз-1)));
				курс = Число(СокрЛП(Сред(Стр,Поз+1,СтрДлина(Стр)-Поз)));
				Сообщить("Дата="+Строка(Дат)+" Курс="+Строка(курс)+" Кратность="+Строка(Кратность));
				Запись = РегистрыСведений.КурсыВалют.СоздатьМенеджерЗаписи();
				Запись.Период = Дат;
				Запись.Валюта = Список[а-1].Значение.Ссылка;
				Запись.Курс = Курс;
				Запись.Кратность = Кратность;
				Запись.Записать(Истина);
				Дат = Дат + 86400;                   
			КонецЦикла;				
		КонецЕсли;			
	КонецЦикла;		
КонецПроцедуры    

 // Взято с http://www.1c-club.kz     IUnknown

//Небольшая обработка для получения курса валют размещенной на странице Национального Банка РК.

//Внимание: работоспособность данной обработки может быть нарушена, если дизайнеры сайта НБ РК изменят формат страницы с //официальным курсом валюта. Но не большой анализ нового формата и работоспособность обработки будет восстановлена.

// шаблон для отображаемой на форме таблице значения

перем тзПустышка;



//*******************************************

// ПриНачалеВыбораЗначения(стрНазвание, чисФлаг)

//

// Параметры:

//  стрНазвание - Строка. Наименование реквизита формы инициюрующей

//                вызов процедуры.

//  чисФлаг     - Число. Флаг станадартной обработки иницации нажатия

//                кнопки выбора значения.

//

// Возвращаемое значение:

//  Нет.

//

// Описание:

//  Переопределенная процедура инициирующая при нажатии кнопки

//  выбора значения реквизита формы.

//

процедура ПриНачалеВыбораЗначения(стрНазвание, чисФлаг)

    // Если инициировали из реквизита "стрУРЛа"

    если стрНазвание = "стрУРЛа" тогда

        // откроем страницу с введенным URL

        запуститьприложение(стрУРЛа);

    конецесли;

конецпроцедуры



//*******************************************

// кнПолучить()

//

// Параметры:

//  Нет

//

// Возвращаемое значение:

//  Нет.

//

// Описание:

//  Процедура получающая курсы валют с URL находящегося в

//  строковом реквизите формы "стрУРЛа". Пытается по указаноому URL

//  получить страницу и распарсить ее.

//

//  ПРЕДУПРЕЖДЕНИЕ:

//  В случае измения формата данных представленных на странице, возможно

//  будет работать не правильно.

//

процедура кнПолучить()

    // сгенирим имя файла для временного хранения содержимого

    // страницы курса валют Национального банка

    стрИмяФайла = каталогпользователя() + "$$$$.###";

    // создадим объект XMLHttpRequest

    олеХМЛ = создатьобъект("Microsoft.XMLHTTP");

    // иницируем его типом запроса и нужным нам URL

    олеХМЛ.Open("GET", стрУРЛа, 0);

    // отправим запрос для обработки серверу

    олеХМЛ.Send();

    // создадим "поток" через ADODDB для работы с данными

    олеАДО = создатьобъект("ADODB.Stream");

    // зададим тип и режим потока

    олеАДО.Mode = 3;

    олеАДО.Type = 1;

    // откроем его

    олеАДО.Open();

    // создадим объект для управления скриптами

    олеШелл = создатьобъект("MSScriptControl.ScriptControl");

    // установим язык сценариев

    олеШелл.Language = "vbscript";

    // добавим созданные объекты

    олеШелл.AddObject("oleADO", олеАДО);

    олеШелл.AddObject("oleXML", олеХМЛ);

    // с помощью скрипта запишем в поток ADO данные из

    // объекта XMLHttpRequest

    // то есть содержимое страницы

    олеШелл.Eval("oleADO.Write(oleXML.ResponseBody)");

    // запишем данные во временный файл

    олеАДО.SaveToFile(стрИмяФайла, 2);

    // закроем данный поток

    олеАДО.Close();

    // для ускорения парсера занесем весь файл в строковую

    // переменую с разделителем строк

    // для этого инициализуруем поток установкой

    // соотвествующим режимом и типом

    олеАДО.Mode= 3;

    олеАДО.Type = 2;

    // так как страница курса валют НБК имеет формат

    // символов UTF-8, то установим соотвествующий набор

    олеАДО.CharSet="UTF-8";

    // откроем поток

    олеАДО.Open();

    // загрузим содержимое нашего файла в поток

    олеАДО.LoadFromFile(стрИмяФайла);

    // обнулим временную строковую переменную

    стрТемп = "";

    // в цикле получим из потока все строки

    пока олеАДО.EOS() = 0 цикл

        // и запишем их во временную переменую, добавив разделитель строк

        стрТемп = стрТемп + олеАДО.ReadText(-2) + разделительстрок;

    конеццикла;

    // закроем поток

    олеАДО.Close();

    // удалим временный файл

    фс.УдалитьФайл(стрИмяФайла);

    // найдем в строке позицию начала блока с данными о курсе

    чисПозиция = найти(стрТемп, "Официальные курсы валют на");

    если чисПозиция = 0 тогда

        // если позиции нет ... то мы имем другую страницу

        // или другой формат страницы...

        предупреждение("Не получилось получить курсы валют");

    иначе

        // создаим временную таблицу значений

        // для более шустрого заполения из-за отстуствия вызова

        // функции перерисовки таблицы при изменении данных

        тзТемп = создатьобъект("ТаблицаЗначений");

        // установим для нее нужный формат

        тзПустышка.Выгрузить(тзТемп);

        // отрежем все лишнее

        стрТемп = сред(стрТемп, чисПозиция);

        // получим дату курса

        дтКурса = дата(стрзаменить(стрполучитьстроку(стрТемп, 2), "/", "."));

        // первая строка с курсом валюты находится на 18 строке от начала

        // после удаления мусора

        чисПозиция = 18;

        // узнаем сколько всего строк в многострочке

        чисКоличествоСтрок = стрколичествострок(стрТемп);

        // получим строку

        стрТекущая = стрполучитьстроку(стрТемп, чисПозиция);

        // если в строке есть подстрока ... то значит это наверное очередная валюта

        пока найти(стрТекущая, "input type=""checkbox"" name=""idval""") > 0 цикл

            // добавляем новую строку

            тзТемп.НоваяСтрока();

            // получаем строку со смещением 1 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 1);

            // используя фичу 1С по преобразованию, получим число

            // за сколько единиц валюты имеем курс в тенге

            тзТемп.Количество = число(стрТекущая);

            // путем убирания "мусора" получаем наименование валюты

            тзТемп.Наименование = сокрлп(стрзаменить(стрзаменить(стрТекущая, тзТемп.Количество, ""), "</td>", ""));

            // получаем строку со смещением 2 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 2);

            // убираем html мусор

            стрТекущая = сокрлп(стрзаменить(стрзаменить(стрТекущая, "<td class=""gen7"" align=""center"">", ""), "</td>", ""));

            // получаем код валюты

            тзТемп.Код1 = лев(стрТекущая, 3);

            // получаем код валюты "Тенге"

            тзТемп.Код2 = прав(стрТекущая, 3);

            // получаем строку со смещением 5 от позиции

            стрТекущая = стрполучитьстроку(стрТемп, чисПозиция + 5);

            // очищаем от мусора и преобразуем в число... получаем курс

            тзТемп.Курс = число(стрзаменить(стрзаменить(стрТекущая, "<td class=""gen7"" align=""center"">", ""), "</td>", ""));

            // увеличиваем позицию на 17 ...

            чисПозиция = чисПозиция + 17;

            если чисПозиция > чисКоличествоСтрок тогда

                // если позици дальше имеющихся строк

                // то все курсов больше нет

                стрТекущая = "";

            иначе

                // получаем очередную строку для разбора

                стрТекущая = стрполучитьстроку(стрТемп, чисПозиция);

            конецесли;

        конеццикла;

        // сформированую таблицу копируем в таблицу на форме

        тзТемп.Выгрузить(тзКурсов);

    конецесли;

конецпроцедуры



//*******************************************

// установим значение реквизита текущим URL по которому можно получить курс валют

стрУРЛа = "http://www.nationalbank.kz/?docid=460&uid=DD54B73C-802C-E8F0-E27EDF82ECF77C1D";

// формируем формат таблицы

тзПустышка = создатьобъект("ТаблицаЗначений");

тзПустышка.НоваяКолонка("Количество", "число", 3, 0, "", 5);

тзПустышка.НоваяКолонка("Наименование", "строка", , , "Наименование", 70);

тзПустышка.НоваяКолонка("Код1", "строка", 3, , "код", 10);

тзПустышка.НоваяКолонка("Код2", "строка", 3, , "код", 10);

тзПустышка.НоваяКолонка("Курс", "число", 7, 2, "Курс", 10);

// копируем получившийся формат в таблицу на форме

тзПустышка.Выгрузить(тзКурсов);