Private Sub Command1_Click()
Dim n%, a
Open "c:\1.txt" For Binary As #1
a = StrConv(InputB(LOF(1), 1), vbUnicode)
Close #1
b = Split(a, vbCrLf)
n = Val(InputBox("你想讀取第幾行?"))
If n < 0 Or n > UBound(b) + 1 Then
MsgBox "行數(shù)有問題!!"
Exit Sub
End If
Print b(n - 1)
End Sub
本站僅提供存儲(chǔ)服務(wù)，所有內(nèi)容均由用戶發(fā)布，如發(fā)現(xiàn)有害或侵權(quán)內(nèi)容，請(qǐng)
點(diǎn)擊舉報(bào)。
