我在S-Plus中运行如下代码，基本就是5楼的代码。

read.DET.data <- function(f) {
 counter <- 1
 col1.v <- c()
 col2.v <- c()
 col3.v <- c()
 
 fid <- file( f ,"rb")
 tempi <- readBin(fid,integer(), n=1)
 
 while ( length(tempi) != 0) {
  col1.v[ counter ] <- tempi
  col2.v[ counter ] <- readBin(fid, numeric(),n=1)
  col3.v[ counter ] <- readBin(fid, character(),n=1)
  counter <- counter + 1
  tempi <- readBin(fid, integer(),n=1)
 }
 close( fid )

  data.frame(col1=col1.v,col2=col2.v,col3=col3.v)

  #list(col1.v,col2.v,col3.v)
}

zz <- file("testbin.dat", "wb")
writeBin(1,zz)
writeBin(3.23,zz)
writeBin("char1",zz)
writeBin(2,zz)
writeBin(2*3.23,zz)
writeBin("char2",zz)
close(zz)

read.DET.data("testbin.dat")

#  col1 col2  col3
#1    1 3.23 char1
#2    2 6.46 char2

运行结果如下：

> read.DET.data <- function(f)
{
 counter <- 1
 col1.v <- c()
 col2.v <- c()
 col3.v <- c()
 fid <- file(f, "rb")
 tempi <- readBin(fid, integer(), n = 1)
 while(length(tempi) != 0) {
  col1.v[counter] <- tempi
  col2.v[counter] <- readBin(fid, numeric(), n = 1)
  col3.v[counter] <- readBin(fid, character(), n = 1)
  counter <- counter + 1
  tempi <- readBin(fid, integer(), n = 1)
 }
 close(fid)
 data.frame(col1 = col1.v, col2 = col2.v, col3 = col3.v)
}
> zz <- file("testbin.dat", "wb")
> writeBin(1, zz)
NULL
> writeBin(3.23, zz)
NULL
> writeBin("char1", zz)
NULL
> writeBin(2, zz)
NULL
> writeBin(2 * 3.23, zz)
NULL
> writeBin("char2", zz)
NULL
> close(zz)
[1] T
> read.DET.data("testbin.dat")
fread: No error
Problem in readBin(fid, integer(), n = 1): error reading data
Use traceback() to see the call stack

搞了半天，还是不明白为什么会出这个错误。

好像代码没有问题啊。

完全复制5楼代码，结果同样。

[此贴子已经被作者于2008-8-20 23:23:56编辑过]

我琢摩这个错误“error reading data ”,可能是因为那个读取文件内容的循环的问题。

至少在S-Plus中，当readBin读完了整个文件后，你再要它读一个integer出来，它就干净利落地抱错，而不是返回一个零长度的object.

那么，S-Plus怎么检测文件的底部呢？S-Plus好像没有EOF()函数阿。

是不是只能用file.info取到文件大小然后硬算出循环次数？

[此贴子已经被作者于2008-8-21 1:38:05编辑过]

用软件打开3楼附件中的sh600686.day文件是什么样的？能不能给个截图。

现在不好确定你说的long，single， byte各占的byte数。

没用过splus，问题是不是在wirteBin(1,zz), 怎么返回的NULL值？

S-Plus中，writeBin返回NULL是正常的。

我已经能够读取数据。就是无法检测EOF。因为S-Plus没有象R一样，对文件结束后的readBin返回零字节的object.

但是，通过计算，可以事先确定文件中记录的数目。也算是正确的编程。完全可以解决我的问题。

关于S-Plus中,如何检测二进制文件的EOF，可以作为另一问题，留待其他高手解决了。

再次感谢，请查收email。

R 程序如下，读取你附件中的 金龙汽车 股价日线文件，我与http://finance.google.cn/finance/historical?q=SHA:600686作了比较，结果应当是对的。

#####

counter <- 1

col.no<-c()

col.date<- c()        
col.open<- c()        
col.high<- c()        
col.low <- c()       
col.close<- c()       
col.amount <- c()           
col.vol <- c()
 
fid <- file("sh600686.day","rb")
tempi <- readBin(fid,"int", n=1)
 
while ( length(tempi) != 0) {
 
col.no[ counter ] <- tempi

col.date[counter]<-readBin(fid,"int")

col.open[counter]<-readBin(fid,"double",signed=F,size=4)
col.high[counter]<-readBin(fid,"double",signed=F,size=4)
col.low[counter]<-readBin(fid,"double",signed=F,size=4)
col.close[counter]<-readBin(fid,"double",signed=F,size=4)
col.amount[counter]<-readBin(fid,"double",signed=F,size=4)
col.vol[counter]<-readBin(fid,"int")

counter <- counter + 1
tempi <- readBin(fid,"int")
}
 
close(fid)
 

data.frame(
col.date=col.date,
col.open=col.open,
col.high=col.high,
col.low=col.low,
col.close=col.close,
col.amount=col.amount,
col.vol=col.vol
)->day

####

呵呵!