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 Abr 22, 2011 9:49 pm
Código:
Public Function aEspacio(A As String, B As Long) As String
On Error Resume Next

'============================================================'
' AX: aEspacio                                              '
' Uso: Call aEspacio (Texto, # de espacios)                  '
'============================================================'

Dim i As Long
Dim c As Long
Dim S() As String

If A = "" Then Exit Function
If Not B > 0 Then Exit Function

c = 1

For i = 1 To Len(A)
If Mid(A, i, 1) = Chr(13) Then c = c + 1
Next i

For i = 0 To c
S() = Split(A, Chr(13) + Chr(10))
aEspacio = aEspacio & Space(B) & S(i) & vbNewLine
Next i
End Function

Saludos...El funcionamiento de esta función es algo simple; Primero el usuario ha de seleccionar el texto con el que se trabajará y después insertará el número de espacios.

Un ejemplo con un total de espacios igual a 10:
Código:
Google
Windows
Explorer

Y el resultado sería:
Código:
          Google
          Windows
          Explorer

Es muy útil para crear los posts cuando no se tienen las herramientas adecuadas e incluso serviría para arreglar o acomodar los grandes textos sin demorarse tanto.



[Tienes que estar registrado y conectado para ver este vínculo]

Quisiera mejorar esta función un poco más, pero mientras tanto incluyo un proyecto que utiliza esta función.

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.