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.txt
bestaat. Als je het zeker wilt weten, kopieer dan het bestand naar de C:\
Drive om het simpel te houden en vervang je BikeDefault.txt
door "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")