Public Function visualizza_file(nomefile As String)
Dim nf As Integer
Dim riga, fascia, valore_temp As String
'lettura e visualizzazione file
TextBox1.Text = "Contenuto del file:" & vbCrLf
nf = FreeFile()
FileOpen(nf, nomefile, OpenMode.Input)
Do Until EOF(nf)
riga = LineInput(nf)
fascia = Mid(riga, 1, 1)
valore_temp = Mid(riga, 3)
TextBox1.Text = TextBox1.Text & fascia & vbTab & valore_temp & vbCrLf
Loop
FileClose(nf)
End Function
Private Sub Button1_Click(sender As System.Object, e As System.EventArgs) Handles
Button1.Click
Dim nf As Integer
Dim temperatura As String
'creazione file
nf = FreeFile()
FileOpen(nf, "F:/temp_biella.txt", OpenMode.Output)
temperatura = InputBox("temperatura Mattina")
PrintLine(nf, "M|" & temperatura)
temperatura = InputBox("temperatura Pomeriggio")
PrintLine(nf, "P|" & temperatura)
temperatura = InputBox("temperatura Sera")
PrintLine(nf, "S|" & temperatura)
FileClose(nf)
visualizza_file("F:/temp_biella.txt")
End Sub
Private Sub Button2_Click(sender As System.Object, e As System.EventArgs) Handles
Button2.Click
Dim nf, nf2, fascia, fascia_letta, riga, valore_temp, valore_temp_letta As String
Do
fascia = InputBox("quale fascia? M, P, S")
Loop Until (fascia = "M" Or fascia = "P" Or fascia = "S")
valore_temp = InputBox("Nuova temperatura per " & fascia)
nf = FreeFile()
FileOpen(nf, "F:/temp_biella.txt", OpenMode.Input)
nf2 = FreeFile()
FileOpen(nf2, "F:/temp_biella2.txt", OpenMode.Output)
Do Until EOF(nf)
riga = LineInput(nf)
fascia_letta = Mid(riga, 1, 1)
valore_temp_letta = Mid(riga, 3)
If (fascia_letta = fascia) Then
riga = fascia & "|" & valore_temp
End If
PrintLine(nf2, riga)
Loop
FileClose()
'cancello vecchio file
My.Computer.FileSystem.DeleteFile("F:/temp_biella.txt")
'rinomino file
My.Computer.FileSystem.RenameFile("F:/temp_biella2.txt", "temp_biella.txt")
visualizza_file("F:/temp_biella.txt")
End Sub