Ordenando Arrays com recordset desconectado

[jrcardozo 4]

Segue:

ASP

<%

variavel = "14=test&7=test1&10=test2&6=test3"

arrayVar = split(variavel,"&")

for i=0 to ubound(arrayVar)

        arrrayAux = split(arrayVar(i),"=")

        for j = 0 to ubound(arrrayAux)

                if j mod 2 = 0 then

                        if var = "" then

                                var = arrrayAux(j)

                        else

                                var = var&","&arrrayAux(j)     

                        end if 

                end if

        next

next

arrayVar = split(var,",")

Set Rs = Server.CreateObject("ADODB.RecordSet")

Rs.Fields.Append "valor", 200, 255

Rs.Open

For i = 0 to ubound(arrayVar)

        Rs.AddNew

        Rs.Fields("valor").Value =  (right("000000"& arrayVar(i),5))

Next

Rs.Sort = "valor Asc"

Rs.MoveFirst

Do While Not Rs.EoF

    Response.Write (rs.fields("valor").value) &"<br>"

    Rs.MoveNext

Loop

Rs.Close

Set Rs = Nothing

%>

[ersao 0]

nossa cara tua é fera mesmo!!! parabéns! teria como eu recuperar o valor também ou não?tipo:00006=test300007=test100010=test200014=test

[Ted k' 126]

mais jonathandj hehe muito bom mesmo cara, vou colocar um monte de papel na sua mesa pra você trabalhar, hehe fica fazendo essas coisas æ!!!!

 

Parabéns cara, testei seu código, está show mesmo!

 

Acontenceu um erro mais eu alterei, era configuração minha do IIS, não sei como funcionou... mais.... muito bom mesmo, bela contribuíção!!

[jrcardozo 4]

mais jonathandj hehe muito bom mesmo cara, vou colocar um monte de papel na sua mesa pra você trabalhar, hehe fica fazendo essas coisas æ!!!!Parabéns cara, testei seu código, está show mesmo!Acontenceu um erro mais eu alterei, era configuração minha do IIS, não sei como funcionou... mais.... muito bom mesmo, bela contribuíção!!

valeu pela força TedK' sempre bom receber elogios e/ou criticas pois isso incentiva a fazer cada vez mais

nossa cara tua é fera mesmo!!! parabéns! teria como eu recuperar o valor também ou não?tipo:00006=test300007=test100010=test200014=test

Ersao, tem como sim. Favor postar no forum principal do forum Asp para discução....de ante-mão adianto que é só retirar o segundo array e modificar umas coisinhas

[nettcom 0]

mais jonathandj hehe muito bom mesmo cara, vou colocar um monte de papel na sua mesa pra você trabalhar, hehe fica fazendo essas coisas æ!!!!

 

Parabéns cara, testei seu código, está show mesmo!

 

Acontenceu um erro mais eu alterei, era configuração minha do IIS, não sei como funcionou... mais.... muito bom mesmo, bela contribuíção!!

valeu pela força TedK' sempre bom receber elogios e/ou criticas pois isso incentiva a fazer cada vez mais

 

nossa cara tua é fera mesmo!!! parabéns! teria como eu recuperar o valor também ou não?

 

tipo:

00006=test3

00007=test1

00010=test2

00014=test

Ersao, tem como sim. Favor postar no forum principal do forum Asp para discução....de ante-mão adianto que é só retirar o segundo array e modificar umas coisinhas

 

ersao em php é tao simples...!! traduz para ASP...

 

PHP

<?

 

     $p= "14= test&7=test1&10=test2&6=test3";

 

     $db=explode("&",$p);

 

        foreach($db as $db1=>$db2)

 

                {

 

            $campos=explode("=",$db2);

 

                    echo $campos[0]; echo $campos[1];

 

                {

 

 

 

?>

 

com resultado para um array:

 

PHP

<?

 

function teste($p)

 

{

 

        $db=explode("&",$p);    $banco=array();

 

        foreach($db as $db1=>$db2){

 

        $campos=explode("=",$db2); $campo=$campos[0];$valor=$campos[1];

 

        $banco[$campo]=$valor;

 

        }

 

        return sort($banco);

 

}

 

//uso:

 

print_r(teste("14=teste1&7=teste2&10=teste3&6=teste4"));

 

?>

 

resultado:

Array

(	[6] => teste4	[7] => teste2	[10] => teste3	[14] => teste1)

[ersao 0]

Obrigado por mostrar em PHP, sei que era bem mais simples mesmo, mas minha necessidade é em ASP, segue um topico abaixo... continuando minha solicitação, se for possível é claro!

 

http://forum.imasters.com.br/index.php?showtopic=245657