Problema com Script scr_deltok [Resolvido]

Ver o tópico anterior Ver o tópico seguinte Ir em baixo

Problema com Script scr_deltok [Resolvido]

Mensagem por luxtrike em 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"


Última edição por luxtrike em Ter 01 Dez 2009, 03:10, editado 1 vez(es)

luxtrike

Número de Mensagens : 32
Idade : 33
Data de inscrição : 18/08/2009
Reputação : 0
Insignia 1 x 0 Insignia 2 x 0 Insignia 3 x 0
Prêmios
   :
   :
   :

Voltar ao Topo Ir em baixo

Re: Problema com Script scr_deltok [Resolvido]

Mensagem por Convidad em Sab 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.

Convidad
Convidado


Voltar ao Topo Ir em baixo

Re: Problema com Script scr_deltok [Resolvido]

Mensagem por luxtrike em Ter 01 Dez 2009, 03:09

muito obrigado Capitão Commando Surprised

luxtrike

Número de Mensagens : 32
Idade : 33
Data de inscrição : 18/08/2009
Reputação : 0
Insignia 1 x 0 Insignia 2 x 0 Insignia 3 x 0
Prêmios
   :
   :
   :

Voltar ao Topo Ir em baixo

Re: Problema com Script scr_deltok [Resolvido]

Mensagem por Conteúdo patrocinado Hoje à(s) 05:44


Conteúdo patrocinado


Voltar ao Topo Ir em baixo

Ver o tópico anterior Ver o tópico seguinte Voltar ao Topo

- Tópicos similares

 
Permissão deste fórum:
Você não pode responder aos tópicos neste fórum