Postada em 05/02/2010 17:07 hs
Juliana, sem um padrao fica muito dificil fazer essa "validacao", vou tentar lhe ajudar na questaoo do "PRET", ajuda conceitual pois no momento estou sem o vb e minha memoria um pouco falha
para saber a posicao de uma caracter ou palavra vc usa o INSTR, se nao me engano, de posse da posicao do comeco da palavra "PRET" vc usa o mid para tira-la da frase.
nisso vc teria que fazer uma a uma
exemplo nao testado:
dim i as integer 'posicao
dim VsTexto as string 'texto sem "pret"
dim frase as string 'frase original
i = instr(frase, "PRET")
'aqui o resultado deve ser i = 13
Vstexto = mid(frase,0,i-1) & mid(frase,i+4, len(frase)
bom creio que seja isso, mas como dito sem padroes fica dificil
ex: preto, pret, PRT, etc
Atenciosamente,
Ass. Paulo Silva
Analista de Sistemas
Maceio Alagoas
|
