如何用R调用迅雷和WinRAR

dengyishuo

本贴旨在讨论如何用R获取股票分时数据，广泛征集正解。目前的工作进度如下：

一、直接下载分数数据压缩包，使用下面函数可以完成。

<br />
download.file(url="ftp://datadown:88515808@down.88158.cn/sh/sh20100323.rar",destfile="E://dat",quiet=T,cacheOK=T)

要注意的有两点：

1、destfile的参数设置，这个路径不能与现存的文件夹重复。

2、飞狐数据的每日上传时间是下午4点以后，此时点后的数据不能下载。

3、下载的数据是qrt格式，如何显化？

二、数据显化

<br />
data=readBin("E://sh20100323.qrt")<br />
data1=rawToChar(data)<br />

问题是，显示的文件格式比较乱。如何将其整理为.csv格式等？

talentyxc

system('"d:/Program Files/Thunder Network/Thunder/Thunder.exe"')

talentyxc

不过估计你是要调用迅雷完成下载任务，在.net里可以通过调用迅雷的com组件来建立和执行下载任务，如果R有调用com组件的接口那么应该也可以

yanlinlin82

个人觉得用Rcurl之类的包比用迅雷这样的巨无霸要好得多。

dengyishuo

回复第4楼的 yanlinlin82：不管什么方法，如果能实现数据下载与数据解压的结合就可以。

yanlinlin82

回复第5楼的邓一硕：system()和多尝试便是正解，你可以把你写的代码发上来，供大家一起研究研究。

dengyishuo

回复第6楼的 yanlinlin82：调用迅雷不是问题，但是调用之后，如何新建为任务，是个难题，因为不知道迅雷里新建下载任务调用哪一个.exe

Ihavenothing

迅雷的话还真不好说，估计它也没有提供多少可以利用的接口吧。解压的话可以用unrar这个软件，http://download.gna.org/unrar/，把它打包成一个dll供R调用还是可行的。

yihui

下载不能用download.file()么？

talentyxc

\Thunder Network\Thunder\ComDlls\ThunderAgent_Now.dll是迅雷的com类库，用SWinTypeLibs包可以打开看里面函数：

<br />
library(SWinTypeLibs)<br />
lib=LoadTypeLib('D:\\Program Files\\Thunder Network\\Thunder\\ComDlls\\ThunderAgent_Now.dll')</p>
<p>names(libs)<br />
getFuncs(libs[[2]])<br />
getFuncs(libs[[3]])<br />
getFuncs(libs[[4]])<br />

omegahat上貌似有R和COM组件连的包，不过没仔细研究，反正c#是可以调用这个com来建立迅雷任务并执行的，如果R可以调用com，那么也就可以用迅雷了

yanlinlin82

回复第10楼的 talentyxc：没研究过R调用COM组件，不知道有没有直接的函数或包，没有的话，倒是可以自己写一个，似乎应用前景还很广泛。

itellin

回复第12楼的邓一硕：

今天是24日，飞狐的数据要下午4：30才能传上来。

但我用23日的数据，发现还是有问题。

<br />
download.file(url="ftp://datadown:88515808@down.88158.cn/sh/sh20100323.rar",<br />
+ destfile="E://data",quiet=T,cacheOK=T)<br />
错误于download.file(url = "ftp://datadown:88515808@down.88158.cn/sh/sh20100323.rar",  :<br />
  无法打开目的文件'E://data'，原因是'Permission denied'<br />

dengyishuo

回复第9楼的谢益辉：试过download.file()的，缺点是速度太慢，如果能调用迅雷，几秒钟就可以完成。

itellin

回复第1楼的邓一硕：请教邓版主下载完后怎么不见.rar的标记，这样无法解压。这组数据解压后的格式是QRT,怎么解决这个问题。

yanlinlin82

我在想，是否可以把R自身的download.file()改造成为一个支持多线程的东西？

itellin

回复第15楼的 yanlinlin82：

那真是太好了，R确实能做很多事情，发挥你的聪明才智，让我们也开开眼。

yanlinlin82

回复第16楼的 itellin：呃～～这只是个构想，我还没打算真做的[s:12]。我知道R是个单线程程序，所以跟大家探讨一下这类问题的可行性而已。

itellin

回复第1楼的邓一硕：

R 与迅雷下载时间基本相同，我用迅雷6进行下载，时间是00：03：17，用R下载时间是00：03：11

带宽：2M 上海分时数据容量：34M

<br />
 system.time(download.file(url="ftp://datadown:88515808@down.88158.cn/sh/sh20100324.rar",destfile="E://dat",quiet=T,cacheOK=T)<br />
+ )<br />
  用户   系统   流逝<br />
  0.28   1.02 191.00<br />

dengyishuo

回复第18楼的 itellin：我这里迅雷比较快，只需要十几秒！你能不能发一个1分钟数据的数据结构出来。

itellin

回复第19楼的邓一硕：

一分钟数据，容量5.88M，迅雷的时间是42秒，R的时间是41秒。

<br />
 system.time(download.file(url="ftp://datadown:88515808@down.88158.cn/gpmin1/sh20100324m1.rar",destfile="E://dat",quiet=T,cacheOK=T))<br />
 用户  系统  流逝<br />
 1.00  0.22 40.74<br />