Funciones.bas

  1. Attribute VB_Name = "Funciones"
  2. Option Explicit
  3.  
  4. Public Function EmpiezaPor(ByVal palabra As String, ByVal prefijo As String) As Boolean
  5.  
  6. If Left(UCase(palabra), Len(prefijo)) = UCase(prefijo) Then
  7. EmpiezaPor = True
  8. Else
  9. EmpiezaPor = False
  10. End If
  11.  
  12. End Function
  13.  
  14.  
  15. Public Function Compara(ByVal palabra1 As String, ByVal palabra2 As String) As Boolean
  16.  
  17. If UCase(palabra1) = UCase(palabra2) Then
  18. Compara = True
  19. Else
  20. Compara = False
  21. End If
  22.  
  23. End Function
  24.  
  25. Public Function QuitarAcentos(ByVal texto As String) As String
  26. Const ACENTOS = "ÁÉÍÓÚÀÈÌÒÙÂÊÎÔÛÄËÏÖÜ"
  27. Const SIN_ACENTOS = "AEIOU"
  28.  
  29. Dim indice As Integer
  30. Dim caracter As String
  31. Dim posicion As Integer
  32.  
  33. texto = UCase(texto)
  34. For indice = 1 To Len(texto)
  35. caracter = Mid(texto, indice, 1)
  36. posicion = InStr(ACENTOS, caracter)
  37. If posicion > 0 Then
  38. posicion = ((posicion - 1) Mod 5) + 1
  39. Mid(texto, indice, 1) = Mid(SIN_ACENTOS, posicion, 1)
  40. End If
  41. Next
  42. QuitarAcentos = texto
  43. End Function
  44.  
  45. Public Function Contiene(ByVal contenedor As String, ByVal contenido As String) As Boolean
  46. 'No se diferencia mayúsculas de minúsculas ni acentos
  47. 'Ejemplo: ? contiene("barcelona","ELO") --> true
  48. 'Ejemplo: ? contiene("café", "e") --> true
  49.  
  50. If InStr(QuitarAcentos(contenedor), QuitarAcentos(contenido)) > 0 Then
  51. Contiene = True
  52. Else
  53. Contiene = False
  54. End If
  55.  
  56. 'If InStr(UCase(contenedor), UCase(contenido)) > 0 Then
  57. ' Contiene = True
  58. 'Else
  59. ' Contiene = False
  60. 'End If
  61.  
  62. End Function
  63.  
  64.  

Proinf.net