按行获取文本文件的内容

来源:互联网 发布:方太和老板比较 知乎 编辑:程序博客网 时间:2024/05/17 22:32
不知是不是VB里最简单的方法?Sub getlines(byval filename as string,byref lines() as string)If Len(Dir(filename)) = 0 Then Exit SubOpen filename For Input As #1 ' 打开文件。lines = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf)Close #1 End Sub
原创粉丝点击