Problema con arreglo

[dobled]

Tengo un arreglo que me hago con unos datos que traigo de la bd en este formato 6, 1, 4, 11, 2, 1, 1, 1, 1, 3, 1, 1, 1, 2, 2 y lo guardo en una variable que se llama arrA . Si imprimo la variable en la web me muestra ese valor.

El problema es que tengo que manejar este formato:
Array(6, 1, 4, 11, 2, 1, 1, 1, 1, 3, 1, 1, 1, 2, 2) al agregarlos a mano me funciona todo el programita pero al usarlo asi no funciona:
Split(arrA)
al parecer lo toma como string.

Como puedo solucionar este problema?

Saludos

[Myakire]

Especifica que el separador es la coma Split(arrA,","), por que sino te va a tomar el espacio en blanco

Saludos

[dobled]

Myakire probe y me sucede lo mismo.
Por que si lo ingreso a mano funciona. QUe será?

[u_goldman]

Hola DD, puedes poner tu código?

[dobled]

pero por su puesto mi amigo

Código:

<style>
.textovertical {writing-mode: tb-rl; font-family:Arial, Helvetica, sans-serif; font-size:11px}
.titulos{	font-family:Arial, Helvetica, sans-serif;
		font-size:18px;
}
.vertical {writing-mode: tb-rl; filter: flipv fliph; font-family:Arial, Helvetica, sans-serif; font-size:20px}
H2 {font-family:Arial, Helvetica, sans-serif; font-size:24px}
</style> 
<!--#include file="conexion_inc.asp" -->
<%
	conexion = ConectarSQL()
	Set  dataChart = Query("SELECT * FROM vista_feedback_graf_area WHERE anomes = '200612' ORDER By subarea", conexion)
	
	do while not dataChart.Eof
	If arrA = "" Then
	arrA = dataChart("subarea")
	else
	arrA = arrA&","& dataChart("subarea")
	end If
	dataChart.movenext
	loop
	Cierra(dataChart)



	'response.write (""&arrA&"<BR>")
	
	conexion = ConectarSQL()
	Set  dataChartb = Query("SELECT * FROM vista_feedback_graf_area WHERE anomes = '200612' ORDER By subarea", conexion)
	
	do while not dataChartb.Eof
	If arrB = "" Then
	arrB = dataChartb("numxarea")
	else
	arrB = arrB &","& dataChartb("numxarea")
	end If
	dataChartb.movenext
	loop
	Cierra(dataChartb)
	'response.write arrB

response.write arrB

%>
<%
Sub ShowChart(ByRef aValues, ByRef aLabels, ByRef strTitle, ByRef strXAxisLabel, ByRef strYAxisLabel)

	Const GRAPH_WIDTH  = 450  
	Const GRAPH_HEIGHT = 250 
	Const GRAPH_BORDER = 5    
	Const GRAPH_SPACER = 2    


	Const TABLE_BORDER = 0


	Dim I
	Dim iMaxValue
	Dim iBarWidth
	Dim iBarHeight

	' Saca el valor maximo del arreglo
	iMaxValue = 0
	For I = 0 To UBound(aValues)
		If iMaxValue < aValues(I) Then iMaxValue = aValues(I)
	Next 'I
	'Response.Write iMaxValue ' Debugging 


	iBarWidth = (GRAPH_WIDTH \ (UBound(aValues) + 1)) - GRAPH_SPACER
	'Response.Write iBarWidth ' Debugging 


