1 reply to this topic

[.Ninja.]

Pessoal, eu sei que tem varios topicos falando sobre XML e ASP no forum, so que nao achei (e nao consegui) um especifico para o que eu quero.
Tentei fazer alguns aqui so que nao deram certo. E como uso PHP, ASP esta sendo um pouco complicado para mim.
Bom, vamos ao meu problema.

Tenho um arquivo XML com o seguinte esquema:

<cont>
  <act> 1 </act>
  <txt> bla </txt>
</cont>

<cont>
  <act> 2 </act>
  <txt> blabla </txt>
</cont>

Quero, atraves da querystring act=1, ler apenas o que tem dentro da tag txt.
E dentro dessa tag, tenho que tambem transformar [] em <> e |E_COMERC| em &.

É isso que eu preciso fazer. Alguem teria algum exemplo, ou codigo que faca esse tipo de leitura e alteracao?

Muito obrigado.

Edição feita por: .Ninja., 26/09/2005, 17:55.

[Agente Linhares]

um exemplo q achei pela net:

ler_xml_externo.asp

<%
'Instancia o objeto HttpRequest.
Set objSrvHTTP = Server.CreateObject("MSXML2.XMLHTTP.3.0")

'Informe o método e a URL a ser capturada
objSrvHTTP.open "GET", "http://slashdot.org/slashdot.xml", false

'Com o método setRequestHeader informamos o cabeçalho HTTP
objSrvHTTP.setRequestHeader "Content-Type", "text/xml"

'O método Send envia a solicitação HTTP e exibe o conteúdo da página
objSrvHTTP.Send()

'Amazenamos o resultado na variável strXML
strXML = objSrvHTTP.ResponseXML.xml

'Instancia o objeto XMLDOM
Set objXML = Server.CreateObject("MSXML2.DOMDocument.4.0")

'Indicamos que o download em segundo plano não é permitido
objXML.async = false

'O método loadXML carrega parte do código, sem ter o documento XML
objXML.loadXML(strXML)

'Verifica possíveis erros com o método parseError
if objXML.ParseError.errorCode <> 0 then

 response.write "Código do erro: " & objXML.parseError.errorCode & "<br>"
 response.write "Posição no arquivo: " & objXML.parseError.filepos & "<br>"
 response.write "Linha: " & objXML.parseError.line & "<br>"
 response.write "Posição na linha: " & objXML.parseError.linepos & "<br>"
 response.write "Descrição: " & objXML.parseError.reason & "<br>"
 response.write "Texto que causa o erro: " & objXML.parseError.srcText & "<br>"
 response.write "Url do arquivo com problemas: " & objXML.parseError.url

else

'Instancia o objeto documentElement para extrair os elementos
Set raiz = objXML.documentElement

 'Looping para percorrer todos os elementos filhos
 For i = 0 to raiz.childNodes.length -1

 'A propriedade NodeName contém o nome do elemento
 'A propriedade childNodes contém a lista de elementos filhos
 response.Write raiz.NodeName & "<br>" & raiz.childNodes.item(i).childNodes.item(0).text & "<br>" & raiz.childNodes.item(i).childNodes.item(1).text & "<br>" & raiz.childNodes.item(i).childNodes.item(2).text & "<br>" & raiz.childNodes.item(i).childNodes.item(3).text & "<p>"

 next

end if

'Destruíndo os objetos
Set objXML = Nothing
Set objSrvHTTP = Nothing
%>

+ sobre:

http://forum.wmonlin...cs&highlite=xml

http://forum.wmonlin...c=127998&hl=xml