Ir para conteúdo
Fórum Script Brasil
  • 0

Variavel Dentro De Filter()


Alam

Pergunta

Olá pessoal, por favor, peço que me ajudem!!! é uma bobagem danada mas que eu estou apanhando pra caramba.

Fiz uma função pra retornar o mês de uma string de data específica pois não encontrei em lugar nenhum esse padrão de escrita.

Function retornaMes(valor)
    Meses =  array("jan,01","feb,02","mar,03","apr,04","may,05","june,06","july,07","aug,08","sept,09","oct,10","nov,11","dec,12")
    Mes = Trim(Mid(valor,8,4))
    AchaMes = filter(Meses,mes)
    mes = right(AchaMes(0),2)
    retornaMes = Mes
End function

Response.Write(retornaMes("Mon, 24 Sep 2007 17:58:39 -0300"))

Com esse código estou tendo como resposta esse erro...

Microsoft VBScript runtime error '800a0009'

Subscript out of range: '[number: 0]'

/data.asp, line 6 --> mes = right(AchaMes(0),2)

quando eu substituo a variavel "mes" por uma string entre aspas duplas ex."sep" na linha (AchaMes = filter(Meses,mes)), deixando como (AchaMes = filter(Meses,"sep'))ele funciona belezinha e me retorna o que eu quero. É como se ele não tivesse encontrando no array o conteúdo da variável "mes" por algum motivo... mas até agora não descobri.

Por favor Me Ajuuuuuuuuuuuudem!!

Agradeço muito

Link para o comentário
Compartilhar em outros sites

2 respostass a esta questão

Posts Recomendados

  • 0

fiz uns testes aqui, e uns debugs rsss

o filter não esta retornando nenhum valor porque ele procura o valor exato dentro do array

neste caso está procurando Sep e no seu array está sept,09

e é case sensitive.

da uma olhada! ae

<script language="VBScript">
<!--
'Function retornaMes(valor)
    valor = "Mon, 24 sep 2007 17:58:39 -0300"
    Meses = array("jan","feb","mar","apr","may","jun","jul","aug","sep","oct","nov","dec")
    For i=0 to Ubound(Meses)
        document.Write(Meses(i) & "<br />") 
    Next
    Mes = Trim(Mid(valor,9,3))
    document.write("Var Mes = " & Mes & "<br />")
    AchaMes = filter(Meses,Mes,true)
    document.write("Var AchaMes = " & AchaMes(0) & "<br />")
    'vmes = right(AchaMes(0),2)
    'retornaMes = vmes(1)
'End function
'document.Write(retornaMes("Mon, 24 Sep 2007 17:58:39 -0300"))
//-->
</script>

[+] http://www.w3schools.com/vbscript/func_filter.asp

Link para o comentário
Compartilhar em outros sites

Participe da discussão

Você pode postar agora e se registrar depois. Se você já tem uma conta, acesse agora para postar com sua conta.

Visitante
Responder esta pergunta...

×   Você colou conteúdo com formatação.   Remover formatação

  Apenas 75 emoticons são permitidos.

×   Seu link foi incorporado automaticamente.   Exibir como um link em vez disso

×   Seu conteúdo anterior foi restaurado.   Limpar Editor

×   Você não pode colar imagens diretamente. Carregar ou inserir imagens do URL.



  • Estatísticas dos Fóruns

    • Tópicos
      152k
    • Posts
      651,8k
×
×
  • Criar Novo...