VB如何读取txt文件

txt文件中有6行数据,想只读取1~5行的数据。通过点击command来实现读取后的数据到text当中,请问怎么实现?谢谢... txt文件中有6行数据,想只读取1~5行的数据。通过点击command来实现读取后的数据到text当中,请问怎么实现?谢谢 展开
 我来答

答题抽奖

首次认真答题后

即可获得3次抽奖机会,100%中奖。

更多问题
最佳答案
九头草鸡
2015-05-16
九头草鸡
采纳数:151 获赞数:186 LV8
擅长:编程语言 PHP Html/Css JAVA相关 JavaScript
向TA提问 私信TA
展开全部

可以用下面的方法读取

Private Sub Command1_Click()
    Dim text
    Dim line
    Open App.Path & "\test.txt" For Input As #1
    For i = 0 To 4
        Line Input #1, line
        text = text & line & vbCrLf
    Next i
    Close #1
    Text1.text = text
End Sub

测试工程见附件

追问
非常感谢,那要是只读取第二行到第四行怎么改呢?第一行不要,谢谢
追答

可以把读出来的整个文件内容,用 split 函数按回车换行符分割到数组中,然后在数组中你想要哪行就可以读哪行。

参考代码如下:

    Dim text As String
    Dim line As String
    Dim text_arr() As String
    Open App.Path & "\test.txt" For Input As #1
    Do While Not EOF(1)
        Line Input #1, line
        text = text & line & vbCrLf
    Loop
    Close #1
    text_arr = Split(text, vbCrLf)
    For i = 2 To 4
        Text1.text = Text1.text & text_arr(i) & vbCrLf
    Next i
syx54
2015-05-16
syx54
采纳数:3576 获赞数:4767 LV15
擅长:百度知道 编程语言 VB 数据库DB 其他编程语言
向TA提问 私信TA
展开全部
下面将5行数据读到数组里;
dim i as integer
Dim MyLineStr(5) As String

'读取文件信息
Open 文件名标识符 For Input As #1 '以读的方式打开文件
for i=1 to 5
Line Input #1, MyLineStr(i)
next i
Close #1 ' 关闭文件。
本回答被网友采纳
已赞过 已踩过<
评论 收起

为你推荐:

×

类别

我们会通过消息、邮箱等方式尽快将举报结果通知您。

说明

0/200

提交
取消