ImportsSystem.IO
______________________________________________________
Public Class Form3
Public Data As String = ""
Public Giorno As String = ""
Public Mese As String = ""
Public Anno As String
___________________________________________________
Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
Dim NumTextBox As Integer = 2
Dim TextBox(NumTextBox)
For Each MyControl In Me.Controls
If MyControl.Name = ("TextBox" & (1)) Then
MyControl.Text = Mid$((Date.Now), 1, 10)
End If
Next
End Sub
___________________________________________________
Private Sub Button2_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button2.Click
Dim RecordLine As String = ""
Dim NumTextBox As Integer = 2
Dim TextBox(NumTextBox)
Dim MyControl As Control = Nothing
Dim Mesi(12) As String
Dim Giorni(12) As String 'Sono la quantità dei Giorni che hanno i Mesi
Dim GiornoDellaSettimana(7) As String
Dim I As Integer
Dim G As Integer
Dim M As Integer
'Legge la data inserita nella TextBox N°1
For Each MyControl In Me.Controls
If MyControl.Name = ("TextBox" & (1)) Then
Data = Me.Controls("TextBox" & 1).Text
End If
Next
'controlla che la data sia stata digitata correttamente
If Len(Data) <> 10 Then
Dim messaggio As String = MsgBox("Inserire la Data correttamente con GG/MM/AAAA")
Data = ""
Return
End If
'controlla che non siano state digitate lettere
For I = 1 To Len(Data)
If Asc(Mid$(Data, I, 1)) < 47 Or Asc(Mid$(Data, I, 1)) > 59 Then
Dim messaggio As String = MsgBox("Inserire la Data correttamente con GG/MM/AAAA")
Data = ""
Return
End If
Next
Giorno = Mid$(Data, 1, 2)
Mese = Mid$(Data, 4, 2)
Anno = Mid$(Data, 7, 4)
'assegna i valori a Mesi e ad ogni Mese la quantità relativa di Giorni
For I = 1 To 12
If I = 1 Then Mesi(I) = "Gennaio" : Giorni(I) = 31
If I = 2 Then Mesi(I) = "Febbraio" : Giorni(I) = 28
If I = 3 Then Mesi(I) = "Marzo" : Giorni(I) = 31
If I = 4 Then Mesi(I) = "Aprile" : Giorni(I) = 30
If I = 5 Then Mesi(I) = "Maggio" : Giorni(I) = 31
If I = 6 Then Mesi(I) = "Giugno" : Giorni(I) = 30
If I = 7 Then Mesi(I) = "Luglio" : Giorni(I) = 31
If I = 8 Then Mesi(I) = "Agosto" : Giorni(I) = 31
If I = 9 Then Mesi(I) = "Settembre" : Giorni(I) = 30
If I = 10 Then Mesi(I) = "Ottobre" : Giorni(I) = 31
If I = 11 Then Mesi(I) = "Novembre" : Giorni(I) = 30
If I = 12 Then Mesi(I) = "Dicembre" : Giorni(I) = 31
Next I
'Forma la stinga Giorno Per andare a leggere il file di quel giorno
G = Val(Giorno)
M = Val(Mese) : Mese = Mesi(M)
Giorno = Str(G) + " " + Mese
Anno = Val(Anno)
'Legge il file C:\Giorno.txt
Dim r As New IO.StreamReader("C:\Anno\Mese\Giorno\Giorno.txt")
'Fintanto che non si è raggiunta la fine del file...
While Not r.EndOfStream
'Si aggiunge la nuova linea letta al testo di una textbox
TextBox2.Text += r.ReadLine
End While
'Finita l'operazione di lettura, si chiude il file
r.Close()
End Sub
_____________________________________________________
Private Sub Button3_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button3.Click
Close()
End Sub
End Class
_____________________________________________________