Como hacer un implode en ASP

[neodani]

Buenas,

Tengo guardado en un array valores de un gráfico, y no consigo pasar los valores del array separados por comas, para que quede de la siguiente forma

[94,93,162,85,140,160,151,63,58,129,130,95]

Si lo imprimo tal cual obtengo
[949316285140160151635812913095]

Código ASP:

<&#37; 
Response.Write("[")
For Each item In SolucionadasArray
    Response.Write(item)
Next
Response.Write("]")
%>
 

Y si pruebo añadir las comas en cada item no consigo el resultado deseado
[,94,93,162,85,140,160,151,63,58,129,130,95,]

Código ASP:

<% 
Response.Write("[")
For Each item In SolucionadasArray
    Response.Write(item & ",")
Next
Response.Write("]")
%>
 

Podéis decirme como puedo hacerlo? existe alguna función en ASP para hacerlo como en PHP
$comma_separated = implode(",", $array);

Muchas gracias de antemano!

[Adler]

Hola

El equivalente es la funcion Join()

Suerte

[neodani]

Iniciado por Adler

Hola

El equivalente es la funcion Join()

Suerte

Gracias Adler,

No entiendo la linea b=Filter(a,"n")

Código ASP:

Dim a(5),b
a(0)="Saturday"
a(1)="Sunday"
a(2)="Monday"
a(3)="Tuesday"
a(4)="Wednesday"
b=Filter(a,"n")
document.write(join(b,", "))
 

No puedo dejar simplemente esto?

document.write(join(SolucionadasArray,", "))

Muchas gracias de antemano!

[neodani]

Lo he probado así y me sale una coma de más al principio :S

Código ASP:

Response.Write(join(SolucionadasArray,","))
 

,106,98,122,107,91,72,113,128,121,111,96,68

Código ASP:

Response.Write("[")
For Each item In SolucionadasArray
    Response.Write(item & ",")
Next
Response.Write("]")
 

[,106,98,122,107,91,72,113,128,121,111,96,68,]

No entiendo de donde aparece la coma del principio, aqui es cuando relleno el array

Código ASP:

DO while cont <= 12
    Set rs = Server.CreateObject("ADODB.Recordset")
    SQL = "SELECT solucionada_per AS id_empleado, COUNT(*) AS cerradas FROM NSG_INCIDENCIES_CLIENT WHERE (MONTH(data_incidencia) = "& cont &") AND (YEAR(data_incidencia) = 2009) AND (solucionada_per = 12793) GROUP BY solucionada_per"
    rs.open SQL, conn
    SolucionadasArray(cont) = rs("cerradas")
    cont = cont + 1
LOOP
 

Gracias de antemano

[Adler]

Hola

¿Es posible que cont esté empezando en 1 en vez de en 0?
Prueba así

Código ASP:

Dim cont
cont = 0
DO while cont < 12
    Set rs = Server.CreateObject("ADODB.Recordset")
    SQL = "SELECT solucionada_per AS id_empleado, COUNT(*) AS cerradas FROM NSG_INCIDENCIES_CLIENT WHERE (MONTH(data_incidencia) = "& cont &") AND (YEAR(data_incidencia) = 2009) AND (solucionada_per = 12793) GROUP BY solucionada_per"
    rs.open SQL, conn
    SolucionadasArray(cont) = rs("cerradas")
    cont = cont + 1
LOOP
 

Suerte

[bebo]

Código ASP:

<&#37;
cadena="["
For Each item In SolucionadasArray
    cadena=cadena&item&","
Next
cadena=left(cadena,len(cadena)-1)
cadena=cadena&"]"
Response.Write(cadena)
%>
 

Suerte.