LJ:='申万行业';
a:=getbklist(LJ); //得到所有的一级申万行业
r:=array();
for i:=0 to length(a)-1 do
begin
hy:=a[i];
echo hy;
shy:=getbklist(LJ+'\\'+hy); //得到每个一级行业下的二级行业
for j:=0 to length(shy)-1 do
begin
tmp:=getbk(shy[j]);
tmp:=select thisrow as '代码',
hy as '申万一级行业',
shy[j] as '申万二级行业'
from tmp end;
r&=tmp; //相当于r:=r union tmp;
end;
end;
return r;
部分结果:
LJ:='股票\\行业类别\\证监会行业';
a:=getbklist(LJ); //得到所有的一级证监会行业
r:=array();
for i:=0 to length(a)-1 do
begin
hy:=a[i];
echo hy;
shy:=getbklist(LJ+'\\'+hy); //得到每个一级行业下的二级行业
for j:=0 to length(shy)-1 do
begin
tmp:=getbk(shy[j]);
tmp:=select thisrow as '代码',
hy as '证监会一级行业',
shy[j] as '证监会二级行业'
from tmp end;
r&=tmp; //相当于r:=r union tmp;
end;
end;
return r;
部分结果: