Dim objFSO As FileSystemObject Dim objText As TextStreamSet objFSO = New FileSystemObjectSet objText = objFSO.OpenTextFile(filename) Form1.Text1.Text = Form1.Text1.Text + Trim$(astr) + Chr(13) + Chr(10)
需要解决的问题: 对多个记事本的批量处理,要能连续读多个记事本文件,然后对读出来的文件的 格式能进行变换 原始数据(记事本的文件)格式如下BMT APR0104 92 0 HDZF R KYO 4971162 212400 H D Z F H D Z F H D Z F H D Z F H D Z F H D Z F ....................................... ......................................... BMT APR0104 92 1 HDZF R KYO 4971162 212400 H D Z F H D Z F H D Z F H D Z F ..................................... .....................................其中标题 0~~~~~23变换 (代表每小时一段数据)共24小时,这是一天的数据(一个文件). H D Z F 是地磁的四个分量,现在的目的是要排列成如下格式 H D Z F H D Z F H D Z F H D Z F H D Z F ................ ................ ................要导到EXCEL表格里面 ,H D Z F 各占一个字段,不只要把一天的数据如此排列,要把一个 月的文件这样排列,所以要处理数据连读,还有导出EXCEL表格事情紧急,望高手指点解决!楼上能具体点吗?来点代码吧!
Dim filstr As StringPublic Sub FileRead(filename As String)
'FileName = App.Path + "\dMdiset.txt"
'' FileNum = FreeFile
Dim objFSO As FileSystemObject
Dim objText As TextStreamSet objFSO = New FileSystemObjectSet objText = objFSO.OpenTextFile(filename)
Form1.Text1.Text = Form1.Text1.Text + Trim$(astr) + Chr(13) + Chr(10)
'Text1.Text = objText.ReadAll()
Set objFSO = Nothing
'Set objText.ReadAll() = Nothing
Call objText.Close用这种方式只能连续打开7个文件: 要求是连续打开31个文件!
所以应该用个string变量来暂存
对多个记事本的批量处理,要能连续读多个记事本文件,然后对读出来的文件的
格式能进行变换
原始数据(记事本的文件)格式如下BMT APR0104 92 0 HDZF R KYO 4971162 212400
H D Z F H D Z F
H D Z F H D Z F
H D Z F H D Z F
.......................................
.........................................
BMT APR0104 92 1 HDZF R KYO 4971162 212400
H D Z F H D Z F
H D Z F H D Z F
.....................................
.....................................其中标题 0~~~~~23变换 (代表每小时一段数据)共24小时,这是一天的数据(一个文件).
H D Z F 是地磁的四个分量,现在的目的是要排列成如下格式
H D Z F
H D Z F
H D Z F
H D Z F
H D Z F
................
................
................要导到EXCEL表格里面 ,H D Z F 各占一个字段,不只要把一天的数据如此排列,要把一个
月的文件这样排列,所以要处理数据连读,还有导出EXCEL表格事情紧急,望高手指点解决!楼上能具体点吗?来点代码吧!
ding ........................