{显示所属板块}
//定义常量
所属板块字符串:=BLKNAME;
截取所属板块字符串:=‘ 所属板块: ‘+所属板块字符串;
单行最大显示长度:=222;//单位:字节 原260 1920*1080
截取所属板块字符串长度:=
STRL EN(截取所属板块字符串);
//定义并初始化变量
显示字符串:=‘‘;
逗号:=‘,‘;
末单字符截取位置:=单行最大显示长度+1;
单行末单个字符:=‘‘;
//判断截取长度
IF 截取所属板块字符串长度>单行最大显示长度 THEN
//截取长度超过单行最大显示长度时,开始以下运算.
BEGIN
//截取长度超过单行最大显示长度时,循环
WHILE 截取所属板块字符串长度>单行最大显示长度 DO
BEGIN
//循环计算单行最大长度前最后一个逗号的位置
WHILE
STRC MP(单行末单个字符,逗号)0 DO
BEGIN
单行末单个字符:=
STRM ID(截取所属板块字符串,末单字符截取位置,1);
末单字符截取位置:=末单字符截取位置-1;
END;
//截取截取所属板块字符串到最后逗号位置.
单行可显示字符串:=STRLEFT(截取所属板块字符串,末单字符截取位置+1)+‘\n‘;
//逗号位置所截取长度.
单行可显示字符串长度:=STRLEN(单行可显示字符串)-1;
//前段填充空格 对 所属板块字符串
截取所属板块字符串:=‘ ‘+STRMID(截取所属板块字符串,单行可显示字符串长度,0);
//填充后字符串长度.
截取所属板块字符串长度:=STRLEN(截取所属板块字符串);
//再次初始化变量.
末单字符截取位置:=单行最大显示长度+1;
单行末单个字符:=‘‘;
//对可显示字符串进行累加.
显示字符串:=显示字符串+单行可显示字符串;
END;
//累加后的可显示字符串累加最后一行截取字符串.
显示字符串:=显示字符串+截取所属板块字符串;
END;
ELSE //截取长度不超过单行最大显示长度时,进行以下运算.
显示字符串:=截取所属板块字符串;
//屏幕左上角显示输出可显示所属板块字符串.
DRAWTE
XTEX (1,0,0,72,显示字符串),color8B8B00;
{/显示所属板块}