按行获取文本文件的内容

最新推荐文章于 2020-04-13 09:21:33 发布

最新推荐文章于 2020-04-13 09:21:33 发布 · 82 阅读

文章标签：

不知是不是VB里最简单的方法？ Sub getlines(byval filename as string,byref lines() as string) If Len(Dir(filename)) = 0 Then Exit Sub Open filename For Input As #1 ' 打开文件。 lines = Split(StrConv(InputB(LOF(1), 1), vbUnicode), vbCrLf) Close #1 End Sub