关于Open ** For ×× As #111 打开文件问题！

来源：百度知道 编辑：UC知道 时间：2024/06/06 14:28:46
现在有一个*.txt文件 我想用 Open ** For ×× As #111 这样方法打开。不过里面有数行内容 我想每一行分别给数组A()中，不知怎么去写代码。各位帮个忙了！

dim a(1000) as string
dim Len as integer

Len=0

open x.txt for input as #1

do while not eof(1)

line input #1,a(len)
len = len+1

loop

全部读到字符串中，再用 vbCrLf 分割成数组。split(str,vbCrLf)