Private Sub Command1_Click()Dim str1(100) as long‘读取文件中100列Dim str2 As StringOpen "E:\数组.txt" For Input As #1 'i=1While Not EOF(1)if i=1 then i=2 '第一行不要 是表头else Line Input #1, str2 str1 = Split(str2, "") '两个数据之间是几个空格,这儿的引号之间就是几个空格end if
读入到数组中后要进行处理 在读取后面的数据
WendClose #1End...