读写文件的问题
我项目中需要读写数据,就写了一段读写随机文件的代码,如下:FileName = App.Path & "\calibration.txt"
Open FileName For Random As #1
Put #1, 13, 24.1
Put #1, 14, 100.1
Get #1, 1, ShiftF
Get #1, 2, RatioF
Get #1, 3, Speed
Get #1, 4, ZeroDot
Get #1, 5, FirstDot
Get #1, 6, SecondDot
Get #1, 7, LittleCoefficient
Get #1, 8, LargeCoefficient
Get #1, 9, KNNKggkgf
Get #1, 10, PullPush
Get #1, 11, Sensor
Get #1, 12, StrengthData
Get #1, 13, intXMax
Get #1, 14, intYMax
Close #1
原来
Public intXMax As Long 'X轴显示坐标的最大值,由于时间可以突破65535秒,所以将变量设为长整型
Public intYMax As Long 'Y轴显示坐标的最大值
intXMin,intYMax是长整型数据,没问题。
后来把这两个变量改为单精度型数据,就出了问题。
我还在程序里强制性的把这两个数据写为
Put #1, 13, 24.1
Put #1, 14, 100.1
24.1和100.1.
结果读出来就变了
请高手看看,哪里有问题?谢谢!