Skip to main content
adicionou 527 caracteres ao conteúdo
Fonte Link
Daniel Omine
  • 20,1mil
  • 1
  • 35
  • 67

Vou mostrar somente o techo do loop, pois é somente nesse trecho que modifiquei:

c2 = 0;
Do
    If c2 > 0 Then
        response.write(",")
    End If
    response.write("{")
    c = 0;
    for each x in rs.fields
        If c > 0 Then
            response.write(",")
        End If
        response.write("'" & x.name & "'")
        response.write(":")
        response.write("'" & x.value & "'")
        c = 1
    next
    response.write("}")
    c2 = 1;
    RS.MoveNext()
Loop Until RS.EOF

A lógica é adicionar a vírgula antes e permitir somente quando o contador for maior que 0, ou seja, quando o laço de repetição estiver rodando o segundo registro em diante.

Note que existe o contador c2 e c.

O c2 é para o loop primário.

Dentro do loop primário há outro loop, onde usei uma variável chamada c.

O importante é iniciar os contadores com valor 0 antes de iniciar cada loop, não dentro do loop.

Também cuidado com caracteres reservados do json. É mais seguro escapar as strings caso contenham caracteres reservados como double quote, por exemplo.

Replace(str, ""","\"")

Exemplo prático

response.write("'" & Replace(x.name, ""","\"") & "'")

Vou mostrar somente o techo do loop, pois é somente nesse trecho que modifiquei:

c2 = 0;
Do
    If c2 > 0 Then
        response.write(",")
    End If
    response.write("{")
    c = 0;
    for each x in rs.fields
        If c > 0 Then
            response.write(",")
        End If
        response.write("'" & x.name & "'")
        response.write(":")
        response.write("'" & x.value & "'")
        c = 1
    next
    response.write("}")
    c2 = 1;
    RS.MoveNext()
Loop Until RS.EOF

A lógica é adicionar a vírgula antes e permitir somente quando o contador for maior que 0, ou seja, quando o laço de repetição estiver rodando o segundo registro em diante.

Vou mostrar somente o techo do loop, pois é somente nesse trecho que modifiquei:

c2 = 0;
Do
    If c2 > 0 Then
        response.write(",")
    End If
    response.write("{")
    c = 0;
    for each x in rs.fields
        If c > 0 Then
            response.write(",")
        End If
        response.write("'" & x.name & "'")
        response.write(":")
        response.write("'" & x.value & "'")
        c = 1
    next
    response.write("}")
    c2 = 1;
    RS.MoveNext()
Loop Until RS.EOF

A lógica é adicionar a vírgula antes e permitir somente quando o contador for maior que 0, ou seja, quando o laço de repetição estiver rodando o segundo registro em diante.

Note que existe o contador c2 e c.

O c2 é para o loop primário.

Dentro do loop primário há outro loop, onde usei uma variável chamada c.

O importante é iniciar os contadores com valor 0 antes de iniciar cada loop, não dentro do loop.

Também cuidado com caracteres reservados do json. É mais seguro escapar as strings caso contenham caracteres reservados como double quote, por exemplo.

Replace(str, ""","\"")

Exemplo prático

response.write("'" & Replace(x.name, ""","\"") & "'")
Fonte Link
Daniel Omine
  • 20,1mil
  • 1
  • 35
  • 67

Vou mostrar somente o techo do loop, pois é somente nesse trecho que modifiquei:

c2 = 0;
Do
    If c2 > 0 Then
        response.write(",")
    End If
    response.write("{")
    c = 0;
    for each x in rs.fields
        If c > 0 Then
            response.write(",")
        End If
        response.write("'" & x.name & "'")
        response.write(":")
        response.write("'" & x.value & "'")
        c = 1
    next
    response.write("}")
    c2 = 1;
    RS.MoveNext()
Loop Until RS.EOF

A lógica é adicionar a vírgula antes e permitir somente quando o contador for maior que 0, ou seja, quando o laço de repetição estiver rodando o segundo registro em diante.