以下是引用taohua300在2012-5-12 14:58:08的发言:
如果真有ctobin这个函数,并且可用
也不用拘泥于使用Fopen和fRead
你看看,这样用也挺好
Clear
lcFileString = Filetostr('sh600004.day')
?Ctobin(Substr(lcFileString,1,4),'4rs')
?Ctobin(Substr(lcFileString,5,4),'4rs')
?Ctobin(Substr(lcFileString,9,4),'4rs')
?Ctobin(Substr(lcFileString,13,4),'4rs')
?Ctobin(Substr(lcFileString,17,4),'4rs')
?Ctobin(Substr(lcFileString,21,4),'4rs')
......
如果真有ctobin这个函数,并且可用
也不用拘泥于使用Fopen和fRead
你看看,这样用也挺好
Clear
lcFileString = Filetostr('sh600004.day')
?Ctobin(Substr(lcFileString,1,4),'4rs')
?Ctobin(Substr(lcFileString,5,4),'4rs')
?Ctobin(Substr(lcFileString,9,4),'4rs')
?Ctobin(Substr(lcFileString,13,4),'4rs')
?Ctobin(Substr(lcFileString,17,4),'4rs')
?Ctobin(Substr(lcFileString,21,4),'4rs')
......
filetostr()在vfp5.0里没有,sh600004.day可以有几年的数据。
现在剩下4个字节浮点数怎么读出来?见二楼说明