destacados

Gabriel Da Silva

Portafolio del ilustrador y director de arte brasileño, aunque afincado en Madrid, Gabriel Da Silva.

B&W Helmut Newton

Selección de fotografías en blanco y negro de uno de los fotógrafos más conocidos de las últimas décadas, Helmut Newton.

Judith Erwes

Fotógrafa afincada en Londres con un estilo que combina la moda, el humor y la estética retro.

Jody Rogac

Nacida en Inglaterra y criada en Canadá, Jody Rogac en la actualidad vive y trabaja en Brooklyn. Sus trabajo ha obtenido diversos galardones.

Publicaciones

Función para eliminar los acentos con ASP

05/09/2005 00:00:00

Esta es una función para eliminar las tildes de una cadena de texto, lo cuál es bastante útil a la hora de hacer ciertas comparaciones de cadenas o para obtener resultados de búsqueda.

Función:

Function EliminarAcentos(texto)
dim i, s1, s2
s1 = "ÁÀÉÈÍÏÓÒÚÜáàèéíïóòúü"
s2 = "AAEEIIOOUUaaeeiioouu"
if len(texto) <> 0 then
  For i = 1 to Len(s1)
  texto = replace(texto,mid(s1,i,1),mid(s2,i,1))
next
  end if
  EliminarAcentos = texto
End Function

Uso:

EliminarAcentos("Texto de descripción") 
Páginas: 1
comentarioscomentarios