Como intercalar dados em dois documentos XML, o modelo de objecto do documento (DOM) de programação

Traduções de Artigos Traduções de Artigos
Artigo: 286817 - Ver produtos para os quais este artigo se aplica.
Expandir tudo | Reduzir tudo

Sumário

Este artigo documenta um exemplo de código do Visual Basic que demonstra como programar o MSXML Document Object Model (DOM) para intercalar os dados contidos em dois documentos XML idênticos.

Mais Informação

Intercalar dados contidos em dois ou mais documentos XML idênticos num único documento XML é um requisito comum. O código e método é demonstrado neste artigo podem ser expandidos mais para intercalar três ou mais documentos XML. Se uma versão mais recente do MSXML tiver sido instalada no modo side-by-side, tem explicitamente utilizar global identificadores exclusivos (globais GUID) de ProgID para essa versão para executar o código de exemplo. Por exemplo, o MSXML 4.0 só pode ser instalado no modo side-by-side. Para obter informações adicionais sobre as alterações de código que são necessários para executar o código de exemplo com o analisador MSXML 4.0, clique no número de artigo que se segue para visualizar o artigo na Microsoft Knowledge Base:
305019INFO: O MSXML 4.0 GUID específicos e ProgIds
  1. Abra um ficheiro texto em branco no bloco de notas da Microsoft.
  2. Copie e cole o seguinte código XML no bloco de notas e, em seguida, guarde o ficheiro como xmlbooks1.xml :
    <?xml version="1.0"?>
    <Books>
       <Book>
          <Title>XML Step By Step</Title>
          <Publisher>MS Press</Publisher>
       </Book>
       <Book>
          <Title>Developing XML Solutions</Title>
          <Publisher>MS Press</Publisher>
       </Book>
    </Books>
    					
  3. Abra um novo ficheiro de texto no bloco de notas.
  4. Copie e cole o seguinte código XML no bloco de notas e, em seguida, guarde o ficheiro como xmlbooks2.xml :
    <?xml version="1.0"?>
    <Books>
       <Book>
          <Title>Beginning XML</Title>
          <Publisher>Wrox</Publisher>
       </Book>
       <Book>
          <Title>Professional XML</Title>
          <Publisher>Wrox</Publisher>
       </Book>
    </Books>
    					
  5. Abra um novo projecto de EXE padrão no Visual Basic 6.0. É criado o Form1 por predefinição.
  6. No menu projecto , defina uma referência de projecto para o Microsoft XML, v3.0 ou posterior.
  7. Coloca um botão de comando para o Form1. Command1 é criado por predefinição.
  8. Copiar e colar o seguinte código para o procedimento de evento clicar de no CommandButton:
    ' In the ProgIDs below, change 30 to reflect the installed version of the Microsoft XML Parser.
    ' For example, use Dim doc1 As MSXML2.DOMDocument40 for MSXML 4.
    
    Dim doc1 As MSXML2.DOMDocument30
    Dim doc2 As MSXML2.DOMDocument30
    Dim doc2Node As MSXML2.IXMLDOMNode
    
    Set doc1 = New MSXML2.DOMDocument30
    Set doc2 = New MSXML2.DOMDocument30
    
    doc1.Load "d:\xmlbooks1.xml"
    doc2.Load "d:\xmlbooks2.xml"
    
    For Each doc2Node In doc2.documentElement.childNodes
      doc1.documentElement.appendChild doc2Node
    Next
    
    MsgBox doc1.xml
    
    doc1.save "d:\AllXMLBooks.xml"
    					
  9. O código precedente carrega os dois documentos XML que sejam criados os passos 1 a 4 para dois objectos MSXML ' DOMDocument '. O código, em seguida, intercala os dados xmlbooks2.xml a instância do objeto ' DOMDocument ' com os dados em xmlbooks1.xml . Pode fazê-lo ciclo através de nós subordinados do elemento documento do objecto de ' DOMDocument ' doc2 e cada um deles acrescentar o elemento de documento de doc1 ' DOMDocument '. Finalmente, o XML intercalado é apresentado numa caixa mensagem e mantido um ficheiro no disco.
  10. Abrir AllXMLBooks.xml no Microsoft Internet Explorer para visualizar o documento XML intercalado e tenha em atenção o seguinte XML:
    <?xml version="1.0"?>
    <Books>
    	<Book>
    		<Title>XML Step By Step</Title>
    		<Publisher>MS Press</Publisher>
    	</Book>
    	<Book>
    		<Title>Developing XML Solutions</Title>
    		<Publisher>MS Press</Publisher>
    	</Book>
    	<Book>
    		<Title>Beginning XML</Title>
    		<Publisher>Wrox</Publisher>
    	</Book>
    	<Book>
    		<Title>Professional XML</Title>
    		<Publisher>Wrox</Publisher>
    	</Book>
    </Books>
    					

Propriedades

Artigo: 286817 - Última revisão: 1 de julho de 2004 - Revisão: 3.2
A informação contida neste artigo aplica-se a:
  • Microsoft XML Parser 2.0
  • Microsoft XML Parser 2.5
  • Microsoft XML Parser 2.6
  • Microsoft XML Parser 3.0
  • Microsoft XML Core Services 4.0
  • Microsoft Visual Basic 5.0 Enterprise Edition
  • Microsoft Visual Basic Enterprise Edition for Windows 6.0
  • Microsoft Visual Basic 6.0 Enterprise Edition Service Pack 3
  • Microsoft Visual Basic 6.0 Enterprise Edition Service Pack 4
  • Microsoft Visual Basic 6.0 Professional Edition
Palavras-chave: 
kbmt kbhowto KB286817 KbMtpt
Tradução automática
IMPORTANTE: Este artigo foi traduzido por um sistema de tradução automática (também designado por Machine translation ou MT), não tendo sido portanto revisto ou traduzido por humanos. A Microsoft tem artigos traduzidos por aplicações (MT) e artigos traduzidos por tradutores profissionais. O objectivo é simples: oferecer em Português a totalidade dos artigos existentes na base de dados do suporte. Sabemos no entanto que a tradução automática não é sempre perfeita. Esta pode conter erros de vocabulário, sintaxe ou gramática? erros semelhantes aos que um estrangeiro realiza ao falar em Português. A Microsoft não é responsável por incoerências, erros ou estragos realizados na sequência da utilização dos artigos MT por parte dos nossos clientes. A Microsoft realiza actualizações frequentes ao software de tradução automática (MT). Obrigado.
Clique aqui para ver a versão em Inglês deste artigo: 286817

Submeter comentários

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com