moduloGenerico_2009_05_12.bas

  1. Attribute VB_Name = "moduloGenerico_2009_05_12"
  2. Option Explicit
  3.  
  4. 'Módulo genérico
  5. '2009-V-12 <fco@proinf.net>
  6.  
  7. '------------------------------------------------
  8. ' FUNCIONES PUBLICAS
  9. '------------------------------------------------
  10.  
  11. Public Function dejarAlgunosCaracteres( _
  12. ByVal texto As String, _
  13. ByVal caracteresValidos As String _
  14. ) As String
  15. 'Elimina del texto todos los caracteres que no estén incluidos en caracteres válidos
  16. 'Ej: "AB1ACD3B" --"ABC"--> "ABACB"
  17. '2009-V-12
  18.  
  19. Dim lista As Variant
  20. Dim indice As Integer
  21. Dim caracter As String
  22.  
  23. texto = Trim(texto)
  24. ReDim lista(Len(texto) - 1)
  25. For indice = 1 To Len(texto)
  26. caracter = Mid(texto, indice, 1)
  27. If InStr(caracteresValidos, caracter) Then
  28. lista(indice - 1) = caracter
  29. End If
  30. Next
  31. dejarAlgunosCaracteres = Join(lista, "")
  32.  
  33. End Function
  34.  
  35. Public Function CaracteresEnArray(ByVal texto As String) As Variant
  36. 'Convierte los caracteres de un texto en un array
  37. 'Ej: ? join(CaracteresEnArray("hola"),";") --> "h;o;l;a"
  38. '2009-V-12
  39. Dim lista As Variant
  40. Dim indice As Integer
  41. ReDim lista(Len(texto) - 1)
  42. For indice = 1 To Len(texto)
  43. lista(indice - 1) = Mid(texto, indice, 1)
  44. Next
  45. CaracteresEnArray = lista
  46. End Function
  47.  

Proinf.net