Een tekstbestand lezen in VB

Nieuwe Visual Basic-programmeur hier. Ik probeer een tekstbestand te laten lezen door het programma, maar het lijkt gewoon niet te werken, geen foutmeldingen of iets dergelijks. Het pakt gewoon de waarden helemaal niet

De naam van het tekstbestand is precies hetzelfde.

Public Sub ReadDef()
    Dim DefSR As IO.StreamReader = IO.File.OpenText("BikeDefault.txt")
    GlobalTotBikes = DefSR.ReadLine()
    GlobalRentRate = DefSR.ReadLine()
    GlobalHSTRate = DefSR.ReadLine()
    GlobalTourRate = DefSR.ReadLine()
    GlobalGPSRate = DefSR.ReadLine()
    GlobalInsurRate = DefSR.ReadLine()
    GlobalWaterBotRate = DefSR.ReadLine()
    GlobalNextBookNum = DefSR.ReadLine()
    GlobalNextCustNum = DefSR.ReadLine()
    GlobalNextInvoiceNum = DefSR.ReadLine()
    DefSR.Close()
End Sub

Ik heb deze code een aantal keren vergeleken met het voorbeeld dat ik kreeg en ik zie niets anders.

Bedankt.


Antwoord 1, autoriteit 100%

Eenvoudig zoeken op google http://www.dotnetperls.com/streamreader-vbnet

Zorg er 100% voor dat BikeDefault.txtbestaat. Als je het zeker wilt weten, kopieer dan het bestand naar de C:\Drive om het simpel te houden en vervang je BikeDefault.txtdoor "C:\\BikeDefault.txt"

U kunt de StreamReader als volgt gebruiken:

Imports System.IO
Module Module1
    Sub Main()
    ' Store the line in this String.
    Dim line As String
    Dim FilePath As String = "C:\\BikeDefault.txt"
    ' Create new StreamReader instance with Using block.
    Using reader As StreamReader = New StreamReader(FilePath)
        ' Read one line from file
        line = reader.ReadLine
    End Using
    ' Write the line we read from "file.txt"
    Console.WriteLine(line)
    End Sub
End Module

Of houd het simpel met File.ReadAllLines.

For Each line As String In File.ReadLines("MyTextFile.txt")
    'Code here to read each line
Next line

Antwoord 2, autoriteit 25%

Ik gebruik

IO.File.ReadAllText("BikeDefault.txt")

Other episodes