VB.net 读取txt文件问题

[vinson985]

一个txt文件 内容大概如下:

1200000001
1200000002
1200000015
1200000068
1255885221
……

这些都是数据库data里面 partId 字段下的一些数据

现在怎么从vb.net读取这个txt的内容 并且根据这些查询数据库呀？

[hmilj245216]

    Private Function ReadFile(ByVal strPath As String) As ArrayList

        Dim list As New ArrayList
        Dim sr As New System.IO.StreamReader(strPath, Encoding.GetEncoding("shift-jis"))
        Do Until sr.Peek = -1
            '' データリストにデータを追加する。
            list.Add(sr.ReadLine)
        Loop
        sr.Close()

        Return list
    End Function

list(0).toString() 就是 第一行数据 1200000001 ，以后每行的数据就依次list(1).toString()、list(2).toString() 。。。。。。

[hmilj245216]

Encoding.GetEncoding("shift-jis") 不是日文的话可以改成Encoding.Default

[vinson985]

怎么获得这个txt有几多个行？我要把它全部读完

[Forrest23]

楼上应该能实现

[hmilj245216]

我给你的代码就能把它都读出来，不管多少行，那不是有循环吗？

Do Until sr.Peek = -1
            '' データリストにデータを追加する。
            list.Add(sr.ReadLine)
        Loop

Peek 就判断它还有没有下一行。

list.Count 就是你的记录有多少行。

[zhihuixiaole]

楼上正节