%>
	<TABLE BORDER="<%= TABLE_BORDER %>" CELLSPACING="0" CELLPADDING="0">
		<TR>
			<TD COLSPAN="3" ALIGN="center"><H2><%= strTitle %></H2></TD>
		</TR>
		<TR>
			<TD align="center" class="vertical"><B><%= strYAxisLabel %></B></TD>
			<TD VALIGN="top">
				<TABLE BORDER="<%= TABLE_BORDER %>" CELLSPACING="0" CELLPADDING="0">
					<TR>
						<TD ROWSPAN="2"><IMG SRC="./images/spacer.gif" BORDER="0" WIDTH="1" HEIGHT="<%= GRAPH_HEIGHT %>"></TD>
						<TD VALIGN="top" ALIGN="right" style="font-family:Arial, Helvetica, sans-serif; font-size:12px;"><%= iMaxValue %>&nbsp;</TD>
					</TR>
					<TR>
						<TD VALIGN="bottom" ALIGN="right" style="font-family:Arial, Helvetica, sans-serif; font-size:12px;">0&nbsp;</TD>
					</TR>
				</TABLE>
			</TD>
			<TD>
				<TABLE BORDER="<%= TABLE_BORDER %>" CELLSPACING="0" CELLPADDING="0">
					<TR>
						<TD VALIGN="bottom"><IMG SRC="./images/spacer_black.gif" BORDER="0" WIDTH="<%= GRAPH_BORDER %>" HEIGHT="<%= GRAPH_HEIGHT %>"></TD>
					<%
					
					For I = 0 To UBound(aValues)
						iBarHeight = Int((aValues(I) / iMaxValue) * GRAPH_HEIGHT)

						
						If iBarHeight = 0 Then iBarHeight = 1
					%>
						<TD VALIGN="bottom"><IMG SRC="./images/spacer.gif" BORDER="0" WIDTH="<%= GRAPH_SPACER %>" HEIGHT="1"></TD>
						<TD VALIGN="bottom"><IMG SRC="./images/spacer_red.gif" BORDER="0" WIDTH="<%= iBarWidth %>" HEIGHT="<%= iBarHeight %>" ALT="<%= aValues(I) %>"></TD>
					<%
					Next 'I
					%>
					</TR>
					
					<TR>
						<TD COLSPAN="<%= (2 * (UBound(aValues) + 1)) + 1 %>"><IMG SRC="./images/spacer_black.gif" BORDER="0" WIDTH="<%= GRAPH_BORDER + ((UBound(aValues) + 1) * (iBarWidth + GRAPH_SPACER)) %>" HEIGHT="<%= GRAPH_BORDER %>"></TD>
					</TR>
				
				<% If IsArray(aLabels) Then %>
					<TR>
						<TD></TD>
					<% For I = 0 To UBound(aValues)  %>
						<TD></TD>
						<TD ALIGN="center" VALIGN="top"><FONT SIZE="1" class="textovertical">&nbsp;<%= aLabels(I) %></FONT></TD>
					<% Next 'I %>
					</TR>
				<% End If %>
				</TABLE>
			</TD>
		</TR>
		<TR>
			<TD COLSPAN="2"></TD>
			<TD ALIGN="center"><B><%= strXAxisLabel %></B></TD>
		</TR>
	</TABLE>
	<%
End Sub
%>
<%
ShowChart Split(arrB,","), Array("Corrugadora", "P2", "P3", "P4", "P5", "P6", "P7", "P8", "P9", "P10", "P11", "P8", "P9", "P10", "P11"), "Feedback por Maquina /Area", "Area", "Cantidad de Feedback"
'ShowChart Split(arrB,","), Split(arrA,","), "Título del Gráfico", "Areas", "Y"

%>

puedes reemplazar los valores y ponerlos a mano o conectenlos a cualquier bd para que te funcione el grafico.

Saludos

[Myakire]

A ver, dobled, ¿que no habiamos ya arreglado ese código?

[u_goldman]

El problema es con ArrA, con ArrB o con ambos? A simple vista se ve bien, lo interesante es si al pasarle los valores a la subrutina, es que no reconoce la función split, o que trate de ejecutar antes la llamada que la conversión al arreglo...trataste hacer tu split antes de pasarla a la sub?

Salud

[Myakire]

Choque de 19 segundos

[dobled]

Iniciado por Myakire

A ver, dobled, ¿que no habiamos ya arreglado ese código?

Si Myakire en esa oportunidad era ese problema pero ahora es otro. Ya encontre el problema era exactamente eso que lo deja como string

Código:

	' Saca el valor maximo del arreglo
	iMaxValue = 0
	For I = 0 To UBound(aValues)
		If cint(iMaxValue) < cint(aValues(I)) Then iMaxValue = cint(aValues(I))
	Next 'I

de esta manera quedo solucionado al parecer el problema es por que traigo los datos de una vista y no me mantiene las propiedades del campo.

Saludos y Gracias

[Myakire]

aaahhh, ooohhh, mmmm, tons, ¿ya quedó?