funcion para eliminar acentos

tema enviado por PatriciaP en Visual Basic .NET
tema iniciado el 20/12/2006

Hola!!

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??

y para SQL??