Funciones para formatear texto

  • 0 Respuestas
  • 2039 Vistas

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

Conectado ANTRAX

  • *
  • Administrator
  • Mensajes: 5672
  • Actividad:
    20%
  • Country: ar
  • Reputación 37
  • ANTRAX
  • Skype: underc0de.org
  • Twitter: @Underc0de
    • Ver Perfil
    • Underc0de
    • Email

Funciones para formatear texto

  • 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 »


 

Otra Forma Para Ingresar Solo Numeros

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2263
Ú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: 4838
Último mensaje Febrero 02, 2013, 03:23:30 pm
por Harkonidaz
Como hacer un boton en Flash para VB6

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2327
Último mensaje Julio 26, 2010, 12:32:48 pm
por ANTRAX
.bas para control de ODBC de bases de datos

Iniciado por ANTRAX

Respuestas: 0
Vistas: 2231
Último mensaje Julio 26, 2010, 12:41:20 pm
por ANTRAX
Actualizador para tus programa [modulo]

Iniciado por Harkonidaz

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