PEGAR TEXTO EM UMA STRING

DOIDO.NNF 12/12/2003 11:04:42
#783
Pessoal,,como q faço pra pegar (localizar) um texto de uma string ate a outra,exemplo: tenho minha string :

td meu texto /td

Precizo fazer um função para pegar o texto q esta entre o td e o /td...
Alguem pode me ajudar?
USUARIO.EXCLUIDOS 12/12/2003 11:45:22
#790
Resposta escolhida
Se você vai usar "td" como marcador inicial e "/td" como final, então:

inicio = instr(todotexto, "td") 'dá a posição da primeira ocorrência de "td" em todo texto
fim = instr(todotexto, "/td")
meutexto = mid(todotexto, inicio, fim - inicio)

Se você tiver outros intervalos "td /td", então isso não vai funcionar, pois você precisa informar a posição a partir da qual a rotina deverá procurar pelo próximo marcador "td". Para isso declare uma variável pública (por exemplo: "Public incremento as long) e defina incremento = 0 no load.

Então:

todotexto = right(todotexto, len(todotexto - incremento)
inicio = instr(todotexto, "td") 'dá a posição da primeira ocorrência de "td" em todo texto
fim = instr(todotexto, "/td")
incremento = fim
meutexto = mid(todotexto, inicio, fim - inicio)


Não testei, mas a lógica é essa.
Tópico encerrado , respostas não são mais permitidas