Copyright © 2014, Janusz Bonarowski 1
vb7.4_Zapis/odczyt do/z pliku najprościej
Wykonajmy aplikację, która z pliku c:\tkm\dane.txt odczyta dane i umieści je w TextBox’ach. Dane (plik dane.txt) mają postać jak na rys. 1:
Rysunek 1
Uwaga! PoniewaŜ zamierzamy pokazać najprostszą postać takiej aplikacji – umieszczamy dane w ten sposób, Ŝe kaŜda wartość znajduje się w jednym wierszu pliku. Z rys. 1 wynika, Ŝe pierwsza wartość to 1,234.
Uwagę powyŜszą czynimy dlatego, Ŝe moŜna napisać aplikację, dla której wartości do wczytania z pliku znajdują się obok siebie oddzielane spacjami lub przecinkami. Wtedy w jednym wierszu moŜe znajdować się wiele wartości. Taka postać danych wymaga innego sposobu ich wczytywania. Nie będziemy go omawiać w tym dokumencie.
Rysunek 2. Postać formularza
Kod aplikacji
Private Sub btnSuma_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles btnSuma.Click
Dim A, B, W As Single Try
A = CSng(txtA.Text) B = CSng(txtB.Text) W = A + B
txtW.Text = W.ToString Catch ex As Exception
MsgBox(ex.Message) End Try
End Sub
Copyright © 2014, Janusz Bonarowski 2 Private Sub btnZapisz_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles btnZapisz.Click
Dim plik As String Try
plik = "c:\tkm\dane.txt"
'(1) Otwarcie na zapis do pliku FileOpen(1, plik, OpenMode.Output)
'(2) Zapisywanie danych z TextBoxów do nowych linii PrintLine(1, txtA.Text)
PrintLine(1, txtB.Text) PrintLine(1, txtW.Text)
'(3) Zamknięcie pliku.
FileClose(1)
Catch ex As Exception MsgBox(ex.Message) End Try
End Sub
Private Sub btnWczytaj_Click(ByVal sender As System.Object, _ ByVal e As System.EventArgs) _ Handles btnWczytaj.Click
Dim plik As String Try
plik = "c:\tkm\dane.txt"
'(1) Otwarcie na odczyt z pliku FileOpen(1, plik, OpenMode.Input)
'(2) odczytywanie danych z pliku i umieszczanie ich ' w TextBox'ach
txtA.Text = LineInput(1) txtB.Text = LineInput(1)
'(3) Zamknięcie pliku.
FileClose(1)
Catch ex As Exception MsgBox(ex.Message) End Try
End Sub