Tu comunidad de Seguridad Informatica

Para ver Todo el contenido del foro es necesario estar Registrado!
Antes de comentar o Aportar es Obligado Leer Las: Reglas | Rules
Ya Esta Disponible al publico "LeProject" el Videojuego del Foro Click Aquí Para Ver el Post.
Pitbull Security Labs "Extras" Esta Disponible! [ENTRA]

No estás conectado. Conéctate o registrate

Ver el tema anterior Ver el tema siguiente Ir abajo  Mensaje [Página 1 de 1.]

1AX 

avatar
Moderadores
Moderadores

Ver perfil de usuario
el Vie Jun 03, 2011 10:12 pm
Código:
Public Function aLTrim(A As String)
On Error Resume Next
'============================================================'
' AX: aLTrim                                                '
' Uso: Call aLTrim("  Texto")                              '
'============================================================'
Dim b As Long
Dim c As Long
If Len(A) = 0 Then Exit Function
For b = 1 To Len(A) Step 1
If Mid(A, b, 1) <> Chr(32) Then c = b: Exit For
Next b
aLTrim = Mid(A, c, Len(A) - (c - 1))
End Function
La función aLTrim elimina los espaciones en blanco en la parte izquierda de la String, Cadena, o Texto.
Si el Texto fuera: " Hola mundo" entonces el resultado sería "Hola mundo"
Código:
Public Function aRTrim(A As String)
On Error Resume Next
'============================================================'
' AX: aRTrim                                                '
' Uso: Call aRTrim("Texto  ")                              '
'============================================================'
Dim i As Long
Dim k As Long
If Len(A) = 0 Then Exit Function
For i = Len(A) To 1 Step -1
If Mid(A, i, 1) <> Chr(32) Then k = i: Exit For
Next i
aRTrim = Mid(A, 1, Len(A) - (Len(A) - k))
End Function
La función aRTrim elimina los espacios vacíos de una cadena que se encuentren a la derecha...Si el texto fuese "Hola mundo " entonces sería "Hola mundo".
Código:
Public Function aTrim(A As String)
On Error Resume Next
'============================================================'
' AX: aTrim                                                  '
' Uso: Call aTrim("  Texto  ")                            '
'============================================================'
Dim f As Long
Dim g As Long
Dim h As Long
Dim i As String
If Len(A) = 0 Then Exit Function
For f = 1 To Len(A) Step 1
If Mid(A, f, 1) <> Chr(32) Then g = f: Exit For
Next f
i = Mid(A, g, Len(A) - (g - 1))
For f = Len(i) To 1 Step -1
If Mid(i, f, 1) <> Chr(32) Then h = f: Exit For
Next f
aTrim = Mid(i, 1, Len(i) - (Len(i) - h))
End Function
Y por último la función aTrim hace lo mismo que las otras dos anteriores funciones simultaneamente.

Ver el tema anterior Ver el tema siguiente Volver arriba  Mensaje [Página 1 de 1.]

Permisos de este foro:
No puedes responder a temas en este foro.