Question

VB.net 读取文本文件

比如CSV文件上有如下数据，假设文件路径为 D:\ test.csv
15,50,100,200
20,60,120,200
40,70,130,200
60,80,150,200
90,90,180,200
第一列存为数组1，第二列存为数组2,第三列存为数组3······方便调用里面数据
且把第一列的数据放入到 ListBox1控件中，
希望高人指点，万分感谢
补充下，是读取一 列 为一个数组，不是一 行 哦~~

Answer 1

Imports System.IO
Public Class Form1

    Private Sub Form1_Load(sender As System.Object, e As System.EventArgs) Handles MyBase.Load
        Dim sr As New StreamReader("d:\test.csv")
        Dim arr1(), arr2(), arr3(), arr4() As Integer
        Dim a1, a2, a3, a4 As New ArrayList
        Do Until sr.EndOfStream
            Dim str As String = sr.ReadLine
            Dim s() As String = str.Split(",")
            a1.Add(Convert.ToInt32(s(0)))
            a2.Add(Convert.ToInt32(s(1)))
            a3.Add(Convert.ToInt32(s(2)))
            a4.Add(Convert.ToInt32(s(3)))
            ListBox1.Items.Add(s(0))
        Loop

        arr1 = CType(a1.ToArray(GetType(Integer)), Integer())
        arr2 = CType(a2.ToArray(GetType(Integer)), Integer())
        arr3 = CType(a3.ToArray(GetType(Integer)), Integer())
        arr4 = CType(a4.ToArray(GetType(Integer)), Integer())
        sr.Close()
    End Sub
End Class

追答

这个代码是任意行的