本帖最后由 天生天杀 于 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_初始化() 
    表格初始化() 
结束 
 |