Problema com Script scr_deltok [Resolvido]

por luxtrike Qui 26 Nov 2009, 21:09

Olá amigos da GMBR

Eu estou fazendo um script para remover palavras de uma frase, eu posso dizer que eu consegui fazer 80% do trabalho, mas um problema que eu não consigo resolver apareceu aqui e o que acontece é que o script não remove a ultima palavra na frase, a não ser que a frase tenha apenas uma palavra, fora isso ela funciona da maneira que eu quero.

Abaixo segue o code do script que deve ser nomeado como: scr_deltok

Código:: //script_execute(scr_deltok,str,tok,numtok,char) // str [string] texto // tok [integer] posicao inicial do token // numtok [integer] quantos tokens serao removidos // char [integer] valor ascii do caractere // // ex: script_execute(scr_deltok,"item1 item2 item3",1,2,32) // o exemplo acima ira retornar: "item3" str=argument0 tok=argument1 ntok=argument2 char=argument3 tokens=string_count(chr(char),str)+1 if (tokens = 1) and (tok = 1) {return ""} else { if (string_length(str) > 0) and (tok > 0) and (tok <= tokens) and ((tok-1)+ntok <= tokens) { str=str+chr(char) tt=tok+ntok if (tt > tokens) {ntok=tokens-tok} ntok+=1 cn=1 ct=string_length(str) current_token=1 cstart=0 cend=0 for (cn=1;cn<=ct;cn+=1) { n=string_char_at(str,cn) if (n = chr(char)) {current_token+=1} if (current_token = tok) and (cstart = 0) {cstart=cn;current_token=1} if (cstart > 0) and (current_token >= ntok) { cend=cn-cstart cn=ct+1 r=string_delete(str,cstart,cend) f=string_copy(r,1,1) if (f = chr(char)) {rr=string_replace(r,chr(char),"")} else {rr=r} ct=string_length(rr) l=string_copy(rr,ct-1,1) rr=string_copy(rr,1,ct-1) return rr } } } else {return str} }

Mais exemplos do script acima:

ex: script_execute(scr_deltok,"item1 item2 item3",1,1,32)
o exemplo acima ira retornar: "item2 item3"

Aqui está o problema!
ex: script_execute(scr_deltok,"item1 item2 item3",3,1,32)
o exemplo acima ira retornar: "item1 item2 item3"
mas deveria retornar: "item1 item2"

ex: script_execute(scr_deltok,"item1,item2,item3,item4",2,1,44)
o exemplo acima ira retornar: "item1,item3,item4"

ex: script_execute(scr_deltok,"item1,item2,item3,item4",2,2,44)
o exemplo acima ira retornar: "item1,item4"

por Convidad Sáb 28 Nov 2009, 02:45

Eu acredito que o problema é que o script não encontra o último delimitador (token). Se você chamar o script adicionando um char que seja token ao final da string, ele funciona.

Editado

É isso mesmo. Vá até a linha 15 e substitua por esta (logo depois de assimilar os argumentos às variáveis):

Código:: tokens=string_count(chr(char),str + chr(char)) +1

Obs: (É só uma dica [:¬)])
Você pode chamar seus scripts apenas pelo nome e os argumentos. Por exemplo:

Código:: scr_deltok("item1,item2,item3,item4",2,1,44)

Boa sorte.
Capitão Commando.

por luxtrike Ter 01 Dez 2009, 03:09

muito obrigado Capitão Commando Surprised

por Conteúdo patrocinado

Problema com Script scr_deltok [Resolvido]

Problema com Script scr_deltok [Resolvido]

Re: Problema com Script scr_deltok [Resolvido]

Re: Problema com Script scr_deltok [Resolvido]

Re: Problema com Script scr_deltok [Resolvido]