comment
IRC Chat
play_arrow
Este sitio utiliza cookies propias y de terceros. Si continúa navegando consideramos que acepta el uso de cookies. OK Más Información.

Funciones para formatear texto

  • 0 Respuestas
  • 1197 Vistas

0 Usuarios y 1 Visitante están viendo este tema.

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5331
  • Actividad:
    45%
  • Reputación 30
  • ANTRAX
    • Ver Perfil
    • Underc0de
    • Email
  • Skype: underc0de.org
  • Twitter: @Underc0de
« en: Julio 26, 2010, 12:39:17 pm »
Las funciones siguientes lo realizan de una forma rápida y eficazmente.
PADL -> Inserta los caracteres por la izquierda
PADR -> Inserta los caracteres por la derecha
PADC -> Inserta caracteres por derecha e izquierda -> centra el texto

Parámetros:
CADENA: String que queremos formatear
Longitud: Longitud final del string después de formatearlo
Caracter: Caracter que se desea utilizar para rellenar hast ala longitud anterior

Uso:
- Ej. Código artículo nº 46 pero que debería mostrarse 00046
- También lo uso para "esconder" información en los listbox -> aumenta la funcionalidad, ya que en la misma línea tengo siempre la descripción y el código correspondiente de una tabla determinada. Siempre sabré en qué posiciones se encuentra la descripción y el código (Recomendación: font del listbox = Courier [es letra monoespaciada])

Nota:
Si no se especifica el caracter que se desea insertar, inserta directamente espacios en blanco.
Si el tamaño de la cadena es mayor que la longitud, no hace nada, ya que no existe espacio para insertar los datos.

Funciones:

Código: Visual Basic
  1. Function PadL(CADENA, Longitud, Optional caracter) If IsMissing(caracter) Then caracter = " "
  2. If Longitud < Len(CADENA) Then
  3. PadL = Left(CADENA, Longitud)
  4. Else
  5. PadL = Right(String(Longitud, caracter) & CADENA, Longitud)
  6. End If
  7. End Function
  8.  
  9. Function PadR(CADENA, Longitud, Optional caracter)
  10. If IsMissing(caracter) Then caracter = " "
  11. If Longitud < Len(CADENA) Then
  12. PadR = Left(CADENA, Longitud)
  13. Else
  14. PadR = Left(CADENA & String(Longitud, caracter), Longitud)
  15. End If
  16. End Function
  17.  
  18. Function PadC(CADENA, Longitud As Integer, Optional caracter)
  19. Dim LadoI As Integer, LadoD As Integer
  20. If IsMissing(caracter) Then caracter = " "
  21.  
  22. If Longitud < Len(CADENA) Then
  23. PadC = Left(CADENA, Longitud)
  24. Else
  25.  
  26. LadoI = Format(((Longitud - Len(IIf(IsNull(CADENA), "", CADENA))) / 2), "0")
  27. LadoD = Longitud - (Len(IIf(IsNull(CADENA), "", CADENA)) + LadoI)
  28.  
  29. PadC = String(LadoI, caracter) & CADENA & String(LadoD, caracter)
  30.  
  31. End If
  32.  
  33. End Function
« Última modificación: Mayo 12, 2014, 03:18:57 pm por Expermicid »


 

¿Te gustó el post? COMPARTILO!



Otra Forma Para Ingresar Solo Numeros

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1304
Último mensaje Julio 26, 2010, 11:16:54 am
por ANTRAX
Funcion para crear letras en 3D con colores vivos.

Iniciado por 79137913

Respuestas: 1
Vistas: 3457
Último mensaje Febrero 02, 2013, 03:23:30 pm
por alexander1712
.bas para control de ODBC de bases de datos

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1277
Último mensaje Julio 26, 2010, 12:41:20 pm
por ANTRAX
Como hacer un boton en Flash para VB6

Iniciado por ANTRAX

Respuestas: 0
Vistas: 1287
Último mensaje Julio 26, 2010, 12:32:48 pm
por ANTRAX
Actualizador para tus programa [modulo]

Iniciado por alexander1712

Respuestas: 3
Vistas: 2834
Último mensaje Julio 14, 2016, 10:16:11 pm
por noxonsoftwares