номстроки » Поиск

Результаты по ключевому слову: номстроки

Как узнать текущие релизы 7.7 для Украины Категория: HTML, JS, VML

1С 7.x : Как получить курсы валют с сайта НБУ http://www.bank.gov.ua/ за любую дату ?

Код 1C v 7.x

 

Функция ПолучитьТаблицуКурсовНБУ(ДатаКурса, Ежедневно = 1)  // если в качестве второго параметра указать число отличное от 1 - получем валюты, которые котируются на ежемесячной основе
Перем Reader, Url, Точки, HtmlTab, Строк, Р, НомСтроки, НомЯчейки, Док, ТекстВЯчейке, ТабКурсов;	
	Url = "http://www.bank.gov.ua/control/uk/curmetal/currency/search?formType=searchFormDate&time_step=" + ?(Ежедневно = 1, "daily", "monthly") + 
		"&date=" + Формат(ДатаКурса, "ДДДММГГГГ") + "&outer=table&execute=run&time=" + _GetPerformanceCounter();
	Сообщить(Url);
	Reader = СоздатьОбъект("MSXML2.XMLHTTP");
	Reader.Open("Get", Url, 0);
	Reader.Send();
	Пока Reader.ReadyState <> 4 Цикл
		Состояние("Чтение данных за <" + ДатаКурса + "> ");
	КонецЦикла;
	Док = СоздатьОбъект("HtmlFile");
	Док.open("text/html");
	Док.write(Reader.ResponseText);
	Док.close();
	HtmlTab	= Док.getElementsByTagName("table").item(5);
	ТабКурсов = СоздатьОбъект("ТаблицаЗначений");
	ТабКурсов.НоваяКолонка("ЦифрКод"	, "Строка", 3,  , "Цифр. код");
	ТабКурсов.НоваяКолонка("БуквКод"	, "Строка", 3,  , "Букв. код");
	ТабКурсов.НоваяКолонка("Название"	, "Строка");
	ТабКурсов.НоваяКолонка("Курс"		, "Число" ,14, 4);
	ТабКурсов.НоваяКолонка("Кратность"	, "Число" , 9, 0);
	Строк	= HtmlTab.rows.length;
	Для НомСтроки = 1 По Строк Цикл
		Р = HtmlTab.rows(НомСтроки - 1);
		Если (НомСтроки = 1) Или (Р.cells.length <> 5) Тогда // 1 - я заголовок, остальные не с данными
			Продолжить;
		КонецЕсли;
		ТабКурсов.НоваяСтрока();
		ТабКурсов.ЦифрКод	= СокрЛП(Р.cells(0).innerText);
		ТабКурсов.БуквКод	= СокрЛП(Р.cells(1).innerText);
		ТабКурсов.Название	= СокрЛП(Р.cells(3).innerText);
		ТабКурсов.Курс		= 0 + СтрЗаменить(СокрЛП(Р.cells(4).innerText), " ", "");
		ТабКурсов.Кратность	= 0 + СтрЗаменить(СокрЛП(Р.cells(2).innerText), " ", "");
	КонецЦикла;
	Reader = 0;
	ТабКурсов.ВыбратьСтроку(, "Курсы за " + ДатаКурса);
	Возврат ТабКурсов;
КонецФункции

Категория: HTML, JS, VML

Как получить курсы валют с сайта http://finance.ua/ за любую дату ?

Код 1C v 7.x

 

