Sandro Bizioli


Chi sogna di giorno conosce molte cose che sfuggono a chi sogna soltanto di notte. (E.A.Poe)
Mappa

Pad (riempimento) in VB6

A differenza di Vb.Net che espone le proprietà .PadLeft e .PadRight di una stringa, VB6 non ha una funzione Pad (riempimento) simile e, alla fine, bisogna un po' arrangiarsi.

La funzione Pad qui riportata si preoccupa di effettuare tale operazione.
Ho preferito non utilizzare due funzioni distinte per il PadLeft e PadRight, ma una sola Pad che discriminasse le due operazioni in base al valore dei parametri passati.
Più precisamente, se passo un numero negativo come lunghezza della stringa risultante, verrà effettuata una PadLeft, vale a dire un riempimento a sinistra della stringa passata.
In caso contrario verrà effettuara una PadRight.

Public Function Pad(ByVal txt As String, ByVal tot As Integer, Optional ByVal ch As String = " ") As String
        '***********************************************************
        ' Func: Pad  (Creazione: SB 20080519  Mod: )
        ' Desc:
        ' Par : txt         Stringa di partenza
        '         tot         Intero rappresentante la dimensione della stringa dopo l'operazione di riempimento
        '                      Se negativo i caratteri verranno aggiunti a sinistra della stringa di partenza. (PadLeft)
        '       [ch]         Optionale. Stringa contenente il carattere di riempimento. E' utilizzato di default lo spazio
        ' Ret : String    Stringa dopo il riempimento.
        ' Note:
        '***********************************************************
        Dim n As Integer
        Dim p As String
        n = Abs(tot)
        '
        ' Se richiedo una stringa più piccola esco
        '
        If n <= Len(txt) Then
            Pad = txt
            Exit Function
        End If
        p = String(n - Len(txt), ch)

     If tot < 0 Then
            Pad = p & txt
        Else
            Pad = txt & p
        End If
End Function

Categoria: VB6
lunedì, 19 mag 2008 Ore. 15.10
Statistiche
  • Views Home Page: 105.750
  • Views Posts: 530.730
  • Views Gallerie: 88.833
  • n° Posts: 227
  • n° Commenti: 222
Copyright © 2002-2007 - Blogs 2.0
dotNetHell.it | Home Page Blogs
ASP.NET 2.0 Windows 2003