WX - Procedure Copy ou Localiza e Recorta a informação pesquisada se tem determinado texto em um bloco de informação - Tag/Xml

---

---

Video - Copy ou Localiza informacao Texto

Link do forum windev

---

EDT_TextoGeral="<ide><cUF>43</cUF><cNF>00017745</cNF><natOp>5101 Venda de producao do estabelecimento - 5101 VENDA</natOp><indPag>1</indPag>"
EDT_textoInicial="<cUF>"
EDT_textoFinal="</cUF>"


nPosicaoInicial, nPosicaoFinal is int = 0
nPosicaoInicial = PositionOccurrence(EDT_TextoGeral,EDT_textoInicial,firstRank,FromBeginning) + Length(EDT_textoInicial)
nPosicaoFinal = PositionOccurrence(EDT_TextoGeral,EDT_textoFinal,firstRank,FromBeginning)
EDT_Resultado = Middle(EDT_TextoGeral,nPosicaoInicial,nPosicaoFinal-nPosicaoInicial)

---

---

---

---