Question

我无法找到一种方法来从文本文件中读取单独的单词以放入程序中的数组。

所以说我有一个文本文件：

potatoes
bananas
oranges

我想从该文本文件中读取并将这些单词编入索引。

Answer 1

如果，如在您的示例中，每个单词都在一个单独的行上，您可以使用ReadAllLines类的File方法创建一个数组，其中文件的每一行都是数组。

Dim words() As String = System.IO.File.ReadAllLines("C:\MyFolder\MyFile.txt")

Answer 2

试试这个：

Sub read_whole_file()
    Dim sFile As String, sWhole As String
    Dim v As Variant
    sFile = "C:\mytxtfile.txt"
    Open sFile For Input As #1
    sWhole = Input$(LOF(1), 1)
    Close #1
    v = Split(sWhole, vbNewLine)
End Sub

仅在功能拆分

中替换

如何从文本文件中读取单独的单词？

2 个答案: