Ver Mensaje Individual
  #3 (permalink)  
Antiguo 10/12/2008, 09:38
Laufwerk
 
Fecha de Ingreso: marzo-2007
Mensajes: 538
Antigedad: 17 aos, 2 meses
Puntos: 0
Respuesta: .NET Basic - Funcn quitar Acentos

esto es precisamente lo que estaba buscando y he encontrado un ejemplo
Cdigo:
Tengo una funcion para eliminar acentos con .NET FrameWork 2.0 :

 

Imports System
Imports System.Text
Imports System.Text.RegularExpressions.Regex

 

Dim reg As RegularExpressions.Regex

Dim textoOriginal As String = "Mañana será otro d*a"

'transformación UNICODE

Dim textoNormalizado As String = textoOriginal.Normalize(NormalizationForm.FormD)

'coincide todo lo que no sean letras y números ascii o espacio
'y lo reemplazamos por una cadena vac*a.

reg = New RegularExpressions.Regex("[^a-zA-Z0-9 ]")
Dim textoSinAcentos As String = reg.Replace(textoNormalizado, "")
         
Debug.WriteLine(textoSinAcentos)
'muestra 'Manana sera otro dia'

 

 

El problema es que no doy con una que pueda utilizar con FrameWoek 1.*, solo consigo esto:

Dim ConSignos As String ="á äéèë*ìïóòöúùüÁÀÄÉÈËÍÌÏÓÒÖÚÙÜçÇ"
Dim SinSignos As String ="aaaeeeiiiooouuuAAAEEEIIIOOOUUUçÇ"
Dim v as integer
Dim texto as string

for(v=0;v<SinSignos.Length;v++) {

 Dim i As string=ConSignos.Substring(v,1)
 Dim j As string=SinSignos.Substring(v,1)
 
 texto=texto.replace(i,j)
}

Sabe alguien de otra funcion??
Voy a comprobar a ver que es lo que hace esto.

Pero si alguien la la tiene cuens que nos la mande!!

Saludos