Comunidad Gambas-es

alessandri 20-12-2021, 21:48

Hola amigos.
¿Alguien sabe como quitar los acentos de una cadena?
Yo intente con esto y no funciona:

Código:
'{Funcion quita los acentos de las vocales}

Public Function SinAcento(Cadena As String) As String

    Dim tm As Integer

    Dim l As Single

    Dim z As String

    Dim final As String

    tm = Len(cadena)

    For l = 1 To tm

        z = Mid(cadena, l, 1)

        Select Case z

            Case z = "á"

               z = "a"

            Case z = "é"

               z = "e"

            Case z = "í"

               z = "i"

            Case z = "ó"

               z = "o"

            Case z = "u"

               z = "ú"

        End Select

        final = final & z

    Next

    Return Trim(final)

End

Saludos.

Aplicaciones/Fragmentos de Código Respuestas 8

Redireccionar al foro antiguo en caso de no encontrarse en el nuevo

Shell 20-12-2021, 20:01

Buenas!.

Tenemos dos foros, el antiguo y el nuevo. El antiguo foro se llamaba como el actual.
Lo que cambia es:

Por ejemplo, pongamos este caso:

Dónde Ubicar Nuestros Archivos En Una Aplicación De Gambas

Lógicamente no se encuentra en el foro nuevo, pertenece al antiguo. Con lo que no se va a encontrar.

Así que si de:

https://www.gambas-es.org/

Lo cambiamos por:

https://foro.gambas-es.org/

Y añadimos después de la barra:

viewtopic.php?t=5732&p=34021#p34021

( Curiosamente ese trozo ya deriva al antiguo )

Entonces lo que quería decir es si es posible que el servidor en vez de enviar al navegador "no existe" en el actual, que compruebe en el antiguo a ver si se encuentra en
este y mostrarlo. Es prácticamente una sustitución. ¿ Eso es posible de hacer fácilmente ?. Comprobaría si existe el tópico en ambos foros y en caso de no existir
pues recibir el mensaje de 404.

Saludos

Sobre gambas-es.org Respuestas 2

El Mouse Vertical que evita el síndrome del túnel carpiano