[Resolvido]Aspa Dupla ao Concatenar para exportar para TXT

Olá boa noite, preciso gerar um arquivo no seguinte formato
"{"ID":"1","NOME":"Fernando","SENHA":"123456","MAXIMO_DESCONTO":"10"},"
cheguei neste aki,
"{ID:1,NOME:Administrador,SENHA:123, MAXIMODESCONTO:10},"
eis a linha que gera o arquivo com os dados,

Código:

Print #1, "{" & "ID" & ":" & rs("idUsuario") & ",NOME" & ":" & rs("Usuario") & ",SENHA:" & rs("Senha") & ", MAXIMODESCONTO:" & rs("desconto") & "},"

se alguem puder me ajudar agradeço

Bom dia,

O campo da "Bloqueado" da tabela em que está fazendo o recordset (rs("Bloqueado")) é do tipo booleano (Sim/Não)?

Abraço.

corrigido a linha, mas o formato é diferente

Bom dia,

Mas então, qual a dúvida ao certo? Porque me parece que esse código de concatenação está correto. A dúvida é em "gerar o arquivo" propriamente dito ou na concatenação de fato?

Abraço.

ele gera a linha que indiquei:
{ID:1,NOME:Administrador,SENHA:123, MAXIMODESCONTO:10},
mas preciso gerar ela assim:
{"ID":"1","NOME":"Fernando","SENHA":"123456","MAXIMO_DESCONTO":"10"},
e não estou conseguindo concatenar para adicionar as aspas como no exemplo acima

Olá a todos,

Marcio Percoski, a questão não está muito bem formulada (irei ajustar o título).
O que pretende pelos visto é incluir a Aspa Dupla, para isso usamos o Chr(34) na instrução:

Veja se é isto:

Código:

Print #1, "{" & Chr(34) & "ID" & Chr(34) & ":" & Chr(34) & rs("idUsuario") & ",NOME" & Chr(34) & ":" & Chr(34) & rs("Usuario") & ",SENHA:" & rs("Senha") & ", MAXIMODESCONTO:" & rs("desconto") & Chr(34) & "},"

Abraçoa todos

Boa tarde,

O que o Ahteixeira mostrou acima é a resposta pra sua pergunta. Porém, visto que está exportando dados de usuários do sistema, do ponto de vista da segurança, nao é aconselhável que você mostre especificamente o que cada parâmetro representa, pois nas mãos de um usuário mal intensionado, ele poderá acessar de fazer o que quiser (ou tiver permissão) no sistema. Então sugiro que exporte seus dados da seguite forma:

{ID;SENHA;MAXIMODESCONTO}

O código fica:

Código:

Print #1, "{" & rs("idUsuario") & ";" & rs("Senha") & ";" & rs("desconto") & "}"

O resultado é:

{1;123;10}

A não ser que o usuário saiba que os códigos estão na ordem ID;SENHA;MAXIMODESCONTO será impossível pra ele saber o que esses números significam.

Abraço.

Demorei mas entendi sua dica, cheguei aki,
[
{"ID":"1","NOME":"Administrador","SENHA":"123","MAXIMO_DESCONTO":"Falso"},
{"ID":"2","NOME":"Master","SENHA":"master","MAXIMO_DESCONTO":"Falso"},
{"ID":"3","NOME":"PERCOSKI","SENHA":"12345","MAXIMO_DESCONTO":"Falso"},
]

Código:

Open Application.CurrentProject.Path & "\Monitor\usuarios.json" For Output As #1
  Print #1, "["
    Do While Not rs.EOF
        strPalavra = rs!idusuario
        strLinha = " {"  'rs!idusuario &
        Do While strPalavra = rs!idusuario
            strLinha = strLinha & Chr(34) & "ID" & Chr(34) & ":" & Chr(34) & rs!idusuario & Chr(34) & "," & Chr(34) & _
            "NOME" & Chr(34) & ":" & Chr(34) & rs!usuario & Chr(34) & "," & Chr(34) & "SENHA" & Chr(34) & ":" & Chr(34) & _
            rs!Senha & Chr(34) & "," & Chr(34) & "MAXIMO_DESCONTO" & Chr(34) & ":" & Chr(34) & rs!Bloqueado & Chr(34) & ","
            rs.MoveNext
            If rs.EOF Then Exit Do
        Loop
        strLinha = Left(strLinha, Len(strLinha) - 1)
        strLinha = strLinha & "},"
        Print #1, strLinha
    Loop
    Print #1, "]"
    rs.Close
    Set rs = Nothing
Close #1

mas a ultima virgula não pode ficar o correto seria assim,

[
{"ID":"1","NOME":"Administrador","SENHA":"123","MAXIMO_DESCONTO":"Falso"},
{"ID":"2","NOME":"Master","SENHA":"master","MAXIMO_DESCONTO":"Falso"},
{"ID":"3","NOME":"PERCOSKI","SENHA":"12345","MAXIMO_DESCONTO":"Falso"}
]

Mas ta quase

Olá Marcio Percoski,

Acho que com um IIF, resolve, onde tem:
rs!Senha & Chr(34) & "," & Chr(34) & "MAXIMO_DESCONTO" & Chr(34) & ":" & Chr(34) & rs!Bloqueado & Chr(34) & ","

altere por:
rs!Senha & Chr(34) & "," & Chr(34) & "MAXIMO_DESCONTO" & Chr(34) & ":" & Chr(34) & rs!Bloqueado & Chr(34) & IIf(rs.EOF, "", ",")


Abraço

Código:

  Print #1, "["
    Do While Not rs.EOF
        strPalavra = rs!idusuario
        strLinha = " {"
       
        Do While strPalavra = rs!idusuario
            strLinha = strLinha & Chr(34) & "ID" & Chr(34) & ":" & Chr(34) & rs!idusuario & Chr(34) & "," & Chr(34) & _
            "NOME" & Chr(34) & ":" & Chr(34) & rs!usuario & Chr(34) & "," & Chr(34) & "SENHA" & Chr(34) & ":" & Chr(34) & _
            rs!Senha & Chr(34) & "," & Chr(34) & "MAXIMO_DESCONTO" & Chr(34) & ":" & Chr(34) & rs!Bloqueado & Chr(34) & ","
            rs.MoveNext
            If rs.EOF Then Exit Do
        Loop
        strLinha = Left(strLinha, Len(strLinha) - 1)
      strLinha = IIf(rs.EOF, strLinha & "}", strLinha & "},")
        'strLinha = strLinha & "},"
        Print #1, strLinha
    Loop
    Print #1, "]"
    rs.Close
    Set rs = Nothing
Close #1

isso mesmo ja tinha resolvido obrigado

Olá Marcio, obrigado pelo retorno.
O fórum agradece.

Abraço

Bom dia,

Reitero a dica de segurança que dei a cima. Mas que bom que resolveu!

Abraço.

Olá a todos,

Cassio, concordo não devemos descurar a proteção.
Se fosse para rodar na União Europeia, ao abrigo da nova legislação RGPD, numa auditoria já tinha uma falha grave de segurança para chumbar o projeto.

Mas limitamo-nos a responder apenas à questão.

Abraço a todos

Sobre a dica de segurança, vamos analizar, mas esse arquivo roda para integração de sistemas em ambiente segura, ou seja em um servidor.
Mas como o amigo lembrou serve para que não nos descuidemos da segurança