nalgeon

nalgeon

function Suggest(DictionaryType, ContentType, Accept, Token, Body: string): string;
var
    IdHTTP1: TIdHTTP;
    StringStream: TStringStream;
begin
    IdHTTP1 := TIdHTTP.Create;
    StringStream := TStringStream.Create('', TEncoding.UTF8);

    try
        IdHTTP1.HTTPOptions := [hoKeepOrigProtocol,hoForceEncodeParams,hoNoProtocolErrorException,hoWantProtocolErrorContent];

nalgeon

nalgeon

declare
  http_req utl_http.req;
  http_resp utl_http.resp;
  query varchar2(32767);
  query_raw RAW(512);
begin
  query := '{ "query": "7719402047", "count": 1 }';
  query := convert(query, 'UTF8');
  
  http_req := utl_http.begin_request('http://suggestions.dadata.ru/suggestions/api/4_1/rs/suggest/party', 'POST', 'HTTP/1.1');

nalgeon

Индекс,Тип региона,Регион,Тип района,Район,Тип города,Город,Тип н/п,Н/п,Код КЛАДР,Код ФИАС,Уровень по ФИАС,Признак центра района или региона,Код ОКАТО,Код ОКТМО,Код ИФНС,Часовой пояс,Широта,Долгота,Федеральный округ,Население
385200,Респ,Адыгея,,,г,Адыгейск,,,0100000200000,ccdfd496-8108-4655-aadd-bd228747306d,4: город,0,79403000000,79703000001,0107,UTC+3,44.8783715,39.190172,Южный,12689
385000,Респ,Адыгея,,,г,Майкоп,,,0100000100000,8cfbe842-e803-49ca-9347-1ef90481dd98,4: город,2,79401000000,79701000001,0105,UTC+3,44.6098268,40.1006527,Южный,144055
649000,Респ,Алтай,,,г,Горно-Алтайск,,,0400000100000,0839d751-b940-4d3d-afb6-5df03fdd7791,4: город,2,84401000000,84701000,0400,UTC+7,51.9582681,85.9602957,Сибирский,62861
658125,край,Алтайский,,,г,Алейск,,,2200000200000,ae716080-f27b-40b6-a555-cf8b518e849e,4: город,0,01403000000,01703000,2201,UTC+7,52.4920914,82.7794145,Сибирский,28528
656000,край,Алтайский,,,г,Барнаул,,,2200000100000,d13945a8-7017-46ab-b1e6-ede1e89317ad,4: город,2,01401000000,01701000,2200,UTC+7,53.

nalgeon

library(httr)

url <- "https://suggestions.dadata.ru/suggestions/api/4_1/rs/suggest/party"

headers <- c(
  "Content-Type" = "application/json",
  Accept = "application/json", 
  Authorization = "Token YOUR_API_KEY")

body <- list(

nalgeon

// Замените на свой API-ключ из личного кабинета (https://dadata.ru/profile/#info)
var API_KEY = "ВАШ_API_КЛЮЧ";

/***
/* Не меняйте код ниже этой строчки
 ***/ 

var FORMATTERS = {
  address: formatAddress,
  fio: formatFio,

nalgeon

nalgeon

Как подключить пример

1. Откройте Excel и включите отображение вкладки «Разработчик»
2. Перейдите в редактор Visual Basic (в ленте Разработчик > Visual Basic).
3. Откройте список ссылок: в меню Tools > References...
4. Отметьте пункты «Microsoft Scripting Runtime» и «Microsoft VBScript Regular Expressions 5.5». Нажмите OK.
5. Скачайте архив с библиотекой VBA-JSON. Распакуйте его.
6. В меню File > Import file... выберите JsonConverter.bas из распакованного архива.
7. Откройте модуль Лист1.
8. Скопируйте код из примера в модуль.

nalgeon

function getNameByINN(inn) {
  var url = "https://suggestions.dadata.ru/suggestions/api/4_1/rs/suggest/party";
  var query = '{"query": "' + inn + '"}'

  var headers = {
    "Authorization": "Token ВАШ_API_КЛЮЧ"
  };

  var fetchArgs = {
    method: "POST",