Jump to content
Fórum Script Brasil
  • 0

Variavel Dentro De Filter()


Alam
 Share

Question

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 to comment
Share on other sites

2 answers to this question

Recommended Posts

  • 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 to comment
Share on other sites

Join the conversation

You can post now and register later. If you have an account, sign in now to post with your account.

Guest
Answer this question...

×   Pasted as rich text.   Paste as plain text instead

  Only 75 emoji are allowed.

×   Your link has been automatically embedded.   Display as a link instead

×   Your previous content has been restored.   Clear editor

×   You cannot paste images directly. Upload or insert images from URL.

 Share

  • Forum Statistics

    • Total Topics
      149.8k
    • Total Posts
      646.7k
×
×
  • Create New...