在VB中读取文本文件

Question

新的 Visual basic 程序员来了。试图让程序读取一个文本文件，但它似乎根本不起作用，没有错误消息或任何东西。它只是根本没有抓住价值

文本文件名完全相同。

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

我已经将此代码与给出的示例进行了多次比较，但没有发现任何不同。

谢谢。

Answer 1

在google上简单搜索http://www.dotnetperls.com/streamreader-vbnet

100% 确定BikeDefault.txt存在。如果您想确定，请将文件复制到C:\云端硬盘以保持简单并将您的替换BikeDefault.txt为"C:\\BikeDefault.txt"

您可以像这样使用 StreamReader：

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

或者保持简单File.ReadAllLines。

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

Answer 2

我用

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