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