VB编程如何将*.txt文件中的数据读入到数组？

dim strline as stringdim a()dim i as integeropen app.path +"\1.txt for input as #1do until eof(#1)i=i+1line input #1,strlineredim preserve a(i)a(i-1)=strlineloop

顶一下

(0)

0%

踩一下

(0)

0%