VB从第二行读取txt到末尾并显示在text3上

Question

比如说有一个txt文件，打开如下：
111111111111
222222222222
333333333333
444444444444
........................
只让text3显示第二行到最后，
也就是说让text3显示：
222222222222
333333333333
444444444444
.......................

Answer 1

Open "d:\123.txt" For binary As #1
s = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
s=mid(s,instr(s,vbcrlf)+2)

最后s就是第二行开始的数据追问

没有从第二行开始读

追答

那有读取到数据吗？不是从第二是从哪里？你的数据是用回车换行的吗？

追问

第二行是用回车换行，你那代码直接全读了。

Answer 2

Private Sub Command1_Click()
Dim S As String
Dim K() As String
Dim AA() As Byte
Dim LON As Long
Open "E:\00.txt" For Binary As #1
LON = LOF(1)
ReDim AA(0 To LON - 1)
Get #1, , AA
Close #1
S = StrConv(AA, vbUnicode)
K() = Split(S, vbCrLf)
For I = 1 To UBound(K)
Print K(I)
Next
End Sub本回答被提问者采纳

Answer 3

如果每行的数字是相等的，你可以把全部的都读进去，然后算出第二行开始的坐标，从这个坐标开始打印，你觉得呢？追问

每行不一定是数字，也不一定是相等的。