如何将二进制转换为数据?

时间:2014-07-12 03:28:39

标签: r import binary-data

我一直在尝试转换我从 R 中的API获取的二进制数据,但它没有解析并正确转换值。

以下是二进制文件的示例:

00 00 00 01 00 04 53 42 55 58 00 00 00 25 c8 42 9b cc cd 42 9c 8a 3d 42 9b b8 52 42 9c 23 d7 44 bd 5e 14 00 00 01 43 53 5c 62 40

结果应该是:

SBUX    77.9    78.27   77.86   78.07   1153261076  1/2/2014 9:30

使用正确数据类型和大小的示例代码

readBin(file2read[1:4],integer(),n=1, size=4) #Symbol Count
readBin(file2read[5:6],integer(),n=1,size=2) #Symbol length
readBin(file2read[7:10],character(),n=4) #Sympbol = SBUX
readBin(file2read[11],integer(),n=1,size=1) #Error code
readBin(file2read[12:15],integer(),n=4) #Bar Count
readBin(file2read[16:19],double(),n=4,size=4) #close
readBin(file2read[20:23],double(),n=1,size=4) #high
readBin(file2read[24:27],double(),n=1,size=4) #low
readBin(file2read[28:31],double(),n=1,size=4) #open
readBin(file2read[32:36],double(),n=1,size=4) #volume
readBin(file2read[37:44],character(),n=1,size=8) #timestamp

但它没有生成上面列出的目标结果。

1 个答案:

答案 0 :(得分:3)

行。我想我已经弄明白但是日期/时间。首先,这是您的二进制数据

rr<-as.raw(c(0x00, 0x00, 0x00, 0x01, 0x00, 0x04, 0x53, 0x42, 0x55, 
0x58, 0x00, 0x00, 0x00, 0x25, 0xc8, 0x42, 0x9b, 0xcc, 0xcd, 0x42, 
0x9c, 0x8a, 0x3d, 0x42, 0x9b, 0xb8, 0x52, 0x42, 0x9c, 0x23, 0xd7, 
0x44, 0xbd, 0x5e, 0x14, 0x00, 0x00, 0x01, 0x43, 0x53, 0x5c, 0x62, 
0x40))

我只是要写一个文件,以便通过readBin更容易地读取数据。 (另外因为看起来符号是可变长度的,所以后面的值的指示可能不同;文件连接将跟踪下一个字节。)这里我把它写到光盘,然后打开它

writeBin(rr,"test.bin")
zz <- file("test.bin", "rb")

现在我读了值

(nrec<-readBin(zz, "integer", size=4, endian="big"))
(charsize<-readBin(zz, "integer", size=2, signed=F, endian="big"))
(symbol<-readChar(zz, charsize))
(err<-readBin(zz, "integer", size=1, signed=F))
(bcount<-readBin(zz, "integer",size=4, endian="big"))
(sclose<-readBin(zz, "double",size=4, endian="big"))
(shigh<-readBin(zz, "double",size=4, endian="big"))
(slow<-readBin(zz, "double",size=4, endian="big"))
(sopen<-readBin(zz, "double",size=4, endian="big"))
(svol<-readBin(zz, "integer",size=4, endian="big"))
(sdate<-readBin(zz, "integer",size=4, n=2, endian="big"))
#done
close(zz)

所以barcount变量不在你的输出中,但它的值似乎是9672.现在日期有点棘手。它存储为64位整数。并且R似乎不想用readBin读取那些(至少不在我的机器上),所以我把它读作两个整数。您可以使用

将其转换为日期
 as.POSIXct(sdate[1]*2^32/1000 + sdate[2]/1000, origin="1970-01-01")
 # [1] "2014-01-02 09:30:00 EST"

这似乎可以正确地提取数据。一个主要问题是使用readChar作为角色,因为当你使用readBin和#34;字符&#34;它读取C风格的字符串,因此它包含以下x00readChar不这样做。我还必须小心指定值的字节序,因为&#34; big&#34;不是我系统的默认设置(我在Mac上运行)。