新增函數(shù)應(yīng)用：如何遍歷板塊股票代碼

PHP代碼:--------------------------------------------------------------------------------
bk:='深圳A股';
variable:j=1,k=0,dm_len=0,lstr[6]='00000',blksum:=STKCOUNT(bk),dmstr[blksum]='';
lstr[2]:='0000';lstr[3]:='000';lstr[4]:='00';lstr[5]:='0';lstr[6]:='';
while j<=blksum do begin
  dm:=NumToStr(k,0);
  dm_len:=strlen(dm);
  dm:=lstr[dm_len]+dm;
  if stkinblock(dm,bk) then begin
    dmstr[j]:=dm;
    j:=j+1;
  end;

  k:=k+1;
end;

//以下是一些字符串函數(shù)及運(yùn)算的綜合應(yīng)用
EXPLAIN(1,dmstr[1]);  //在解盤(pán)中，輸出深圳A股第1只股票的代碼
EXPLAIN(1,stknameex(dmstr[2]));//第2只股票的名稱(chēng)
EXPLAIN(1,dmstr[3]+stknameex(dmstr[3]));//第3只股票的代碼及名稱(chēng)
EXPLAIN(1,'深圳A股第4只股票的代碼是：'+dmstr[4]);
EXPLAIN(1,dmstr[5]+'最后收盤(pán)價(jià):'+numtostr(close,2));
EXPLAIN(1,'深圳A股共有股票:'+numtostr(blksum,0)+'只');--------------------------------------------------------------------------------
　　如果您有編程的功底，上面代碼一看就明白，但對(duì)沒(méi)有編程經(jīng)驗(yàn)的狐友們來(lái)說(shuō)就不容易了。下面盡量詳細(xì)地對(duì)思路和公式代碼做一些解說(shuō)，并對(duì)代碼進(jìn)行適當(dāng)擴(kuò)展。
　　1、所謂遍歷股票代碼，就是能夠訪(fǎng)問(wèn)某板塊中所有的股票代碼，如果連訪(fǎng)問(wèn)都不能實(shí)現(xiàn)，怎么做一些更加強(qiáng)大的諸如橫向統(tǒng)計(jì)、排序的功能？
　　2、上面的公式代碼是以深圳A股板塊為例，我們看看深圳A股的股票代碼，它們都是很有規(guī)律的，000001、000002、...、000999、001696、001896，請(qǐng)注意這些代碼的特征：
　?、俟善贝a要理解成字符串，而不是數(shù)值，如果是數(shù)值的話(huà)，股票代碼就成了1、2、...、999、1696、1896。
　　②這些代碼如果轉(zhuǎn)換成數(shù)值，大體集中在某個(gè)數(shù)的范圍，如上面所示，深圳A股代碼的數(shù)值目前都小于1896，代碼的數(shù)值大多都是呈遞增1的規(guī)律，少量有跳躍的情況，比如000040跳到000042，000041不存在。
　　因此，我們初步可以設(shè)計(jì)一個(gè)循環(huán)


PHP代碼:--------------------------------------------------------------------------------
j:=0;
while j<=1896 do
begin
  j:=j+1;
end;--------------------------------------------------------------------------------

　　上面這段代碼，是個(gè)循環(huán)，每次循環(huán)都執(zhí)行一次由begin和end所包圍起來(lái)的語(yǔ)句，這里只有一條語(yǔ)句即j:=j+1，目的讓變量j從1每次循環(huán)都遞增1，直到j(luò)=1896為止。
　　j:=j+1這條賦值語(yǔ)句，初次接觸的話(huà)不大好理解，大意是這樣，右邊的j比如現(xiàn)在等于2，這條語(yǔ)句是讓右邊的j現(xiàn)有的數(shù)值加上1，然后再送回到變量j之中，執(zhí)行完這條語(yǔ)句后，j就由2遞增1變成了等于3。
　　j:=j+1，看起來(lái)有點(diǎn)象計(jì)數(shù)器的功能吧？每循環(huán)一次，計(jì)數(shù)器就增加1，因此也可以稱(chēng)變量j為計(jì)數(shù)器(變量)。
　　好了，思路敏捷的狐友，馬上就能想到，這個(gè)計(jì)數(shù)器會(huì)生成從0到1896總共1897個(gè)數(shù)值，如果進(jìn)行轉(zhuǎn)換，也就是把數(shù)值轉(zhuǎn)換成字符串，則深圳A股所有的股票代碼都包含在里面了。
　　呵呵，的確是這樣，因此我們?cè)O(shè)計(jì)下面一個(gè)稍加改進(jìn)的循環(huán)，來(lái)逼近我們要完成的任務(wù)：

PHP代碼:--------------------------------------------------------------------------------
j:=0;
while j<=1896 do
begin
  dm:=NumToStr(j,0);  //把數(shù)值j轉(zhuǎn)換成字符串并賦值給變量dm，保留小數(shù)位數(shù)0
  j:=j+1;
end;
EXPLAIN(islastbar,dm); //當(dāng)處在最后一根K線(xiàn)位置時(shí)，輸出字符串dm的內(nèi)容--------------------------------------------------------------------------------

　　最后一行代碼，是用解盤(pán)函數(shù)輸出字符串變量dm的結(jié)果，我們可以在“解”中觀察，不過(guò)這里由于dm是單值變量，不是序列變量，只能保存最后的一次結(jié)果，因此只能觀察到結(jié)果是1896。

如果想觀察其它的結(jié)果，只好改循環(huán)首語(yǔ)句，比如：
while j<=1 do

　大家可以發(fā)現(xiàn)這些結(jié)果，還有一點(diǎn)小問(wèn)題，沒(méi)有前導(dǎo)的0，即我們要的是000001、0001896，而不是1、1896這樣的字符串，怎么辦呢？
　　給它們的前面加上0就可以了，但加上0的個(gè)數(shù)有講究的，比如1在前面要加上5個(gè)0，1896前面只需加上2個(gè)0，很明顯，要加的0的個(gè)數(shù)，等于6減字符串的字符個(gè)數(shù)。因此，設(shè)計(jì)公式代碼如下：


PHP代碼:--------------------------------------------------------------------------------
variable:lstr[6]='00000';//定義一個(gè)數(shù)組lstr[6],共6個(gè)元素，并讓所有6個(gè)元素初始都等于字符串'00000'

//下面對(duì)字符串?dāng)?shù)組lstr[]第2至第6個(gè)元素重新進(jìn)行賦值，以便巧妙應(yīng)用
lstr[2]:='0000';lstr[3]:='000';lstr[4]:='00';lstr[5]:='0';lstr[6]:='';
j:=0;
while j<=1896 do
begin
  dm:=NumToStr(j,0);  //把數(shù)值j轉(zhuǎn)換成字符串并賦值給變量dm，保留小數(shù)位數(shù)0
  dm_len:=strlen(dm); //求出dm的長(zhǎng)度，并賦值給變量dm_len
  dm:=lstr[dm_len]+dm;  //由dm的長(zhǎng)度，確定應(yīng)該給dm的前面加上多少個(gè)字符0
  j:=j+1;
end;
EXPLAIN(islastbar,dm); //當(dāng)處在最后一根K線(xiàn)位置時(shí)，輸出字符串dm的內(nèi)容-------------------------------------------------------------------------------- 　對(duì)這行代碼稍加解釋?zhuān)篸m:=lstr[dm_len]+dm，如果某次循環(huán)右邊的dm等于'19',則它的字符串長(zhǎng)度為dm_len等于2，則這行代碼此時(shí)等價(jià)于dm:=lstr[2]+dm，而lstr[2]等于'0000'，結(jié)果就是在'19'的前面加上4個(gè)字符'0'即成了'000019'，然后再把'000019'賦值給dm，于是左邊的dm就等于'000019'

　　到此為止，我們只是實(shí)現(xiàn)了所生成的字符串，可以讓深圳A股的代碼全部被包含在其中，但還有大量的“廢”字符串，我們要把沒(méi)用的字符串過(guò)濾掉。取出我們真正需要的?！　∫玫降暮瘮?shù)　?、賡tkinblock(dm,bk)，函數(shù)注釋?zhuān)喝绻善贝adm從屬于板塊bk，則函數(shù)返回?cái)?shù)值1，否則返回?cái)?shù)值0　?、跅l件控制語(yǔ)句IF cond THEN expr1 ELSE expr2,意思是:當(dāng)滿(mǎn)足 cond 條件的時(shí)候，執(zhí)行語(yǔ)句 expr1，否則執(zhí)行 expr2 語(yǔ)句　　設(shè)計(jì)代碼如下：PHP代碼:--------------------------------------------------------------------------------
variable:lstr[6]='00000';
lstr[2]:='0000';lstr[3]:='000';lstr[4]:='00';lstr[5]:='0';lstr[6]:='';
j:=0;
bk:='深圳A股'; //bk賦值為字符串'深圳A股'
while j<=1896 do
begin
  dm:=NumToStr(j,0);  //把數(shù)值j轉(zhuǎn)換成字符串并賦值給變量dm，保留小數(shù)位數(shù)0
  dm_len:=strlen(dm); //求出dm的長(zhǎng)度，并賦值給變量dm_len
  dm:=lstr[dm_len]+dm;  //由dm的長(zhǎng)度，確定應(yīng)該給dm的前面加上多少個(gè)字符0
  if stkinblock(dm,bk) then //如果股票代碼dm屬于bk，則執(zhí)行下面由begin、end包含的語(yǔ)句
  begin
    dm1:=dm;  //真正需要的股票代碼是這里的dm1
  end;
  j:=j+1;
end;
EXPLAIN(islastbar,dm1); //當(dāng)處在最后一根K線(xiàn)位置時(shí)，輸出字符串dm1的內(nèi)容--------------------------------------------------------------------------------

公式代碼設(shè)計(jì)到這里似乎可以結(jié)束了，因?yàn)槲覀円慕Y(jié)果都可以生成了。其實(shí)還有改進(jìn)的余地：　?、賒m1只是個(gè)單值的字符串變量，它只能保存最后的結(jié)果，而不能保存所有的結(jié)果。這里考慮使用數(shù)組，數(shù)組可以自行定義很多個(gè)元素，讓每個(gè)元素保存一個(gè)結(jié)果?！　、谘h(huán)首的j<1896總覺(jué)得不對(duì)勁，不夠智能化，比如將來(lái)“深圳A股”板塊最后的代碼不是0001896，則這段公式代碼的結(jié)果就不對(duì)了?！　♂槍?duì)以上問(wèn)題，設(shè)計(jì)公式代碼如下： PHP代碼:--------------------------------------------------------------------------------
variable:lstr[6]='00000';
lstr[2]:='0000';lstr[3]:='000';lstr[4]:='00';lstr[5]:='0';lstr[6]:='';
j:=0;  //記錄循環(huán)次數(shù)的計(jì)數(shù)器
k:=1;  //記錄股票代碼的個(gè)數(shù)的計(jì)數(shù)器
bk:='深圳A股'; //bk賦值為字符串'深圳A股'
blksum:=STKCOUNT(bk); //板塊所包含證券數(shù)量
variable:dmstr[blksum]='';  //定義一個(gè)字符串?dāng)?shù)組用于記錄股票代碼，元素個(gè)數(shù)為blksum,初始值為空
while k<=blksum do  //當(dāng)計(jì)數(shù)器k<=blksum時(shí)，執(zhí)行以下循環(huán)
begin
  dm:=NumToStr(j,0);  //把數(shù)值j轉(zhuǎn)換成字符串并賦值給變量dm，保留小數(shù)位數(shù)0
  dm_len:=strlen(dm); //求出dm的長(zhǎng)度，并賦值給變量dm_len
  dm:=lstr[dm_len]+dm;  //由dm的長(zhǎng)度，確定應(yīng)該給dm的前面加上多少個(gè)字符0
  if stkinblock(dm,bk) then //如果股票代碼dm屬于bk，則執(zhí)行下面由begin、end包含的語(yǔ)句
  begin
    dmstr[k]:=dm;  //真正需要的股票代碼，記錄到字符串?dāng)?shù)組dmstr的第k個(gè)元素中
    k:=k+1;  //記錄找到的股票代碼的個(gè)數(shù)
  end;
  j:=j+1;  //記錄循環(huán)的次數(shù)
end;
EXPLAIN(islastbar,dmstr[1]); //當(dāng)處在最后一根K線(xiàn)位置時(shí)，輸出深圳A股第1只股票的代碼--------------------------------------------------------------------------------

　　有了以上公式，我們就可以把范圍擴(kuò)大，比如遍歷'A股板塊'的所有股票代碼，很簡(jiǎn)單，只需改一條語(yǔ)句，即把　bk:='深圳A股'　改成　bk:='A股板塊'?！　」酱a如下（且慢執(zhí)行，等下面的解說(shuō)）：PHP代碼:--------------------------------------------------------------------------------
variable:lstr[6]='00000';
lstr[2]:='0000';lstr[3]:='000';lstr[4]:='00';lstr[5]:='0';lstr[6]:='';
j:=0;  //記錄循環(huán)次數(shù)的計(jì)數(shù)器
k:=1;  //記錄股票代碼的個(gè)數(shù)的計(jì)數(shù)器
bk:='A股板塊'; //bk賦值為字符串'深圳A股'
blksum:=STKCOUNT(bk); //板塊所包含證券數(shù)量
variable:dmstr[blksum]='';  //定義一個(gè)字符串?dāng)?shù)組用于記錄股票代碼，元素個(gè)數(shù)為blksum,初始值為空
while k<=blksum do  //當(dāng)計(jì)數(shù)器k<=blksum時(shí)，執(zhí)行以下循環(huán)
begin
  dm:=NumToStr(j,0);  //把數(shù)值j轉(zhuǎn)換成字符串并賦值給變量dm，保留小數(shù)位數(shù)0
  dm_len:=strlen(dm); //求出dm的長(zhǎng)度，并賦值給變量dm_len
  dm:=lstr[dm_len]+dm;  //由dm的長(zhǎng)度，確定應(yīng)該給dm的前面加上多少個(gè)字符0
  if stkinblock(dm,bk) then //如果股票代碼dm屬于bk，則執(zhí)行下面由begin、end包含的語(yǔ)句
  begin
    dmstr[k]:=dm;  //真正需要的股票代碼，記錄到字符串?dāng)?shù)組dmstr的第k個(gè)元素中
    k:=k+1;  //記錄找到的股票代碼的個(gè)數(shù)
  end;
  j:=j+1;  //記錄循環(huán)的次數(shù)
end;
EXPLAIN(islastbar,dmstr[1]); //當(dāng)處在最后一根K線(xiàn)位置時(shí)，輸出字符串深圳A股第1只股票的代碼--------------------------------------------------------------------------------　　假如你試圖執(zhí)行這段代碼，你會(huì)發(fā)現(xiàn)好慢哦~~　　為何會(huì)這樣？因?yàn)閺纳钲贏股切換到上海A股的股票代碼時(shí)，是從1896跳躍到600000，中間有508104次空循環(huán)，這中間沒(méi)有一個(gè)代碼是真正的股票代碼，因此可以這樣來(lái)提高循環(huán)的執(zhí)行效率，在公式代碼中插入如下幾行代碼：if j=1896 then j:=599999;if j=600999 then break;　　優(yōu)化后的代碼如下： PHP代碼:--------------------------------------------------------------------------------
variable:lstr[6]='00000';
lstr[2]:='0000';lstr[3]:='000';lstr[4]:='00';lstr[5]:='0';lstr[6]:='';
j:=0;  //記錄循環(huán)次數(shù)的計(jì)數(shù)器
k:=1;  //記錄股票代碼的個(gè)數(shù)的計(jì)數(shù)器
bk:='A股板塊'; //bk賦值為字符串'深圳A股'
blksum:=STKCOUNT(bk); //板塊所包含證券數(shù)量
variable:dmstr[blksum]='';  //定義一個(gè)字符串?dāng)?shù)組用于記錄股票代碼，元素個(gè)數(shù)為blksum,初始值為空
while k<=blksum do  //當(dāng)計(jì)數(shù)器k<=blksum時(shí)，執(zhí)行以下循環(huán)
begin
  dm:=NumToStr(j,0);  //把數(shù)值j轉(zhuǎn)換成字符串并賦值給變量dm，保留小數(shù)位數(shù)0
  dm_len:=strlen(dm); //求出dm的長(zhǎng)度，并賦值給變量dm_len
  dm:=lstr[dm_len]+dm;  //由dm的長(zhǎng)度，確定應(yīng)該給dm的前面加上多少個(gè)字符0
  if stkinblock(dm,bk) then //如果股票代碼dm屬于bk，則執(zhí)行下面由begin、end包含的語(yǔ)句
  begin
    dmstr[k]:=dm;  //真正需要的股票代碼，記錄到字符串?dāng)?shù)組dmstr的第k個(gè)元素中
    k:=k+1;  //記錄找到的股票代碼的個(gè)數(shù)
  end;
  if j=1896 then j:=599999;  //計(jì)數(shù)器j直接跳到到上海A股對(duì)應(yīng)的最小代碼
  if j=600999 then break;  //如果記錄到這個(gè)代碼則跳出循環(huán)
  j:=j+1;  //記錄循環(huán)的次數(shù)
end;

//以下是一些字符串函數(shù)及運(yùn)算的綜合應(yīng)用
EXPLAIN(1,dmstr[1]);  //在解盤(pán)中，輸出深圳A股第1只股票的代碼
EXPLAIN(1,stknameex(dmstr[2]));//第2只股票的名稱(chēng)
EXPLAIN(1,dmstr[3]+stknameex(dmstr[3]));//第3只股票的代碼及名稱(chēng)
EXPLAIN(1,'深圳A股第4只股票的代碼是：'+dmstr[4]);
EXPLAIN(1,dmstr[5]+'最后收盤(pán)價(jià):'+numtostr(close,2));
EXPLAIN(1,'深圳A股共有股票:'+numtostr(blksum,0)+'只');--------------------------------------------------------------------------------　　這行代碼　if j=600999 then break　有什么用？以防萬(wàn)一，如果有人改了市場(chǎng)規(guī)則，把500001之類(lèi)的股票計(jì)入上海A股的話(huà)，這里的循環(huán)會(huì)出不來(lái)的，會(huì)造成電腦死循環(huán)，飛狐長(zhǎng)時(shí)間沒(méi)有響應(yīng)。 以上公式代碼，只是個(gè)示例，效率不太高，如果能有個(gè)方法，直接給出板塊中所有的股票代碼，那就不需要這段公式代碼?！　〗o出這個(gè)示例，是想通過(guò)大致解剖整個(gè)公式代碼的設(shè)計(jì)過(guò)程，讓大家對(duì)循環(huán)、條件語(yǔ)句有個(gè)初步的認(rèn)識(shí)?！　∽詈?，給大家個(gè)練習(xí)的機(jī)會(huì)：　　1、修改上述代碼，計(jì)算“A股板塊”的成交量（這就是橫向統(tǒng)計(jì)了）　　2、以上公式代碼，使用的是while循環(huán)，有辦法改成fox循環(huán)嗎？(當(dāng)心，在修改代碼的過(guò)程中，如果不慎的話(huà)，有可能造成死循環(huán)，對(duì)于win9x操作系統(tǒng)，也許很難退出，對(duì)于NT以上操作系統(tǒng)，可以強(qiáng)行退出)　　3、高級(jí)問(wèn)題：通過(guò)以上代碼，可以做出橫向排序，不過(guò)建議不要用代碼本身來(lái)實(shí)現(xiàn)排序（會(huì)很慢的），應(yīng)使用今天發(fā)布的新函數(shù)SORTPOS(X,D,N1,N2)來(lái)實(shí)現(xiàn)。　　4、借用論壇的一個(gè)問(wèn)題：ff:=barslast(date=1030107);周期:=5;VERTLInE(ff=0 or ff=周期*1 or ff=周期*2 or ff=周期*3 or ff=周期*4 or ff=周期*5or ff=周期*6 or ff=周期*7 or ff=周期*8 or ff=周期*9 or ff=周期*10or ff=周期*11 or ff=周期*12 or ff=周期*13 or ff=周期*14 or ff=周期*15or ff=周期*16 or ff=周期*17 or ff=周期*18 or ff=周期*19 or ff=周期*20or ff=周期*21 or ff=周期*22 or ff=周期*23 or ff=周期*24 or ff=周期*25or ff=周期*26 or ff=周期*27 or ff=周期*28 or ff=周期*29 or ff=周期*30or ff=周期*31 or ff=周期*32 or ff=周期*33 or ff=周期*34 or ff=周期*35or ff=周期*36 or ff=周期*37 or ff=周期*38 or ff=周期*39 or ff=周期*40),POInTDOT;　　把以上代碼，改成用循環(huán)表示?！　?、一個(gè)數(shù)列定義如下：f[1]=1,f[2]=1,f[n]=f[n-1]+f[n-2]，你能用循環(huán)計(jì)算出f[10]等于多少嗎？這個(gè)數(shù)列是很有名的，許多股票預(yù)測(cè)都會(huì)用到它?！　『呛?，具體我也記不住了，誰(shuí)能告訴我它叫什么？

VBS入門(mén)續(xù)：條件語(yǔ)句