您所在位置：主题：机械振动二进制数据文件的读取和处理..
shangxiao
[专家分：0] 发布于 2011-06-27 17:50:00
有一个传感器收集到得机械振动的.dat文件，需要编写一个处理该数据的程序，需要文件读取模块、时域分析模块和频域分析模块。
读文件我是这样写的，但是读出来的是乱码，是不是不用管，已经可以处理了？
Private Sub Command1_Click()
Dim DAT() As Byte
Dim FileSize As Long '文件长度
FileSize = FileLen("d:\9c1氢压机A7.dat") '获取文件长度
ReDim DAT(FileSize - 1) As Byte
Open "d:\9c1氢压机A7.dat" For Binary As #1
Get #1, , DAT
Debug.Print DAT()
Close
End Sub
还有时域分析和频域分析，没有一点头绪。。。
求高人指点
本文转载自：http://www.gobenet.net.cn[url=http://www.gobenet.net.cn]http://www.gobenet.net.cn[/url]
读文件我是这样写的，但是读出来的是乱码，是不是不用管，已经可以处理了？
Private Sub Command1_Click()
Dim DAT() As Byte
Dim FileSize As Long '文件长度
FileSize = FileLen("d:\9c1氢压机A7.dat") '获取文件长度
ReDim DAT(FileSize - 1) As Byte
Open "d:\9c1氢压机A7.dat" For Binary As #1
Get #1, , DAT
Debug.Print DAT()
Close
End Sub
还有时域分析和频域分析，没有一点头绪。。。
求高人指点
本文转载自：http://www.gobenet.net.cn[url=http://www.gobenet.net.cn]http://www.gobenet.net.cn[/url]