VB 2010 express fájlkezelés

A következő demoprogramok a VB fájlkezelés alapjait mutatják be.

A test.txt fájlt a BIN\DEBUG mappában kell elhelyezni tesztelés esetén.

Ha lefordítjuk a programot, akkor ugyanabban a könyvtárba másolandó ahol az EXE állomány van.

Az összes demo letölthető innen .zip formátumban

Egyszerű szövegállomány teljes beolvasása egy lépésben szöveg változóba és kiírása üzenetdobozba a képernyőre

Sub Main()

Dim fileReader As String

fileReader = My.Computer.FileSystem.ReadAllText("test.txt") ’beolvasás szövegváltozóba

MsgBox(fileReader)

End Sub

Egyszerű szövegállomány teljes beolvasása egy lépésben szöveg változóba és közvetlenül a képernyőre írása

Sub Main()

Dim fileReader As String

fileReader = My.Computer.FileSystem.ReadAllText("test.txt")

Console.Write(fileReader)

Console.ReadLine()

End Sub

Számokat tartalmazó fájlból számok egyenkénti beolvasása és képernyőre írása a fájl végéig

Sub Main()

Dim a As Integer

FileOpen(1, "szamok.txt", OpenMode.Input) 'fájlnyitás

While Not EOF(1) 'beolvasás

Input(1, a)

Console.WriteLine(a)

End While

FileClose(1)

Console.ReadLine()

End Sub

Szövegfájl soronkénti beolvasása a fájl végéig, és képernyőre írása

Sub Main()

Const strFV As String = "test.txt"

Dim sor As String = ""

FileOpen(1, strFV, OpenMode.Input) 'fájlnyitás

While Not EOF(1) 'beolvasás

Input(1, sor)

Console.WriteLine(sor)

End While

FileClose(1)

Console.ReadLine()

End Sub

Lottószámok véletlenszerű generálása, tárolása egy tömbben és kiíratása szövegfájlba

Sub Main()

Dim lotto(5) As Integer

Dim file As System.IO.StreamWriter

file = My.Computer.FileSystem.OpenTextFileWriter("lotto.txt", True) 'fájl beállítás hozzáfűzésre

For i = 1 To 5

lotto(i) = Rnd() * 90 ’véletlen számgenerálás

Console.WriteLine(lotto(i)) ’képernyőre írás

file.WriteLine(lotto(i)) ’fájlba írás

Next

file.Close()

Console.ReadLine()

End Sub

Lottószámok generálása, kiírása szövegfájlba, majd a szövegfájl beolvasása és képernyőre írása

Imports System.IO

Imports System.Text

Module Module1

Sub Main()

Dim a As Integer

Dim file As StreamWriter

file = New StreamWriter("lotto.txt", True)

For i = 1 To 5

a = Rnd() * 90

file.WriteLine(a)

Next

file.Close()

FileOpen(1, "lotto.txt", OpenMode.Input)

While Not EOF(1)

Input(1, a)

Console.Write(a & " ")

End While

FileClose(1)

Console.ReadLine()

End Sub

End Module

Számok beolvasása a fájl végéig, és képernyőre írása

Module Module1

Sub Main()

Dim a As Integer

FileOpen(1, "szam.txt", OpenMode.Input)

While Not EOF(1)

Input(1, a)

Console.WriteLine(a)

End While

FileClose(1)

End Sub

End Module