Lendo um documento XML através do Asp

De Wiki Locaweb
Ir para: navegação, pesquisa

Arquivo internet.xml (exemplo)

Arquivo: internet.xml(exemplo)

<?xml version="1.0" encoding="ISO-8859-1" ?>
	<Internet>
		<Opcoes>
			WEB - E-MAIL - VOZ
				<Locaweb>
					<Opcao>Hospedagem de Sites</Opcao>
				</Locaweb>
				<LocaMail>
					<Opcao>Solucao para E-mails</Opcao>
				</LocaMail>
				<LocaVoz>
					<Opcao>Portal de Voz</Opcao>
				</LocaVoz>
		</Opcoes>
	</Internet>

Lendo o documento internet.xml

No exemplo abaixo, iremos extrair só os elementos filhos que nos interessam.

Para melhor entendimento, seria útil se você tivesse à mão o documento XML internet.xml:


<%
'Instancia o objeto XMLDOM.
Set objXMLDoc = CreateObject("MSXML2.DOMDocument.4.0")
 
'Indicamos que o download em segundo plano não é permitido
objXMLDoc.async = False
 
'Carrega o domcumento XML
objXMLDoc.load("e:\home\LoginFTP\Web\internet.xml")
 
'Carrega o domcumento XML
'Para quem possui serviço de REVENDA, utilize este caminho
'objXMLDoc.load("E:\vhosts\DOMINIO_COMPLETO\httpdocs\internet.xml")
 
'O método parseError contém informações sobre o último erro ocorrido
if objXMLDoc.parseError <> 0 then
 
response.write "Código do erro: " & objXMLDoc.parseError.errorCode & "<br>"
response.write "Posição no arquivo: " & objXMLDoc.parseError.filepos & "<br>"
response.write "Linha: " & objXMLDoc.parseError.line & "<br>"
response.write "Posição na linha: " & objXMLDoc.parseError.linepos & "<br>"
response.write "Descrição: " & objXMLDoc.parseError.reason & "<br>"
response.write "Texto que causa o erro: " & objXMLDoc.parseError.srcText & "<br>"
response.write "Url do arquivo com problemas: " & objXMLDoc.parseError.url
 
else
 
'A propriedade documentElement refere-se à raiz do documento
Set raiz = objXMLDoc.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
 
Next
 
end if
 
'Destruindo os objetos
Set objXMLDoc = Nothing
Set raiz = Nothing
%>


ATENÇÃO

  • Você deve alterar na linha e:\home\LoginFTP\Web\teste\internet.xml, o LoginFTP pelo seu usuário dentro da Locaweb.


Atenção: O código mencionado acima é somente uma sugestão. Caso haja dúvidas quanto sua utilização, sugerimos que verifique juntamente a um desenvolvedor de sua confiança.


Veja também



Ferramentas pessoais
Espaços nominais

Variantes
Ações
Navegação
Ferramentas
Criar um livro