本帖最后由 天生天杀 于 2015-3-13 09:50 编辑
你弄一个编辑框和表格就可以了,编辑框里按12进行测试,名字是小写的y
昨天反应的问题,居然修改了 哈哈
变量 文本,bg,sfl,x1,x2,x3,属性
var 正格式="√"
var 负格式="×"
变量 b色=#FF0000
变量 p色=#6699FF
功能 编辑框0_内容改变()
文本=编辑框获取文本("编辑框0")
如果(字符串查找( 文本,"p") !=-1)
文本=字符串替换(文本,"p","P")
结束
如果(字符串查找( 文本,"b")!=-1)
文本=字符串替换(文本,"b","B")
结束
如果(字符串查找( 文本,"1")!=-1)
文本=字符串替换(文本,"1","B")
结束
如果(字符串查找( 文本,"2")!=-1)
文本=字符串替换(文本,"2","P")
结束
// 编辑框设置文本("编辑框1",文本)
八九()
结束
功能 八九()
变量 wb=文本
变量 行=3
变量 大路,值1,三,u,四,wz,值,i
如果(字符串长度(wb)%行==0)
大路=字符串长度(wb)/行
否则
大路=取整(字符串长度(wb)/行)+1
结束
变量 次序=数组(10)
变量 开始位置=数组(10)
次序[0]=wb
wz=数组(2,6)
遍历(u= 0; u < 2; u++)
sfl=""
遍历(i = wz; i < 字符串长度(wb); i++)
如果(字符串截取(wb,i,i+1)==字符串截取(wb,i-wz,i-wz+1))
值=正格式
否则
值=负格式
结束
sfl=sfl&值
结束
次序[u+1]=sfl
结束
/////
变量 位置=数组(4,1,7,11,15)
变量 y,x
bg="表格0"
遍历(u = 1; u < 3; u++)
y=大路
三=字符串长度(次序)
x=字符串长度(wb)
遍历(i=字符串长度(次序); i>-1; i--)
表格设置内容(bg,位置+x%行,y,字符串截取(次序,三,三+1))
选择(字符串截取(次序,三,三+1))
条件 "B"
表格设置选项背景色(bg,位置+x%行,y,b色)
条件 "P"
表格设置选项背景色(bg,位置+x%行,y,p色)
结束
如果(x%行==0&&x!=字符串长度(wb))
y--
结束
三--
x--
结束
结束
// 窗口设置标题(窗口获取自我句柄(),字符串字符数(wb)&" "&"口")
窗口设置标题(窗口获取自我句柄(),字符串长度(次序[2])&","&字符串长度(次序[3]))
结束
功能 表格初始化()
bg="表格0"
变量 行数=40
变量 列数=60
变量 行高=22
变量 列宽=22
变量 r_row, r_col
表格设置大小(bg,行数,列数)
表格获取大小(bg,r_row, r_col)
遍历(变量 i=0;i<r_row;i++)
遍历(变量 u=0;u<r_col;u++)
表格设置行高(bg,i,行高)
表格设置列宽(bg,u,列宽)
表格设置内容(bg,0,u,u)
表格设置内容(bg,i,0,i)
结束
结束
结束
功能 y_初始化()
表格初始化()
结束
|