Allineamento campo a destra

di il
1 risposte

Allineamento campo a destra

Salve ragazzi,
sono nuovo del forum e mi sto avvicinando piano piano al mondo della programmazione.
Ho un problema quando scrivo informazioni in un file di testo.
non riesco ad allineare a destra ed ad aggiungere gli zeri ad un campo di lunghezza predeterminata
potete aiutarmi?
grazie anticipatamente
Andrea
P.S
vi posto la parte del codice che non riesco a far funzionare,
l'informazione che mi interessa ruguarda l'istruzione evidenziata
Dim data As Date
Private Sub Command1_Click()
data = Date
Open "C:\zpunti" For Binary Access Write As #1 'apre il file zpunti
If Option1 = True Then
Put #1, 1, "B" 'record di aggiunta
ElseIf Option2 = True Then
Put #1, 1, "S" 'record di decremento
ElseIf Option3 = True Then
Put #1, 1, "C" 'record di cancellazione
End If
If Option1 = False And Option2 = False And Option3 = False Then
MsgBox "SCEGLIERE CAUSALE INSERIMENTO"
End If
Label6.Caption = Format(data, "dd/mm/yy")
Put #1, 2, text1.Text         'scrive il numero tessera
Put #1, 14, Label6.Caption 'scrive la data ultimo aggiornamento
Put #1, 22, Text2.Text       'scrive numero punti
Put #1, 29, "0000000"         'campi non gestiti
Put #1, 36, "00/00/00"       'campi non gestiti
Put #1, 44, "0000000"         'campi non gestiti
Put #1, 51, "0000000"         'campi non gestiti
Close #1
End Sub

1 Risposte

  • Re: Allineamento campo a destra

    Non credo di aver capito, perchè la risposta è sconcertante
    Format(trim$(Text2.Text ), "00000000")
    per quanti zeri vuoi
    Altrimenti spiegati meglio o dammi del cretino!

    Salutoni
Devi accedere o registrarti per scrivere nel forum
1 risposte