如何用VB在txt文本文档中读出最后有数据的一行（因为txt文本最后有n个回车，试过几个方法读出来是空值）
1个回答
展开全部
Dim s() As String, i As Integer
Open "文本文件名" For Binary As #1
s = Split(Input(LOF(1), #1), vbCrLf)
Close #1
For i = UBound(s) To 1 Step -1
If Trim(s(i)) <> "" Then Exit For
Next
Print s(i)
已赞过
已踩过<
评论
收起
你对这个回答的评价是？
推荐律师服务：
若未解决您的问题，请您详细描述您的问题，通过百度律临进行免费专业咨询
