//Leitura de XML
NameXMLFile is string
NameXMLFile = fSelect("*.*", "File.xml", "Arquivo XML", "Xml file (*.xml)"+TAB+"*.xml"+CR+"All"+TAB+"*.*")

// Carregando o arquivo XML
XMLSource is string = fLoadText(NameXMLFile)
Result1 is string
i is int = 1

// Extraindo a TAG <CAMPO NOME> para uma variavel
Result1 = XMLExtractString(XMLSource, "<CAMPO NOME", i)
Info(Result1)

// Percorrendo o XML em busca de outra TAG
WHILE Result1 <> ""
Trace(Result1)
i = i + 1
Result1 = XMLExtractString(XMLSource, "<CAMPO NOME", i)
END