将解禁股显示在左上角

将解禁股显示在左上角

编写要求：

解答：

网友求助：

解禁股:=SelfString('限售流通股. 大智慧');
XOffset:= 0;
YOffset:= 60;
lineHeight:= 18;
pos1bc:= STRFIND(解禁股, ';', 1);
pos2bc:= STRFIND(解禁股, ';', pos1bc + 1);
pos3bc:= STRFIND(解禁股, ';', pos2bc + 1);
pos4bc:= STRFIND(解禁股, ';', pos3bc + 1);
pos5bc:= STRFIND(解禁股, ';', pos4bc + 1);
str1bc:= STRMID(解禁股, 1 , pos1bc-1);
str2bc:= STRMID(解禁股, pos1bc + 1, pos2bc - pos1bc - 1);
str3bc:= STRMID(解禁股, pos2bc + 1, pos3bc - pos2bc - 1);
str4bc:= STRMID(解禁股, pos3bc + 1, pos4bc - pos3bc - 1);
str5bc:= STRMID(解禁股, pos4bc + 1, pos5bc - pos4bc - 1);
IF pos1bc THEN DRAWTEXTABS(XOffset, YOffset + lineHeight , '解禁股： '+ str1bc), Color00FF00;
IF pos1bc AND pos2bc THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 2, str2bc), ColorF0FF0F;
IF pos1bc AND pos2bc AND pos3bc THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 3, str3bc), Color00FF00;
IF pos1bc AND pos2bc AND pos3bc AND pos4bc THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 4, str4bc), ColorF0FF0F;
IF pos1bc AND pos2bc AND pos3bc AND pos4bc AND pos5bc THEN DRAWTEXTABS(XOffset + 52, YOffset + lineHeight * 5, str5bc), Color00FF00;