Copyright © 2011, mgr inż. Janusz Bonarowski 1
Zapis/odczyt danych
Rysunek 1
Kod aplikacji
Private Sub btnOblicz_Click(ByVal sender As System.Object, _
ByVal e As System.EventArgs) Handles btnOblicz.Click Dim A, B, Suma As Single
A = CSng(txtA.Text) B = CSng(txtB.Text) Suma = A + B
txtSuma.Text = Suma.ToString End Sub
Private Sub btnWczytaZpliku_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnWczytaZpliku.Click Dim plik As String
Dim A, B As Single
OpenFileDialog1.InitialDirectory = "C:\tkm\gr1_7"
OpenFileDialog1.Filter = "Plik danych (*.txt)|*.txt"
Try
OpenFileDialog1.ShowDialog() plik = OpenFileDialog1.FileName MsgBox(plik)
FileOpen(1, plik, OpenMode.Input)
'Input(1, A) 'Tak czyta do przecinka 'Input(1, B) 'Tak czyta do przecinka 'txtA.Text = A.ToString
'txtB.Text = B.ToString
txtA.Text = LineInput(1) 'Tak czyta cały wiersz txtB.Text = LineInput(1) 'Tak czyta cały wiersz FileClose()
Catch ex As Exception MsgBox(ex.Message) End Try
End Sub
Copyright © 2011, mgr inż. Janusz Bonarowski 2 Private Sub btnZapiszDopliku_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) Handles btnZapiszDopliku.Click Dim plik As String
Dim A, B As Single
SaveFileDialog1.InitialDirectory = "C:\tkm\gr1_7"
SaveFileDialog1.Filter = "Plik danych (*.txt)|*.txt"
Try
SaveFileDialog1.ShowDialog() plik = SaveFileDialog1.FileName FileOpen(1, plik, OpenMode.Output)
PrintLine(1, txtA.Text) 'Drukuje wiersz PrintLine(1, txtB.Text) 'Drukuje wiersz PrintLine(1, txtSuma.Text) 'Drukuje wiersz FileClose()
Catch ex As Exception MsgBox(ex.Message) End Try
End Sub
Najlepiej zapisywać i odczytywać dane wierszami (jedna dana w wierszu). Wtedy nie ma problemu z przecinkiem jako separatorem (czy separator dziesiętny czy separator kolejnych danych?)