Loop para percorrer uma String

[notax 0]

Pessoal, bom dia...

 

Recebo uma string conforme o exemplo abaixo (ela tem estrutura de xml):

 

str = "<?xmlversion="1.0"encoding="ISO-8859-1"?><POSICOES><POSICAO><SERIAL>4258991</SERIAL><DATA_HORA>2010-11-0411:04:06</DATA_HORA></POSICAO><POSICAO><SERIAL>4258992</SERIAL><DATA_HORA>2010-11-0412:05:07</DATA_HORA></POSICAO><POSICAO><SERIAL>4258993</SERIAL><DATA_HORA>2010-11-0413:06:08</DATA_HORA></POSICAO></POSICOES>"

 

Depois usando esta função consigo pegar os valores que estão dentro dos "nós":

 

function pegavalor(str,tag)
inicio = instr(str,"<"&tag&">")
fim = instr(str,"</"&tag&">")
caminha = fim-inicio
pegavalor = Mid(str, inicio + len(tag)+2, caminha-len(tag)-2)
end function

serial = pegavalor(str,"SERIAL")
data_hora = pegavalor(str,"DATA_HORA")

 

Só que o que acontece é que os valores apenas do primeiro grupo de nós, ou seja, apenas os conteúdos do primeiro nó "posicao"... como faço para pegar os valores de todos os nós até o fim da string "xml"?

 

Valewssssssss

[@fabiosantosrj 0]

da uma lida nesse artigo que eu fiz. É exatamente o que você está querendo.

 

http://whmcs.alfaserver.com.br/knowledgebase.php?action=displayarticle&id=11

[xanburzum 169]

existe um artigo que coloquei no lab. de script, onde você tem várias funções para manipulação de string, pode te ajudar

[notax 0]

Desculpem a demora galera...

 

@fabiosantosrj: não é bem o que preciso, repare, na real o que tenho é uma string que imita um XML mas não um XML de verdade, saca?

 

xanburzum, valew o retorno... mas assim, lá no LAB de script não encontrei uma forma de fazer pesquisa dentro do próprio lab, daí fica quase impossível de achar esse script que indicou... tem o link direto dele?

 

Valewwwwwwwss

[xanburzum 169]

procure por funções para manipular string´s, e coloque sua função dentro de um For each