Funciones Típicas (AñadirBarra, LimpiarCadena, etc…)

Aquí están las más sencillas y las más usadas. No creo que sea necesario mucha explicación de ellas.

Public Function AñadirBarra(Path As String) As String
     ' Agrega una "/" al final de Path si no hay una. Esto facilita
     ' más tarde la concatenación de subclaves.
     If Mid(Path, Len(Path), 1)  "/" Then
          AñadirBarra = Path & "/";
     Else
          AñadirBarra = Path
     End If
End Function

Function Limpiar_Cadena(Cadena As String, Caracter As String) As String
     ' Quita de Cadena los caracteres Caracter
     Dim I As Integer, Res As String

     Res = Cadena
     Do While InStr(Res, Caracter)
          I = InStr(Res, Caracter)
          Res = Left$(Res, I - 1) & Mid$(Res, I + 1)
     Loop
     Limpiar_Cadena = Res
End Function
Anuncios

Responder

Introduce tus datos o haz clic en un icono para iniciar sesión:

Logo de WordPress.com

Estás comentando usando tu cuenta de WordPress.com. Cerrar sesión /  Cambiar )

Google photo

Estás comentando usando tu cuenta de Google. Cerrar sesión /  Cambiar )

Imagen de Twitter

Estás comentando usando tu cuenta de Twitter. Cerrar sesión /  Cambiar )

Foto de Facebook

Estás comentando usando tu cuenta de Facebook. Cerrar sesión /  Cambiar )

Conectando a %s