Функция ПолучитьТаблицуКурсов(ДатаКурса)
Перем Reader, Url, Точки, HtmlTab, Строк, Р, НомСтроки, НомЯчейки, Док, ТекстВЯчейке, ТабКурсов;	
	Reader = СоздатьОбъект("MSXML2.XMLHTTP");
	Url = "http://tables.finance.ua/ru/currency/official/-/1/" + ДатаГод(ДатаКурса) + "/" + ДатаМесяц(ДатаКурса) + "/" + ДатаЧисло(ДатаКурса) + "?time=" + _GetPerformanceCounter();
	Сообщить(Url);
	Reader.Open("Get", Url, 0);
	Reader.Send();
	Пока Reader.ReadyState <> 4 Цикл
		Состояние("Чтение данных за <" + ДатаКурса + "> ");
	КонецЦикла;
	Док = СоздатьОбъект("HtmlFile");
	Док.open("text/html");
	Док.write(Reader.ResponseText);
	Док.close();
	HtmlTab	= Док.getElementByID("currency-official-table");
	Строк	= HtmlTab.rows.length;
	ТабКурсов = СоздатьОбъект("ТаблицаЗначений");
	ТабКурсов.НоваяКолонка("ЦифрКод"	, "Строка", 3,  , "Цифр. код");
	ТабКурсов.НоваяКолонка("БуквКод"	, "Строка", 3,  , "Букв. код");
	ТабКурсов.НоваяКолонка("Название"	, "Строка");
	ТабКурсов.НоваяКолонка("Курс"		, "Число" ,14, 4);
	ТабКурсов.НоваяКолонка("Кратность"	, "Число" , 9, 0);
	Для НомСтроки = 1 По Строк Цикл
		Р = HtmlTab.rows(НомСтроки - 1);
		Если (НомСтроки = 1) Или (Р.cells.length <> 7) Тогда // 1 - я заголовок, остальные не с данными
			Продолжить;
		КонецЕсли;
		ТабКурсов.НоваяСтрока();
		ТабКурсов.ЦифрКод	= СокрЛП(Р.cells(0).innerText);
		ТабКурсов.БуквКод	= СокрЛП(Р.cells(1).innerText);
		ТабКурсов.Название	= СокрЛП(Р.cells(3).innerText);
		ТабКурсов.Курс		= 0 + СтрЗаменить(СокрЛП(Р.cells(4).innerText), " ", "");
		ТабКурсов.Кратность	= 0 + СтрЗаменить(СокрЛП(Р.cells(2).innerText), " ", "");
	КонецЦикла;
	Reader = 0;
	ТабКурсов.ВыбратьСтроку(, "Курсы за " + ДатаКурса);
	Возврат ТабКурсов;
КонецФункции

Категория: HTML, JS, VML

Как обратиться к “видимым” строкам таблицы значения Категория: Управляемое приложение, Тонкий клиент

Загрузка данных из DBF файла в Таблицу Значений

Код 1C v 7.x

  Процедура ПоказатьДБФ(дбф, имяФайла) далее

Процедура Сформировать()
    перем дбф, флаг, папка; 
	тЗнач.Очистить();
	флаг=ФС.ВыбратьФайл(0, имяФайла, папка,"Выберете DBF файл","|*.DBF");
	Если флаг=0 Тогда
	    возврат;
	КонецЕсли;
	дбф=СоздатьОбъект("Xbase");
	дбф.ОткрытьФайл(папка+имяФайла);
	папк=папка;
	файл=имяФайла;
	Если дбф.открыта()=0 Тогда
	    Предупреждение("Не могу открыть файл"+имяФайла);
	    возврат;
	КонецЕсли;
	ПоказатьДБФ(дбф, имяФайла);      
КонецПроцедуры

Процедура ПоказатьДБФ(дбф, имяФайла)
    Перем ин, имяПоля, тип, длина, точность, номСтроки;
      для ин=1 по дбф.КоличествоПолей() цикл
        дбф.ОписаниеПоля(ин, имяПоля, тип, длина, точность);
        тЗнач.НоваяКолонка(имяПоля, тип);
        тЗнач.УстановитьПараметрыКолонки(ин, тип, длина, точность,, мин(10, длина));
     конецЦикла;

КолП=дбф.КоличествоПолей();
НомС=ДБФ.КоличествоЗаписей();
	
загТЗнач="Файл "+имяФайла;
дбф.Первая();
номСтроки=0;
Пока дбф.ВКонце()=0 Цикл
    номСтроки=номСтроки+1;
	тЗнач.НоваяСтрока(номСтроки);
	для ин=1 по дбф.КоличествоПолей() цикл
	тЗнач.УстановитьЗначение(номСтроки, ин, дбф.ПолучитьЗначениеПоля(ин));
КонецЦикла;  
дбф.Следующая();
конецЦикла;
КонецПроцедуры

Категория: JSON, XML, TXT, CSV, DBF