n_tamanho_adicionais is int=Length(EDT_DADOS_aDICIONAIS) n_tamanho_campo is int=Length("OC 1") n_posicao is int=Position(EDT_DADOS_aDICIONAIS," OC 1 ",1,FromBeginning) s_transfere is string=EDT_DADOS_aDICIONAIS[[1 TO n_posicao]] _restante is string=EDT_DADOS_aDICIONAIS[[n_posicao+5 TO n_tamanho_adicionais]]
EDT_DADOS_aDICIONAIS=s_transfere+"OC 200" // AQUI ESTOU ACRESCENTANDO NO MEIO DO TEXTO O QUE VOU SUBSTITUIR // HERE I AM ADDING INTO THE TEXT WHAT YOU WILL REPLACE // AQUÍ ESTOY AÑADIDO EN EL MEDIO DEL TEXTO LO QUE VUELVE SUSTITUIR
IF _restante<>"" THEN EDT_DADOS_aDICIONAIS+=" "+NoSpace(_restante) END
// BLOG COM VIDEO E EXEMPLO EXTRAIR TEXTO
http://windevdesenvolvimento.blogspot.com.br/2017/07/aula-1226-windev-string-38-extrair-texto.html
https://www.youtube.com/watch?v=chR3Od93osQ
|