UC知道VB批量处理.txt文件数据
来源：百度知道 编辑：UC知道 时间：2024/05/28 14:47:09
现在有.txt文件,储存了1992-2002年各个月份的2个值,数据间是用空格隔开的.如
1 1992 1 18 20
1 1992 2 19 21
... ... .. .. ..
1 1992 12 36 69
2 1993 1 19 20
... ... .. .. ..
其中第一列是地点代号,第二列是年份,第三列是月份,第四列和第五列是属性值.
怎样用VB判断地点的年份是否齐全(1992-2002),
1)若年份齐全将相应年份12个月的第四列求和,第五列求和,输出第一列代号+年份+第四列求和结果+第五列求和结果;
2)若不齐全(1992-2002),输出第一列代号+"年份不齐全".
将结果输出到另一个.txt文件中?
1 1992 1 18 20
1 1992 2 19 21
... ... .. .. ..
1 1992 12 36 69
2 1993 1 19 20
... ... .. .. ..
其中第一列是地点代号,第二列是年份,第三列是月份,第四列和第五列是属性值.
怎样用VB判断地点的年份是否齐全(1992-2002),
1)若年份齐全将相应年份12个月的第四列求和,第五列求和,输出第一列代号+年份+第四列求和结果+第五列求和结果;
2)若不齐全(1992-2002),输出第一列代号+"年份不齐全".
将结果输出到另一个.txt文件中?
可以逐行读取txt文件！
以下代码供参考
Dim FreeNum As Integer
FreeNum = FreeFile 'Freenum表示一个空闲的文件号
Open App.Path & "\DatabasePath\" & FileCount & ".txt"
'逐行读取信息
Do Until EOF(FreeNum)
Line Input #FreeNum, RowString
'可以自编一个函数对Rowstring即每一行信息按照你的要求进行判断。
loop
直接操作有点麻烦,最好是批量导入数据库.
如果没有数据库,你把文件发过来我可以帮你做.