|
| Accueil → WINDEV 25 → WX - Procedure Copy ou Localiza e Recorta a informação pesquisada se tem determinado texto em um bloco de informação |
| WX - Procedure Copy ou Localiza e Recorta a informação pesquisada se tem determinado texto em um bloco de informação |
| Débuté par adrianoboller, 10 aoû. 2015 23:33 - 3 réponses |
| |
| | | |
|
| |
Membre enregistré
3 657 messages
Popularité : +175 (223 votes) |
|
Posté le 10 août 2015 - 23:33 |
Procedure Copy(TextoGeral, TextoInicial, TextoFinal)
nPosicaoInicial, nPosicaoFinal is int = 0
nPosicaoInicial = PositionOccurrence(TextoGeral,TextoInicial,firstRank,FromBeginning) + Length(TextoInicial)
nPosicaoFinal = PositionOccurrence(TextoGeral,TextoFinal,firstRank,FromBeginning)
sRetorno is string = Middle(TextoGeral,nPosicaoInicial,nPosicaoFinal-nPosicaoInicial)
RESULT(sRetorno) |
| |
| |
| | | |
|
| | |
| |
Membre enregistré
3 657 messages
Popularité : +175 (223 votes) |
|
Posté le 10 août 2015 - 23:33 |
| |
| |
| | | |
|
| | |
| |
Membre enregistré
535 messages
Popularité : +14 (14 votes) |
|
Posté le 11 août 2015 - 00:06 |
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) |
| |
| |
| | | |
|
| | |
| |
Membre enregistré
535 messages
Popularité : +14 (14 votes) |
|
Posté le 11 août 2015 - 00:07 |
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)
Da Tag Uf , vai extrair 43 |
| |
| |
| | | |
|
| | | | |
| | |
|