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