不知是不是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
按行获取文本文件的内容
最新推荐文章于 2018-11-07 20:33:32 发布