Creëren, Inlezen en schrijven naar tekstbestanden.
Public Sub LezenTekstBestand_1()
'Er bestaat een tekstbestand tweede.txt in de map van de toepassing
Dim mijnLezer As New IO.StreamReader("tweede.txt")
Dim mijnLijn As String = ""
While Not IsNothing(mijnLijn)
mijnLijn = mijnLezer.ReadLine
If Not IsNothing(mijnLijn) Then
Debug.Print("Ingelezen tekstbestand:" & mijnLijn)
End If
End While
End Sub
Public Sub CreerTekstBestand_1()
Dim mijnPad = IO.Directory.GetCurrentDirectory & "TekstmijnTekst.txt"
If IO.File.Exists(mijnPad) = False Then
' Indien het tekstbestand niet bestaat creër het
Dim sw As IO.StreamWriter = IO.File.CreateText(mijnPad)
sw.WriteLine("Dit is de eerste lijn")
sw.WriteLine("Dit is de tweede lijn")
sw.WriteLine("Dit is de derde lijn")
sw.Flush() 'Alles die in de buffer geschreven wordt opgeslagen in het bestand terwijl de buffer geledigd wordt.
sw.Close()
' Indien het bestaat verwijder het en creër opnieuw
Else
IO.File.Delete(mijnPad)
Dim sw As IO.StreamWriter = IO.File.CreateText(mijnPad)
sw.WriteLine("Dit is de eerste nieuwe lijn")
sw.WriteLine("Dit is de tweede nieuwe lijn")
sw.WriteLine("Dit is de derde nieuwe lijn")
sw.Flush() 'Alles die in de buffer geschreven wordt opgeslagen in het bestand terwijl de buffer geledigd wordt.
sw.Close()
End If
' Bestand openen en inlezen
Dim sr As IO.StreamReader = IO.File.OpenText(mijnPad)
Do While sr.Peek() >= 0 'Geeft een integer overeenkomstig het volgende te lezen karakter Geeft -1 indien geen karakters meer te lezen zijn.
Debug.Print(sr.ReadLine())
Loop
sr.Close()
End Sub
Public Sub Schrijven_en_Lezen_1()
If Microsoft.VisualBasic.FileIO.FileSystem.FileExists("TekstEerste.txt") Then
FileIO.FileSystem.WriteAllText("TekstEerste.txt", "-een", vbTrue)
Dim strGelezen As String = Microsoft.VisualBasic.FileIO.FileSystem.ReadAllText("TekstEerste.txt")
MsgBox(strGelezen)
End If
End Sub
Public Sub Schrijven_1()
If Microsoft.VisualBasic.FileIO.FileSystem.FileExists("TekstDerde.txt") Then
Dim schrijver As New IO.StreamWriter("TekstDerde.txt")
Dim sb As New System.Text.StringBuilder()
Dim i As Short = 0
For i = 1 To 5
sb.AppendLine("xxxxxxxxxxxxxxx")
sb.AppendLine(i.ToString)
Next
schrijver.Write(sb.ToString)
schrijver.Close()
End If
End Sub
Public Sub schrijven_2()
'met system.IO kan men een tekstbestand maken
Dim strStartUp As String = Application.StartupPath
MsgBox("Startop pad : " & strStartUp)
MsgBox(My.Resources.Pad)
If Not IO.File.Exists(My.Resources.Pad & "Vierde.txt") Then
Using schrijver As IO.StreamWriter = IO.File.CreateText(My.Resources.Pad & "Vierde.txt") ' retourneert een streamWriter
schrijver.WriteLine("Mijn eerste lijn")
schrijver.Close()
End Using
Else
'Mijn eerste lijn wordt overschreven
Dim schrijver As New IO.StreamWriter(My.Resources.Pad & "Vierde.txt")
Using schrijver
schrijver.WriteLine("Mijn nieuwe eerste lijn")
schrijver.WriteLine("Mijn tweede lijn")
schrijver.Close()
End Using
Using schrijver2 As IO.StreamWriter = IO.File.AppendText(My.Resources.Pad & "Vierde.txt")
schrijver2.WriteLine("Mijn derde lijn")
schrijver2.Close()
End Using
End If
End Sub
|
