最近在做一個股票分析系統，想把股票系統下載的F10 資料檔案內股東人數資料讀入SQL SERVER 表內
具體情況：
系統環境 ：win7 SQL SERVER 2008 DELPHI
股東人數資料已經匯出，存在文本檔案內（.TXT檔案內） 如600100.TXT, 共有2000多個文本檔案
現考慮用Delphi批量讀入SQL SERVER，不知有無好的辦法， 也可考慮用SQL SERVER 直接讀入,
請教各位，謝謝！
uj5u.com熱心網友回復：
關鍵看文本內容的格式uj5u.com熱心網友回復：
文本是.TXT格式，想取出“股東戶數”里的環比變化（%）里的數值，文本檔案的名字是股票代碼文本檔案格式如下所示：
◆ 大股東進出 ◆ ◇大智慧資料中心制作:更新時間:2014-05-06◇
前十大股東 股東人數:319109 截止日期:2014-03-31
名稱 持股數(萬股) 占總股數 增減情況 股本性質
─────────────────────────────────────
1. 中國平安保險(集團)股份有限 477907.70 50.20% 未變 流通A股,限
公司-集團本級-自有資金 售流通股
2. 中國平安人壽保險股份有限公 60732.80 6.38% 未變 流通A股
司-自有資金
3. 中國平安人壽保險股份有限公 22554.16 2.37% 未變 流通A股
司-傳統-普通保險產品
4. 深圳中電投資股份有限公司 14858.78 1.56% 未變 流通A股
5. 葛衛東 10799.59 1.13% -6094.16 流通A股
6. 東方證券股份有限公司約定購 7510.00 0.79% 新進 流通A股
回專用賬戶
7. 中國民生銀行-銀華深證100指 4629.43 0.49% -366.38 流通A股
數分級證券投資基金
8. 南方東英資產管理有限公司- 3873.62 0.41% -112.82 流通A股
南方富時中國A50ETF
9. 中國工商銀行-融通深證100指 3524.97 0.37% -90.79 流通A股
數證券投資基金
10.中國銀行-易方達深證100交易 3313.11 0.35% -299.71 流通A股
型開放式指數證券投資基金
總 計 609704.16 64.04%
─────────────────────────────────────
前十名無限售條件股東 股東人數:319109 截止日期:2014-03-31
名稱 持股數(萬股) 占流通股 增減情況 股本性質
─────────────────────────────────────
1. 中國平安保險(集團)股份有限 83435.34 14.96% 未變 流通A股
公司-集團本級-自有資金
2. 中國平安人壽保險股份有限公 60732.80 10.89% 未變 流通A股
司-自有資金
3. 中國平安人壽保險股份有限公 22554.16 4.04% 未變 流通A股
司-傳統-普通保險產品
4. 深圳中電投資股份有限公司 14858.78 2.66% 未變 流通A股
5. 葛衛東 10799.59 1.94% -6094.17 流通A股
6. 東方證券股份有限公司約定購 7510.00 1.35% 新進 流通A股
回專用賬戶
7. 中國民生銀行-銀華深證100指 4629.43 0.83% -366.38 流通A股
數分級證券投資基金
8. 南方東英資產管理有限公司- 3873.62 0.69% -112.82 流通A股
南方富時中國A50ETF
9. 中國工商銀行-融通深證100指 3524.97 0.63% -90.79 流通A股
數證券投資基金
10.中國銀行-易方達深證100交易 3313.11 0.59% -299.71 流通A股
型開放式指數證券投資基金
總 計 215231.80 38.58%
─────────────────────────────────────
前十大股東 截止日期:2014-01-08
名稱 持股數(萬股) 占總股數 增減情況 股本性質
─────────────────────────────────────
1. 中國平安保險(集團)股份有限 477907.70 50.20% 未變 流通A股,限
公司-集團本級-自有資金 售流通股
2. 中國平安人壽保險股份有限公 60732.80 6.38% 未變 流通A股
司-自有資金
3. 中國平安人壽保險股份有限公 22554.16 2.37% 未變 流通A股
司-傳統-普通保險產品
4. 葛衛東 16893.76 1.77% 未變 流通A股
5. 深圳中電投資股份有限公司 14858.78 1.56% 未變 流通A股
6. 中國民生銀行-銀華深證100指 4995.81 0.52% 未變 流通A股
數分級證券投資基金
7. 南方東英資產管理有限公司- 3986.44 0.42% 未變 流通A股
南方富時中國A50ETF
8. 中國工商銀行-融通深證100指 3615.76 0.38% 未變 流通A股
數證券投資基金
9. 中國銀行-易方達深證100交易 3612.82 0.38% 未變 流通A股
型開放式指數證券投資基金
10.興亞集團控股有限公司 3500.00 0.37% 未變 流通A股
總 計 612658.03 64.35%
─────────────────────────────────────
前十大股東 股東人數:298070 截止日期:2013-12-31
名稱 持股數(萬股) 占總股數 增減情況 股本性質
─────────────────────────────────────
1. 中國平安保險(集團)股份有限 477907.70 50.20% 132338.00 流通A股,限
公司-集團本級-自有資金 售流通股
2. 中國平安人壽保險股份有限公 60732.80 6.38% 未變 流通A股
司-自有資金
3. 中國平安人壽保險股份有限公 22554.16 2.37% 未變 流通A股
司-傳統-普通保險產品
4. 葛衛東 16893.76 1.77% 未變 流通A股
5. 深圳中電投資股份有限公司 14858.78 1.56% 未變 流通A股
6. 中國民生銀行-銀華深證100指 4995.81 0.52% 未變 流通A股
數分級證券投資基金
7. 南方東英資產管理有限公司- 3986.44 0.42% 未變 流通A股
南方富時中國A50ETF
8. 中國工商銀行-融通深證100指 3615.76 0.38% 未變 流通A股
數證券投資基金
9. 中國銀行-易方達深證100交易 3612.82 0.38% 未變 流通A股
型開放式指數證券投資基金
10.興亞集團控股有限公司 3500.00 0.37% 未變 流通A股
總 計 612658.03 64.35%
─────────────────────────────────────
◆控股股東和實際控制人◆
一、控股股東
名 稱: 中國平安保險(集團)股份有限公司
法人代表: 馬明哲
注冊資本: 791614.21萬元
成立日期: 1988-03-21
經營業務: 投資保險企業；監督管理控股投資企業的各種國內、國際業務；開展保險
資金運用業務；經批準開展國內、國際保險業務；經中國保險監督管理委
員會及國家有關部門批準的其他業務。
企業型別: 中外合資企業
二、實際控制人
名 稱: 無
說 明: -
◆股東戶數◆
截止日期 股東戶數 環比增減 環比變化(%) 人均持股
─────────────────────────────────────
2014-03-31 319109 8774 2.83 17473
2014-02-28 310335 12265 4.11 17967
2013-12-31 298070 7016 2.41 18707
2013-09-30 291054 9235 3.28 17071
2013-06-30 281819 24834 9.66 17630
2013-03-31 256985 23468 10.05 12084
2013-03-01 233517 -29960 -11.37 13298
2012-12-31 263477 -18020 -6.40 11786
2012-09-30 281497 -1880 -0.66 11032
2012-06-30 283377 7708 2.80 10958
2012-03-31 275669 6090 2.26 11265
2012-02-29 269579 -3367 -1.23 11519
2011-12-31 272946 -1257 -0.46 11377
2011-09-30 274203 -11239 -3.94 11325
2011-06-30 285442 -55874 -16.37 10879
2011-03-31 341316 -11339 -3.22 9098
2010-12-31 352655 13111 3.86 8806
2010-09-30 339544 44284 15.00 9146
2010-06-30 295260 42840 16.97 10517
2010-03-31 252420 21849 9.48 11584
2009-12-31 230571 -29669 -11.40 12682
2009-09-30 260240 16278 6.67 11235
2009-06-30 243962 -4735 -1.90 11984
2009-03-31 248697 -46519 -15.76 11197
2008-12-31 295216 46357 18.63 9432
2008-09-30 248859 -15847 -5.99 8607
2008-06-30 264706 -4762 -1.77 8092
2008-03-31 269468 19042 7.60 6520
2007-12-31 250426 65926 35.73 6801
2007-09-30 184500 -87655 -32.21 8402
2007-06-30 272155 -23489 -7.95 5696
2007-03-31 295644 -110589 -27.22 4767
2006-12-31 406233 -104435 -20.45 3469
2006-09-30 510668 -32836 -6.04 2760
2006-06-30 543504 -59494 -9.87 2593
2006-03-31 602998 -18314 -2.95 2337
2005-12-31 621312 -9677 -1.53 2268
2005-09-30 630989 -14712 -2.28 2234
2005-06-30 645701 -13154 -2.00 2183
2005-03-31 658855 -7341 -1.10 2139
2004-12-31 666196 -5992 -0.89 2116
2004-09-30 672188 -4442 -0.66 2095
2004-06-30 676630 3607 0.54 2082
2004-03-31 673023 -29438 -4.19 2093
2003-12-31 702461 -1696 -0.24 2005
2003-09-30 704157 8182 1.18 2000
2003-06-30 695975 15555 2.29 2024
2003-03-31 680420 3909 0.58 2070
2002-12-31 676511 34282 5.34 2082
2002-09-30 642229 -46327 -6.73 2193
2002-06-30 688556 -90012 -11.56 2045
2001-12-31 778568 -31432 -3.88 1809
2000-12-31 810000 45875 6.00 1719
2000-06-30 764125 58682 8.32 1401
1999-12-31 705443 -209135 -22.87 1518
1998-12-31 914578 -3753 -0.41 1171
1998-06-30 918331 84860 10.18 1166
1997-12-31 833471 502971 152.18 1285
1996-12-31 330500 150500 83.61 2160
1995-12-31 180000 - - 1985
─────────────────────────────────────
uj5u.com熱心網友回復：
procedure TFrmZDCDZP.BtnTransJianClick(Sender: TObject);
var StrDate,StrZPH,StrJE,StrJD,fname1,fname2,s:string;
f1,f2:textFile;
ch:char;
i,pp,j:integer;
getdate:Boolean;
begin
if (leftStr(ComboBoxCPH.Text,4)<>'建行')then
begin
showmessage('出票行有誤！');
exit;
end;
AssignFile(f1,StxtFileName.Caption);
Reset(f1);
//readLn(f1); //跳過一行
while not eof(f1) do
begin
getDate:=True;
StrDate:='';
StrZPH:='';
StrJD:='';
StrJE:='';
readLn(f1, s);
if s='' then
Continue;
StrDate:=copy(s,3,10);
StrZPH:=copy(s,48,16); //1050443024598670
StrJD:=copy(s,67,4);
StrJE:=copy(copy(s,75,length(s)-1),1,pos('"',copy(s,75,length(s)-1))-1);
{// showmessage(s);
read(f1,ch);
if (ch<>'"') then
begin
readln(f1);
continue;
end;
while ch<>',' do //日期
begin
if ((ch>='0') and (ch <= '9')) or (ch='-') then StrDate:=StrDate+ch;
read(f1,ch);
end;
read(f1,ch);
while ch<>',' do read(f1,ch); //跳過時間
read(f1,ch);
while ch<>',' do read(f1,ch); //跳過憑證種類
read(f1,ch);
while ch<>',' do //憑證號
begin
if (ch>='0') and (ch<='9') then StrZPH:=StrZPH+ch;
read(f1,ch);
end;
read(f1,ch);
while ch<>',' do //借貸
begin
if (ch<>'"') then StrJD:=StrJD+ch;
read(f1,ch);
end;
read(f1,ch);
while ch<>',' do //金額
begin
if ((ch>='0') and (ch<='9')) or (ch='.') then StrJE:=StrJE+ch;
read(f1,ch);
end;
//readln(f1);
}
if strJD='借方' then
with ADOquery4 do
begin
Close;
SQL.Clear;
SQL.Add('select top 1 * from 支票兌現');
open;
append;
FieldByName('支票號').AsString:=Rightstr(StrZPH,8);
FieldByName('金額').AsFloat:=StrToFloat(Trim(StrJE));
FieldByName('承兌日期').AsDateTime:=StrToDate(StrDate);
FieldByName('出票銀行').AsString:=Trim(ComboBoxCPH.Text);
Post;
end;
// showmessage(StrDate+' '+StrZPH+' '+StrJE);
ReadLn(f1);
end;
CloseFile(f1);
PP:=Pos('未',StxtFileName.Caption);
fname1:=StxtFileName.Caption;
fname2:=Leftstr(fname1,pp-1)+'已'+Rightstr(fname1,length(fname1)-pp-1);
CopyFile(PChar(fname1),PChar(fname2),False);
DeleteFile(fname1);
showmessage('轉換成功！');
ADOQuery1.Close;
ADOQuery1.Open;
SumUp;
end;
這是我讀取支票明細的 你看看有沒有用. 檔案名如果是有序的.可以回圈..
uj5u.com熱心網友回復：
只要說是固定格式就好辦，按格式讀取就是了uj5u.com熱心網友回復：
支持采用正則方法，提取資料，填入資料庫uj5u.com熱心網友回復：
貌似auqfiudh的有參考價值，先謝謝uj5u.com熱心網友回復：
要不用第三方控制元件試試吧。uj5u.com熱心網友回復：
這樣的程式我做過我是從 通達信 中匯入的
如果你用的也是通達信，我的那段程式可以直接使用
uj5u.com熱心網友回復：
哦 原來你用的是大智慧啊應該也差不多
先定位到關鍵字串 如 ◆股東戶數◆
然后采用詞法分析中的方法 一行行或一個個讀取就行
uj5u.com熱心網友回復：
@johnyale 您好！ 能把代碼貼出？或發我郵箱 [email protected] 多謝啊uj5u.com熱心網友回復：
這是我匯入股東人數等資料的函式 比較簡單。你可以和通達信的F10資料比較著看procedure TfrmMain.ImportStockHolderCount(StockCode: string; Buf: pchar; BufLen: integer; FileProvider: integer);
const
SearchStringVsatsh = '歷年人均持股情況';
SearchStringGA = '【2.股東戶數】';
var
p, p0, p1: pchar;
str, SearchString: string;
FormatSettings: TFormatSettings;
SQL, SQLBASE: string;
strDATE, strLTG, strGDRS, strRJCG: string;
i: integer;
procedure CheckColumnWidth(ColumnWidth: integer);
begin
if (ColumnWidth <= 0) or (ColumnWidth > 20) then
raise Exception.Create('Not Valid width!');
end;
var
ColumnWidth: integer;
begin
FormatSettings.DateSeparator := '-';
FormatSettings.LongDateFormat := 'yyyy-mm-dd';
FormatSettings.ShortDateFormat := 'yyyy-mm-dd';
if FileProvider = Vsatsh then
SearchString := SearchStringVsatsh
else if FileProvider = GA then
SearchString := SearchStringGA
else
;
SQLBASE := 'INSERT INTO STOCKOWNERCOUNT (CODE , DATE, LTG, GDRS, RJCG) VALUES '; //(:CODE , :DATE, :LTG, :GDRS, :RJCG);';
if FileProvider = Vsatsh then
begin
//查找'歷年人均持股情況'
p0 := SearchBuf(Buf, BufLen, 0, Length(SearchString), SearchString, [SoDown]);
if p0 = nil then
exit;
//跳過多余的行
for I := 1 to 4 do
begin
p0 := SearchBuf(p0, BufLen - (p0 - buf), 0, 2, #$0D#$0A, [SoDown]);
if p0 = nil then
exit;
end;
while True do
begin
try
//日期
p0 := p0 + 2;
p1 := SearchBuf(p0, BufLen - (p0 - buf), 0, 1, '│', [SoDown]);
ColumnWidth := p1 - p0;
CheckColumnWidth(ColumnWidth);
SetLength(str, ColumnWidth);
Move(p0[0], str[1], ColumnWidth);
strDate := trim(str);
StrToDate(strDate, FormatSettings); //檢查str的合法性
//流通股
p0 := p1 + Length('│');
p1 := SearchBuf(p0, BufLen - (p0 - buf), 0, 1, '│', [SoDown]);
ColumnWidth := p1 - p0;
CheckColumnWidth(ColumnWidth);
SetLength(str, ColumnWidth);
Move(p0[0], str[1], ColumnWidth);
str := trim(str);
for i := Length(str) downto 1 do
begin
if not (str[i] in ['1'..'9', '0', '.']) then
begin
str := RightStr(str, Length(str) - i);
break;
end;
end;
strLTG := str;
strToFloat(strLTG); //檢查str的合法性
//股東人數
p0 := p1 + Length('│');
p1 := SearchBuf(p0, BufLen - (p0 - buf), 0, 1, '│', [SoDown]);
ColumnWidth := p1 - p0;
CheckColumnWidth(ColumnWidth);
SetLength(str, ColumnWidth);
Move(p0[0], str[1], ColumnWidth);
strGDRS := trim(str);
StrToInt(strGDRS);
//人均持股
p0 := p1 + Length('│');
p1 := SearchBuf(p0, BufLen - (p0 - buf), 0, 1, '│', [SoDown]);
ColumnWidth := p1 - p0;
CheckColumnWidth(ColumnWidth);
SetLength(str, ColumnWidth);
Move(p0[0], str[1], ColumnWidth);
strRJCG := trim(str);
StrToFloat(strRJCG);
SQL := SQLBASE + '('
+ '''' + StockCode + '''' + ', '
+ '''' + strDate + '''' + ', '
+ strLTG + ', '
+ strGDRS + ', '
+ strRJCG
+ ');';
try
dmmain.ZConnStockF10.ExecuteDirect(SQL);
except
end;
p0 := SearchBuf(p0, BufLen - (p0 - buf), 0, 2, #$0D#$0A, [SoDown]);
if p0 = nil then
exit;
except
Exit;
end;
end;
end
else if FileProvider = GA then
begin
p0 := buf;
for I := 1 to 2 do
begin
p0 := SearchBuf(p0, BufLen, 0, Length(SearchString), SearchString, [SoDown]);
if p0 = nil then
exit;
end;
for I := 1 to 4 do
begin
p0 := SearchBuf(p0, BufLen - (p0 - buf), 0, 2, #$0D#$0A, [SoDown]);
if p0 = nil then
exit;
end;
while True do
begin
try
//日期
p0 := p0 + 2 + Length('｜');
p1 := SearchBuf(p0, BufLen - (p0 - buf), 0, Length('｜'), '｜', [SoDown]);
ColumnWidth := p1 - p0;
CheckColumnWidth(ColumnWidth);
SetLength(str, ColumnWidth);
Move(p0[0], str[1], ColumnWidth);
strDate := trim(str);
StrToDate(strDate, FormatSettings); //檢查str的合法性
//股東戶數
p0 := p1 + Length('｜');
p1 := SearchBuf(p0, BufLen - (p0 - buf), 0, Length('｜'), '｜', [SoDown]);
ColumnWidth := p1 - p0;
CheckColumnWidth(ColumnWidth);
SetLength(str, ColumnWidth);
Move(p0[0], str[1], ColumnWidth);
strGDRS := trim(str);
StrToInt(strGDRS);
//人均持股
p0 := p1 + Length('｜');
p1 := SearchBuf(p0, BufLen - (p0 - buf), 0, Length('｜'), '｜', [SoDown]);
ColumnWidth := p1 - p0;
CheckColumnWidth(ColumnWidth);
SetLength(str, ColumnWidth);
Move(p0[0], str[1], ColumnWidth);
strRJCG := trim(str);
StrToFloat(strRJCG);
//流通股
strLTG := IntToStr(RoundEx(StrToInt(strGDRS) * StrToFloat(strRJCG) / 10000));
SQL := SQLBASE + '('
+ '''' + StockCode + '''' + ', '
+ '''' + strDate + '''' + ', '
+ strLTG + ', '
+ strGDRS + ', '
+ strRJCG
+ ');';
try
dmmain.ZConnStockF10.ExecuteDirect(SQL);
except
end;
for I := 1 to 2 do
begin
p0 := SearchBuf(p0, BufLen - (p0 - buf), 0, 2, #$0D#$0A, [SoDown]);
if p0 = nil then
exit;
end;
except
Exit;
end;
end;
end
else
begin
end;
end;
uj5u.com熱心網友回復：
還可以從一些網頁中讀取 這樣的話 就不用保存匯出F10檔案了。兩者的速度都能接受uj5u.com熱心網友回復：
先謝謝，我好久沒有DELPHI了，不知各位現在在用哪個版本了？uj5u.com熱心網友回復：
有資料除錯起來比較容易，就說說簡單的思路1.取檔案名為股票代碼
2.打開檔案
3.從第一個‘————————————’下一行開始讀取資料
4.取每行的前兩個字符是 '1.','2.','3.'.....的表示這是新的一條資料記錄，按照固定寬度（或特殊間隔符）截取資料保存的變數中。
5.去下一行資料，如果不是編號('1.','2.','3.'....)則說明是上一行資料的部分內容，按固定寬度（或特殊間隔符)截取并與對應的變數字串連接，生成完整的資料后保存到資料庫中。
6.回圈4~5步驟直至遇到‘總 計’一行停止，完成一個文本檔案數匯入。
轉載請註明出處，本文鏈接：https://www.uj5u.com/houduan/107218.html
標籤：數據庫相關
上一篇：如何得到某個顏色的淺色？