|
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
（编辑：李大同）
【声明】本站内容均来自网络，其相关言论仅代表作者个人观点，不代表本站立场。若无意侵犯到您的权利，请及时与联系站长删除相关内容!
|
