[江湖救急]怎么在VB中逐行读取数据？

Question

怎么在VB中逐行读取数据？LINEINPUT吗？怎么用？
还有如果我想删除某一行数据，怎么删？

Answer 1

整个读到字符串，再用split函数以vbCrLf分割到数组，操作这个数组就好了

Answer 2

Dim str1 As String
Open "d:\1.txt" For Input As 1
str1 = StrConv(InputB$(LOF(1), 1), vbUnicode)
Close 1Dim astr() As String
astr = Split(str1, vbCrLf)
If 2 <= UBound(astr) Then astr(2) = "" '删除第三行str1 = Join(astr, "") '再次连接为字符串，如果保留原来的回车换行符，""改为vbCrLf
'如果保留原来的回车换行符，会多一个，可以用Replace把两个替换为一个