Preenchimento dinâmico Gambas CNPJ [RESOLVIDO]

Alguma dica para o preenchimento automático por busca de CNPJ, com receitinha de bolo se for possível.

outra coisa,
Gambas ainda vive bem? vejo pouca interação sobre essa IDE e sinto falta de novos tutoriais sobre.
Por aqui, como necessito de dados específicos para uma agenda, acabei focando em desenvolver algo que suprisse minhas necessidades, agora com o tempo mais livre, estou tentando dar uma melhorada no sistema.

Resposta:

Para realizar o preenchimento dinâmico de CNPJ com Gambas, você precisa obter os dados da Receita Federal ou de um provedor com a base de dados atualizada. Depois disso, você pode usar o comando curl para baixar os dados e salvar em um arquivo, por exemplo:

$ curl 'http://www.receitaws.com.br/v1/cnpj/0XXXX0XXXXXXXX'; -H 'Accept: application/xml' > CNPJ.txt

Para ler o arquivo em Gambas, você pode usar o comando Open $FILE For Input As #FileNum, algo como:

Open "CNPJ.txt" For Input As #FileNum

A partir daí, você pode ler os dados do arquivo linha a linha, e processa-las de acordo com suas necessidades.

Em relação ao Gambas, ele ainda é usado em diversos projetos, como o gestor fiscal Kolector, sistema de gestão financeira SISCOF e outros. Há também diversos exemplos e tutoriais que ajudam a entender bem esse framework. Se precisar de ajuda com projetos relacionados ao Gambas, você pode visitar o fórum Viva o Linux e montar sua própria thread.

{
"error": {
"message": "We could not parse the JSON body of your request. (HINT: This likely means you aren't using your HTTP library correctly. The OpenAI API expects a JSON payload, but what was sent was not valid JSON. If you have trouble figuring out how to fix this, please send an email to support@openai.com and include any relevant code you'd like help with.)",
"type": "invalid_request_error",
"param": null,
"code": null
}
}

Obrigado pela ajuda, foi muito útil.
Realizei o procedimento adicionando à um evento de botão click.
O código ficou assim:

Public Sub Button1_Click()
Dim sNome, sCNPJ, sHttp As String
Dim collJson As Collection
sCNPJ = TextBox1.Text & "'"
sHttp = "curl 'http://www.receitaws.com.br/v1/cnpj/";
Shell sHttp & sCNPJ To sNome
collJson = Json.decode(sNome, True)
TextBox2.Text = collJson["nome"]
TextBox3.Text = collJson["logradouro"]
TextBox4.Text = collJson["cep"]
Catch
End

Novas ideias são bem aceitas, grato novamente!!!