¿ No existe un método algo más rápido ?.
Tengo una lista de nombres y quiero solo seleccionar solo los que tienen tilde.
Creo que es la forma correcta de hacerlo con Instr.
Public Function EncontrarTildes(nombre As String) As Boolean
Dim x As Integer
Dim vocales As String = "áéíóúÁÉÍÓÚ"
Dim encontrada As Boolean
x = 1
While (encontrada = False And (x <= String.Len(vocales)))
If String.InStr(nombre, String.Mid(vocales, x, 1)) > 0 Then encontrada = True
Inc x
Wend
Return encontrada
End
Dim x As Integer
Dim vocales As String = "áéíóúÁÉÍÓÚ"
Dim encontrada As Boolean
x = 1
While (encontrada = False And (x <= String.Len(vocales)))
If String.InStr(nombre, String.Mid(vocales, x, 1)) > 0 Then encontrada = True
Inc x
Wend
Return encontrada
End
Como sabéis es posible usar un bucle for y salir de este cuando haya coincidencia pero
he leído que ciertos programadores no ven bien el uso instrucciones como "break"
para salir del bucle, por eso usé una variable boolean con un While.
Saludos