VB.NET - Φtenφ a zßpis do soubor∙

Public Class Form1

Private Sub Button1_Click(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles Button1.Click

   'Prvnφ zp∙sob jak Φφst\zapisovat do souboru je starß dobrß VB6 metoda... 
   'vyu₧ijeme tedy kompatibilitu s VB.Net. 
   'Pojmenovan² prostor Microsoft obsahuje metody VisualBasicu - 
   'my pou₧ijeme "FileOpen" pro otev°enφ souboru
   'parametry kterΘ zadßvßme jsou prakticky stejnΘ jako ve VB6, 
   'jen syntaxe je jinß - zadßme Φφslo souboru, cestu k n∞mu,
   'm≤d p°φstupu,a p°φstupnost (jestli m∙₧eme Φφst\zapisovat jen my, 
   'nebo i jinφ, t°eba pokud je PC v lokßlnφ sφti a my
   'nastavφme OpenShare na Locked, tak si jinφ neÜkrtnou. :)

   Microsoft.VisualBasic.FileOpen(1, "C:\Novy.dat", _
      OpenMode.Output, OpenAccess.Write, OpenShare.Default, 100)

   'Pak pou₧ijeme obdobu p°φkazu Write pro zßpis °et∞zce
   Microsoft.VisualBasic.WriteLine(1, "Nazdar")

   'zav°eme soubor, prakticky stejn∞ jako ve VB6
   Microsoft.VisualBasic.FileClose(1)

End Sub

Private Sub Button2_Click(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles Button2.Click

   'Deklarovßnφ prom∞nnΘ pro ulo₧enφ hodnoty - string 
   'kv∙li tomu ₧e budeme naΦφtat °et∞zec...
   Dim Nacteno As String 

   'nynφ soubor otev°eme pro Φtenφ, postup je stejn² jako p°i otevφrßnφ 
   'pro zßpis, jen 2 parametry se liÜφ OpenMode a OpenAccess
   Microsoft.VisualBasic.FileOpen(1, "C:\Novy.dat", OpenMode.Input, _
      OpenAccess.Read, OpenShare.Default, 100)

   'NaΦteme stejnou metodou jako ve VB6 - Input je to samΘ jako "LineInput"
   Microsoft.VisualBasic.Input(1, Nacteno)

   'zav°eme soubor
   Microsoft.VisualBasic.FileClose(1)

   'primitivnφ vyu₧itφ prom∞nnΘ do kterΘ jsme naΦetli string ze souboru. :))))
   txt1.Text = Nacteno

End Sub

Private Sub Button3_Click(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles Button3.Click

   'nejd°φve pot°ebnΘ deklarace - filestream: nadeklarujeme 
   'prom∞nnou kterß bude reprezentovat "proud dat"
   'Spisovatel: Ten jen₧ pφÜe - objekt, kter²m budeme psßt do "toku dat" - 
   'vÜimn∞te si, ₧e jej automaticky napojujeme na deklarovan² tok dat!

   Dim ProudDat As System.IO.FileStream = _
      New System.IO.FileStream("C:\Pokus.txt", IO.FileMode.OpenOrCreate)
   Dim Spisovatel As System.IO.BinaryWriter = _
      New System.IO.BinaryWriter(ProudDat)

   'pole pro °et∞zce, kterΘ budeme zapisovat
   Dim Pole(0) As String
   'postaΦφ jedin² ·daj
   Pole(0) = "Zdar"

   'zapsßnφ ·daje - vÜimn∞te si ₧e je tu jen jeden parametr - prom∞nnß. 
   'ostatnφ d∙le₧itΘ v∞ci u₧ jsou v deklaraci zakotveny
   Spisovatel.Write(Pole(0))

   'tento °ßdek nenφ nutn², je tu jen proto, abych ukßzal, 
   'jak se dß "pohybovat" v souboru
   'hodφ se, pokud nap°. zapφÜete n∞jakou hodnotu a pak ji pot°ebujete 
   'zkontrolovat. Musφte se vrßtit zp∞t na
   'zaΦßtek souboru. Pokud ale soubor (neboli tok dat) 
   'p°edtφm uzav°ete, nenφ tento p°φkaz nutn².
   Spisovatel.Seek(0, IO.SeekOrigin.Begin)
   'uzav°enφ souboru (toku dat)
   ProudDat.Close()

End Sub

Private Sub Button4_Click(ByVal sender As System.Object, _
   ByVal e As System.EventArgs) Handles Button4.Click

   'vÜe je prakticky stejnΘ jako u zßpisu, 
   'jen nedeklarujeme spisovatele, ale ctenare. :)
   Dim ProudDat As System.IO.FileStream = _
      New System.IO.FileStream("C:\Pokus.txt", IO.FileMode.OpenOrCreate)
   Dim Ctenar As System.IO.BinaryReader = _
      New System.IO.BinaryReader(ProudDat)

   'prom∞nnß pro uklßdßnφ naΦten²ch hodnot. :)
   Dim Nacteno As String

   'co ctenar p°eΦte, to hodφ do prom∞nnΘ...
   Nacteno = Ctenar.ReadString
   txt2.Text = Nacteno
   'uzav°enφ
   ProudDat.Close()

End Sub

End Class

 Zp∞t