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

2025-02-26 11:32:25

推荐回答（3个）

回答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就是第二行开始的数据

回答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

回答3：

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