|
Inicio → 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 |
Iniciado por adrianoboller, 10,ago. 2015 23:33 - 3 respuestas |
| |
| | | |
|
| |
Miembro registrado 3.661 mensajes Popularité : +175 (223 votes) |
|
Publicado el 10,agosto 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) |
| |
| |
| | | |
|
| | |
| |
Miembro registrado 3.661 mensajes Popularité : +175 (223 votes) |
|
Publicado el 10,agosto 2015 - 23:33 |
| |
| |
| | | |
|
| | |
| |
Miembro registrado 535 mensajes Popularité : +14 (14 votes) |
|
Publicado el 11,agosto 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) |
| |
| |
| | | |
|
| | |
| |
Miembro registrado 535 mensajes Popularité : +14 (14 votes) |
|
Publicado el 11,agosto 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 |
| |
| |
| | | |
|
| | | | |
| | |
|