高校问答段奕宏大时代主题曲:如何在VB中打开的txt文件的内容输出成数组？
来源：百度文库 编辑：高校问答 时间：2024/05/07 15:18:21
如何在VB中打开的txt文件的内容输出成数组？
txt文件中的内容如下：（数字之间以tab空格格开）
1 2 3 4 5
4 5 6 7 8
9 10 2 2 4
txt文件中的内容如下：（数字之间以tab空格格开）
1 2 3 4 5
4 5 6 7 8
9 10 2 2 4
可以用FileSystemObject组件,不过使用的时候先要在VB 的refrence中引用Microsoft Scripting Runtime
Dim fso, MyFile,readtxt /**readtxt为Variant类型)**/
Set fso = CreateObject("Scripting.FileSystemObject")
Set MyFile = fso.OpenTextFile("c:\testfile.txt", ForReading,true)
如果是读取一行到数组，则可以这样
do while not MyFile.EOF
readtxt=split(MyFile.readline," ")/**注意这里不是/空格，而是TAB的代码**/
loop
如果是读取全部，则可以这样
readtxt=split(MyFile.readall," ")
myfile.close
楼主 你汉语语法有问题
我猜你的意思是
open filepath for output as #fn
dim i as long
for i = 1 to n
print #fn, cstr(n),
next
close #fn
open.path + app"\***.txt" for input as #1
for j=1 to 15
input #1 ,a(j)
print a(j)&" ";
if j mod 5 =0 then
print
end if
next j