文本样式：
AT1 NET1 NET2 NET3 NET4 W=10U L=50U
AT2 NET5 NET6 NET7 NET8 W=20U L=30U
………………
…………
……
…
楼上的回答没有进行行侍慎扫描... 稍微修改一下
open "data.txt" for input as #1 'data.txt为粗谈桥存储数据的文件
do until EOF(1) = True '判断是否读到文件结尾
lineinput #1,tx '读入一行
array（a）=split（tx） '分割
for i=0 to ubound(a)
b(j,i)=a(i) '赋值
next i
j=j+1
loop
close #1 '岩猛关闭文件
'输出b(,)
open ""敏郑 for input as #1
lineinput #1,tx
array（基瞎a）桥锋颂=split（tx）
for i=0 to ubound(a)
b(j,i)=a(i)
next i
j=j+1
close #1
不知道你是简带败槐单的字符合并枯亩，还是数值相加？
如果是前者，应该没蠢友有错。如果是后者，那就不行了。