UC知道VB打开一个文件夹中的文件
来源：百度知道 编辑：UC知道 时间：2024/05/22 06:24:54
有一个“200806”的文件夹，里面全是.txt文件，估计有8000多个。每个文本不大。命名规则为“200806XX_YYY.txt”，（XX：01～30，YYY：001～288），均为3列数据。
但是其中有个别文件缺失，譬如20080610_088.txt没有
现在想读取.txt里面的数据，存入A、B、C三个量中
该怎么办？
路径是“D:\VB\Code\200806”
每个文本的格式都是三列数据，行数不固定
如： 121，35.5，10 第一列为整数 第二、三列最多一位小数
可以理解为：点号，X坐标，Y坐标
A存所有文件的第一列、B存第二列、C存第三列
或者用个结构体 X.A ,X.B,X.C 都可以
但是其中有个别文件缺失，譬如20080610_088.txt没有
现在想读取.txt里面的数据，存入A、B、C三个量中
该怎么办？
路径是“D:\VB\Code\200806”
每个文本的格式都是三列数据，行数不固定
如： 121，35.5，10 第一列为整数 第二、三列最多一位小数
可以理解为：点号，X坐标，Y坐标
A存所有文件的第一列、B存第二列、C存第三列
或者用个结构体 X.A ,X.B,X.C 都可以
Dim A(), B(), C()
Set FSO = CreateObject("Scripting.FileSystemObject")
Set fd = FSO.GetFolder("D:\VB\Code\200806")
For Each f In fd.Files
Open f For Input As #1
Do Until EOF(1)
Line Input #1, s
x = Split(s, ",")
i = i + 1
ReDim Preserve A(i)
A(i) = x(0)
ReDim Preserve B(i)
B(i) = x(1)
ReDim Preserve C(i)
C(i) = x(2)
Loop
Close #1
Next