Replace multiplo

[Diego Ronan 1]

Pessoal

 

Recebo alguns dados de um XML que gera valores de cotações de moedas, enfim...

 

Preciso que os valores que vem do XML (que vem em "codigos" como AEUSCO, AEUTUR, etc...) mostrem na tabela US$ Comercial, US$ Turismo, em vez do codigo.

 

Tentei colocar em um replace mas fica zuado...

 

coloquei a função

 

function  altera(X)	Y = replace(X,"AEUSCO","US$ Comercial")	response.Write Y	Y = replace(X,"AEUSTR","US$ Turismo")	response.Write Y	Y = replace(X,"AEEUCO","Euro")	response.Write Y	Y = replace(X,"AEGBB1","Libra Esterlina")	response.Write Y	Y = replace(X,"AEARB1","Peso Argentino")	response.Write Y	Y = replace(X,"AEJPB1","Iene")	response.Write Yend function

e a chamada

 

<%=altera(n.getElementsByTagName("codigo")(0).text)%>

mas não deu certo, ele faz o replace mas a tabela fica assim:

 

US$ ComercialAEUSCOAEUSCOAEUSCOAEUSCOAEUSCO

AEUSTRUS$ TurismoAEUSTRAEUSTRAEUSTRAEUSTR

AEEUCOAEEUCOEuroAEEUCOAEEUCOAEEUCO

AEGBB1AEGBB1AEGBB1Libra EsterlinaAEGBB1AEGBB1

AEARB1AEARB1AEARB1AEARB1Peso ArgentinoAEARB1

AEJPB1AEJPB1AEJPB1AEJPB1AEJPB1Iene

 

Ou seja, ele repete o response.write e coloca em todos os campos os dados que ñ são substituidos nele

 

ja tentei tambem setar valores dentro desta função para ele pular caso a variavel seja tal valor mas tb não deu... ele repete do mesmo jeito

 

Tem alguma solução sem ser a de alterar na fonte do XML?

 

tks!

[jrcardozo 4]

Bom, veja se o codigo abaixo resolve

ASP

sub altera(X)

        X = replace(X,"AEUSCO","US$ Comercial")

        X = replace(X,"AEUSTR","US$ Turismo")

        X = replace(X,"AEEUCO","Euro")

        X = replace(X,"AEGBB1","Libra Esterlina")

        X = replace(X,"AEARB1","Peso Argentino")

        X = replace(X,"AEJPB1","Iene")

        response.Write X

end sub

[Diego Ronan 1]

a chamada deste sub altera e algo?

 

que retornou um erro nele:

 

Type mismatch: 'altera'

 

/banrisul/web/aspxml/moedas_2.asp, line 64

 

a chamada esta assim:

 

ASP

<td width="60" align="left" class="tabelatx_cotacoes">

<%=altera(n.getElementsByTagName("codigo")(0).text)%>

</td>

 

vlw a ajuda :)

[jrcardozo 4]

utilize desta forma então

ASP

function altera(X)

        X = replace(X,"AEUSCO","US$ Comercial")

        X = replace(X,"AEUSTR","US$ Turismo")

        X = replace(X,"AEEUCO","Euro")

        X = replace(X,"AEGBB1","Libra Esterlina")

        X = replace(X,"AEARB1","Peso Argentino")

        X = replace(X,"AEJPB1","Iene")

        altera = x

end function

Response.Write(altera(n.getElementsByTagName("codigo")(0).text))