IDC资讯中心
根据文本文件获得每行字符串的数组
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
end function
