如何读入文本文件并赋给数组

Question

想把一个文本文件读入，然后当作字符串依次赋给一个数组。读入的要求是：每到回车符算一个部分，因为有的部分内容比较长，换行的话，可能占用七八行
请大家帮忙，顺便说明大概的原理。

Answer 1

可以用vb里的filesystemobject来完成呀。里面有readline方法。

Answer 2

Private Sub Form_Load()
Dim strTmp As String, strArray() As String
Open "C:\aa.txt" For Input As #1
Do While Not EOF(1)
    'Debug.Print Input(LOF(1), #1)
    strTmp = Input(LOF(1), #1)
LoopClose #1strArray = Split(strTmp, vbCrLf) '将文件内容放到数组里，一个数组元素带表一行数据End Sub

Answer 3

用line input加循环
数组用redim preserve

Answer 4

请问  kmzs(.:RNPA:.山水岿濛)能写出代码么，小弟水平太差，谢谢了

Answer 5

選全部讀出,再用split函數例可.