Question

我想让我的点击程序在名为＆＃34; names.txt＆＃34;的名单上读取五个名字。将它们存储在一个五元素的一维数组中，然后按降序排列。

我在这段代码中遗漏了什么让文件无法显示？显示屏上没有显示任何内容。

这就是我试过的

Dim infile As IO.StreamReader
Dim names(4) As String
Dim filename As String = "names.txt"

'checks if the file exist, else show a messagebox
If IO.File.Exists(filename) Then
    infile = IO.File.OpenText(filename) 'opens the file
    names = infile.ReadToEnd.Split()
    Array.Reverse(names)
    namesListBox.Items.AddRange(names)
Else
    MessageBox.Show("The file " & filename & " does not exist")
End If

Answer 1

为什么不简单地使用File.ReadAllLines？它的返回值是一个字符串数组您可以使用string.join将数组转换为单个字符串试试这个：

Dim FineName As String = "names.txt"
Dim names() As String


If IO.File.Exists(FileName) Then
    names = IO.File..ReadAllLines(FileName)
    Array.Reverse(names)
    'a message box to show the array's content:
    MessageBox.Show(String.Join(Environment.NewLine, names))
Else
    MessageBox.Show("The file   does not exist")
End If

一维数组从txt文件中读取名称

1 个答案: