Função para leitura de arquivos XML

Registrado: 23/03/13 Mensagens: 87

Como eu vi que no 3D Game Builder faltam muitas funções, eu decidi adicionar algumas por conta própria:

Leitura de arquivos XML: Completo

Leitura de arquivos JAVASCRIPT: Em Planejamento

Leitura de arquivos HTML: Em Planejamento

Bom hoje vou mostrar o meu script para leitura de arquivos XML:

	Citação:
	A função get_xml retorna um valor em string de uma tag XML. O parâmetro FileName especifica o nome do arquivo XML. O parâmetro Start_Tag especifica a tag de inicio. O parâmetro End_Tag especifica a tag de final.

Declaração:

	Código:
	function get_xml(Filename : String; Start_Tag : String; End_Tag : String) : String;

Código fonte:

Código:

{
-------------------------------------------------------
SCRIPT PARA LEITURA DE TAGS XML
AUTOR: Sergio
SITE: www.hackers-destrutivos.blogspot.com.br
FAVOR DEIXAR OS CRÉDITOS!!!
-------------------------------------------------------
}

function get_xml(Filename:string;start_tag:string;end_tag:string):string
begin

var texto : string;
texto := LoadStringFromFile(FileName);

var tamanho_tag : integer;
tamanho_tag := Length(start_tag)-1;

var inicio : integer;
inicio := Pos(start_tag, texto)+tamanho_tag;

//Deleta tudo antes do inicio:
Delete(texto, 1, inicio);

//Define o tamanho do texto:
var tamanho_texto : integer;
tamanho_texto := Length(texto);

//Define o fim da tag:
var fim : integer;
fim := Pos(end_tag, texto);

//Deleta tudo depois do fim:
Delete(texto, fim, tamanho_texto-fim+1);

Result := texto;
end;

Exemplos:
Código XML descrevendo um currículo:

Código:

<?xml version="1.0" encoding="UTF-8"?>
<curriculo>
<InformacaoPessoal>
<DataNascimento>23-07-68</DataNascimento>
<Nomecompleto>...</Nomecompleto>
<Contato>
<Morada>
<Rua>R.Topazio</Rua>
<Num>111</Num>
<Cidade>Porto</Cidade>
<Pais>Portugal</Pais>
</Morada>
<Telefone>9999-9999</Telefone>
<CorreioEletronico>email@email.com</CorreioEletronico>
</Contato>
<Nacionalidade>Portuguesa</Nacionalidade>
<Sexo>M</Sexo>
</InformacaoPessoal>
<objetivo>Atuar na area de TI</objetivo>
<Experiencias>
<Experiencia>
<Cargo>Suporte técnico</Cargo>
<Empregador>Empresa, Cidade - Estado</Empregador>
</Experiencia>
</Experiencias>
<Formacao>Superior Completo</Formacao>
</curriculo>

Utilização:
Caso queira pegar o telefone:

	Código:
	get_xml('Curriculo.xml', '<Telefone>', '</Telefone>');

Registrado: 18/10/11 Mensagens: 369 Localização: Passos,MG

Muito bom!

_________________
Boa sorte na criação de jogos!

Alimente meu dragão!

(\__/)
(='.'=)Este é um coelinho. Copie e cole ele em sua
(")_(")assinatura para ajudá-lo a dominar o mundo!

Registrado: 23/03/13 Mensagens: 87

Desculpa ter ressuscitado esse tópico.
Alguém poderia deleta ele por favor?