VB:NET 2008 Express alapok: IO műveletek

Public Class Form1
    Dim rajzlap As Graphics  'Ide írhatunk, rajzolhatunk
    Dim Ceruza As New Pen(Color.Red, 2) 'rajzoló eszköz (szín,vastagság) 
    Dim Betu_Méret As Integer = 14
    Dim X_pos, Y_pos As Integer 'A kinyomtatandó sorok x,y koordinátáit tartja nyilván
    Dim Betu_Típus As New Font("Ariel", Betu_Méret, FontStyle.Regular, GraphicsUnit.World) 'betűtípus, méret, stílus, mértékegység
    Private Sub Nyomtat(ByVal Sor As String)
        rajzlap.DrawString(Sor, Betu_Típus, Brushes.Blue, X_pos, Y_pos)
        Y_pos = Y_pos + Betu_Méret + 2
    End Sub
    Private Sub kiírat_számokat()
        Dim J As Integer
        Dim Felsorolva As String = ""
        Nyomtat("Írni fogok!")
        'számok nyomtatása
        For J = 1 To 5
            Nyomtat(CStr(J))
            Felsorolva = Felsorolva & CStr(J) & " " 'számok összefűzése
        Next
        Nyomtat(Felsorolva)
    End Sub
    

Az eredmény

    Private Sub fájlba_írás()
        Dim J As Integer
        Dim elválasztva_szóközzel As String = ""
        Dim elválasztva_tabulátorral As String = ""
        Dim FájlNév As String = "füzet.txt"
        Dim Szöveg As String = ""
        Dim Iró As New IO.StreamWriter(FájlNév)
        Szöveg = "Üdvözöllek dicso lovag, szép a ruhád, szép a lovad!"
        Iró.WriteLine(Szöveg)

        For J = 1 To 5
            Szöveg = CStr(J)
            Iró.WriteLine(Szöveg)

            elválasztva_tabulátorral = elválasztva_tabulátorral & CStr(J) & Chr(9) 'Chr(9) a tabulátor kódja
            elválasztva_szóközzel = elválasztva_szóközzel & CStr(J) & " "
        Next
        Iró.WriteLine(elválasztva_tabulátorral)
        Iró.WriteLine(elválasztva_szóközzel)

        Iró.Close()
 

    End Sub
 

Az eredmény

    Private Sub fájlból_olvasás()
        Dim I As Integer = 1
        Dim beolvasott(8) As String 'Tudjuk előre, hogy csak nyolc sorunk van!
        Dim Olvasó As New IO.StreamReader("füzet.txt") 'olvasó objektum
        Do While Not Olvasó.EndOfStream
            beolvasott(I) = Olvasó.ReadLine
            I = I + 1
        Loop
        'A beolvasott adatok kiíratása
        Nyomtat("A beolvasott adatok kiíratása:")
        Nyomtat(beolvasott(1))
        Nyomtat(beolvasott(7))
        Nyomtat(beolvasott(8))
        'szétszedjük a tagoló karakter mentén SPLIT
        Dim tomb(), SR As String
        Nyomtat("")
        SR = ""
        tomb = Split(beolvasott(7), Chr(9))
        For I = 0 To UBound(tomb)
            SR = SR & tomb(I)
        Next
        Nyomtat(SR)
    End Sub
   

Az eredmény

    Private Sub rajzol()
        rajzlap.DrawEllipse(Ceruza, 300, 200, 60, 40)
    End Sub
    Private Sub Form1_Load(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles MyBase.Load

    End Sub
    Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click
        rajzlap = Me.CreateGraphics 'Rajzlap létrehozása
        rajzlap.Clear(Color.LightYellow) 'rajzlap törlés
        Call kiírat_számokat()
        Call fájlba_írás()
        Call fájlból_olvasás()
        Call rajzol()

    End Sub
End Class