根据文本文件获得每行字符串的数组[1]

    '根据文本文件获得每行字符串的数组

    function getlinestrbytxtfile(byval txtfilename as string) as arraylist

        dim fs as io.filestream = new io.filestream(txtfilename, io.filemode.open, io.fileaccess.read)

        dim sr as io.streamreader = new io.streamreader(fs, system.text.encoding.getencoding("gb2312"))

        dim arraystr as array = sr.readtoend().split(vbcrlf)

        dim i as integer : dim tmlist as new arraylist

        for i = 0 to arraystr.length - 1

            tmlist.add(arraystr.getvalue(i))

        next

        fs.close() : return tmlist