tem como passar uma função de VB para JS?

[-rafael- 1]

olá,

 

utilizo as funções abaixo no access, atravez do VB:

 

Function TeclasSemNumeros(CodAscii As Integer) As Integer
' Esta função devolve a digitação em caixas de texto sem os números, e todas as letras em maiúsculas e sem acentos.
' Para chamar utilize no evento "Ao Pressionar Tecla" da caixa de texto ou combinação: KeyAscii = TeclasSemNumeros(KeyAscii)
    CodAscii = Asc(UCase(Chr(CodAscii)))
    Select Case CodAscii
        Case 192 To 198
            CodAscii = 65
        Case 199
            CodAscii = 67
        Case 200 To 203
            CodAscii = 69
        Case 204 To 207
            CodAscii = 73
        Case 209
            CodAscii = 78
        Case 210 To 214
            CodAscii = 79
        Case 217 To 220
            CodAscii = 85
        Case 221
            CodAscii = 89
        Case 33 To 39, 42 To 64, 91 To 255
            CodAscii = 0
    End Select
    TeclasSemNumeros = CodAscii
End Function

 

 

Function TiraAcento(StrAcento As String) As String

Dim I
Dim Letra 'As String
Dim Texto 'As String

 For I = 1 To Len(StrAcento)
  Letra = Mid(StrAcento, I, 1)
  Select Case Letra
   Case "Á", "À", "Ã", "Â", "Ä", "á", "à", "ã", "â", "ä"
       Letra = "A"
   Case "É", "Ê", "Ë", "È", "é", "ê", "ë", "è"
       Letra = "E"
   Case "Í", "Ï", "Ì", "Î", "í", "ï", "ì", "î"
       Letra = "I"
   Case "Ó", "Ô", "Õ", "Ö", "Ò", "ó", "ô", "õ", "ö", "ò"
       Letra = "O"
   Case "Ú", "Ù", "Ü", "Û", "ú", "ù", "ú", "û", "ü"
       Letra = "U"
   Case "Ç", "ç"
       Letra = "C"
   Case "Ñ", "ñ"
       Letra = "N"
  End Select
  Texto = Texto & Letra
 Next
  
 Texto = UCase(Texto)
  
 TiraAcento = Texto

End Function

 

 

Function RemoveEspacos()
On Error Resume Next

Dim x As Control
Set x = Screen.ActiveControl

    x.Value = Replace(x.Value, "      ", " ")
    x.Value = Replace(x.Value, "     ", " ")
    x.Value = Replace(x.Value, "    ", " ")
    x.Value = Replace(x.Value, "   ", " ")
    x.Value = Replace(x.Value, "  ", " ")

End Function

a primeira devolve a digitação sem os acentos, cedilhas, etc... e com todas as letras em maiusculo. uso ela no evento AoPrescionarTeclas

a segunda remove os acentos. uso no evento ApósAtualizar.

e a terceira remove o excesso de espaço. tambem uso no evento ApósAtualizar.

 

Teria como adaptar essas funçoes para o JS?

 

obrigado

[klonder 14]

Tem sim. A sintaxe não é muito distinta. Entretanto, não será qualquer pessoa que virá entregar o código pronto...