MaximoAccess

Caro Usuário, antes de postar pela primeira vez, leia as regras do fórum.

Obrigado

Administração do MaximoAccess

Dicas Ms Access, Exemplos Ms Access, Codigos VBA Ms Access, SQL Ms Access

    Importação de json

    Compartilhe
    avatar
    percoski
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 299
    Registrado : 27/02/2013

    Importação de json

    Mensagem  percoski em 5/7/2018, 19:28

    estou precisando importar um arquivo
    estou aki
    Código:
    Public Function LeArquivo()
        Dim Arquivo As Integer
        Dim CaminhoArquivo As String
        Dim TextoArquivo As String
        Dim TextoProximaLinha As String
        Dim ContadorLinha As Long
     
        'Configura a leitura do arquivo
        Arquivo = FreeFile
        
     
        'Abre o arquivo para leitura
        Open Application.CurrentProject.Path & "\Monitor\pedido\1530730237041-BySbv5qG7.json" For Input As Arquivo
        ContadorLinha = 1b
    "
        'Lê o conteúdo do arquivo linha a linha
        Do While Not EOF(Arquivo)
            Line Input #Arquivo, TextoProximaLinha
            TextoProximaLinha = TextoProximaLinha & vbCrLf
            TextoArquivo = TextoArquivo & TextoProximaLinha
        Loop
     
        'Coloca na janela de verificação imediata
        Debug.Print TextoArquivo
     
        'Fecha o arquivo
        Close Arquivo
     
    End Function
    mas preciso importa o campo depois dos ":"
    Ex "ID": "1"
    no caso importaria só o 1
    Anexos
    1530730237041-BySbv5qG7.txt
    Você não tem permissão para fazer download dos arquivos anexados.
    (1 Kb) Baixado 4 vez(es)
    avatar
    percoski
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 299
    Registrado : 27/02/2013

    Re: Importação de json

    Mensagem  percoski em 6/7/2018, 02:11

    cheguei aki
    Código:
    Dim Arquivo As Integer
        Dim CaminhoArquivo As String
        Dim TextoArquivo As String
        Dim TextoProximaLinha As String
        Dim ContadorLinha As Long
        Dim str As String
        Dim arrver
     
       
        Arquivo = FreeFile
       
     
       
        Open Application.CurrentProject.Path & "\Monitor\pedido\1530715142649-SkkGhUcG7.json" For Input As Arquivo
        ContadorLinha = 1
       
        Do While Not EOF(Arquivo)
            Line Input #Arquivo, TextoProximaLinha
            TextoProximaLinha = TextoProximaLinha & vbCrLf
            TextoArquivo = TextoArquivo & TextoProximaLinha
        Loop
        arrver = Split(TextoArquivo, ",")
       
        MsgBox arrver(0)
        MsgBox arrver(1)
        MsgBox arrver(2)
        MsgBox arrver(3)
        MsgBox arrver(4)
        MsgBox arrver(5)
        MsgBox arrver(6)
        MsgBox arrver(7)
        MsgBox arrver(8)
        MsgBox arrver(9)
     
       
        Close Arquivo
    consegui extrair por elemento mas agora tenho alguma dúvidas, qdo chego em "itens:" não sei qtos elementos vou ter pois podem ter vários itens e tenho q fazer um laço, pelo menos eu acho para percorrer tudo isso.
    se puderem me ajudar agradeço
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5496
    Registrado : 15/03/2013

    Re: Importação de json

    Mensagem  ahteixeira em 6/7/2018, 08:06

    Olá,
    Disponibilize a base de dados com a tabela que vai receber os dados e o ficheiro a importar.

    Abraço
    avatar
    percoski
    Avançado
    Avançado

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Brasil
    Mensagens : 299
    Registrado : 27/02/2013

    Re: Importação de json

    Mensagem  percoski em 6/7/2018, 13:39

    Segue, o arquivo solicitado
    Anexos
    json.zip
    Você não tem permissão para fazer download dos arquivos anexados.
    (43 Kb) Baixado 8 vez(es)
    avatar
    ahteixeira
    Moderador Global
    Moderador Global

    Respeito às Regras 100%

    Sexo : Masculino
    Localização : Portugal
    Mensagens : 5496
    Registrado : 15/03/2013

    Re: Importação de json

    Mensagem  ahteixeira em 14/8/2018, 18:43

    Olá, não está esquecido.
    Já tem mais alguma coisa (código) feito?

    Abraço

      Data/hora atual: 26/9/2018, 02:27