利用大智慧DDE数据生成每只股票的历史数据文件(SQLServer2005)

set ANSI_NULLS ON
set QUOTED_IDENTIFIER ON
go

--股票代码生成文件函数
create function [dbo].[sp_makeStockFile](
@Ddeid varchar(20),
@Stockcode varchar(20),
@stockname varchar(20),
@Tradedate varchar(50),
@Newof varchar(20),
@Rateof varchar(20),
@Volumeof varchar(20),
@Changeof varchar(20),
@Ddx varchar(20),
@Ddy varchar(20),
@Ddz varchar(20),
@Sixtyddx varchar(20),
@Sixtyddy varchar(20),
@Tenof varchar(20),
@Continuous varchar(20),
@Mostin varchar(20),
@Mostout varchar(20),
@Bigin varchar(20),
@Bigout varchar(20),
@Smallin varchar(20),
@Smallout varchar(20),
@Buyinnum varchar(20),
@Selloutnum varchar(20),
@Closednum varchar(20),
@Eachnum varchar(20)
) returns int
as
begin
declare   @err int,@rs varchar(2000),@filePath  varchar(2000),@fileName   varchar(2000),@myyear   varchar(100),@mymonth   varchar(100),@myday   varchar(100),@mytime varchar(100),@Location varchar(100)
set @rs=@Ddeid+','+@Stockcode+','+@stockname+','+@Tradedate+','+@Newof+','+@Rateof+','+@Volumeof+','+@Changeof+','+@Ddx+','+@Ddy+','+@Ddz+','+@Sixtyddx+','+@Sixtyddy+','+@Tenof+','+@Continuous+','+@Mostin+','+@Mostout+','+@Bigin+','+@Bigout+','+@Smallin+','+@Smallout+','+@Buyinnum+','+@Selloutnum+','+@Closednum+','+@Eachnum
set @myyear= rtrim(ltrim(SUBSTRING(@Tradedate,5)))
set @mymonth=rtrim(ltrim(SUBSTRING(@Tradedate,6,2)))
set @myday=rtrim(ltrim(SUBSTRING(@Tradedate,9,2)))
set @mytime=rtrim(ltrim(SUBSTRING(@Tradedate,11,6)))
--沪市股票
if @Stockcode>=600000
set @Location='SH'
else
set @Location='SZ' --深市股票
set @filePath='E:/stockdata/'+@Location+'/'+@myyear+'/'+@mymonth+'/'+@Stockcode
set @fileName='/'+@myday+'.dat'
set @err=dbo.sp_writeTextFile(@filePath,@fileName,@rs)
--生成快照
if(@mytime='15:00')
begin
set @err=dbo.sp_writeTextFile(@filePath,@rs)
set @fileName='/'+@myday+'_snapshot.dat'
end

return @err end