如何判断左边的每行文字颜色输出到右边

iXie5

如图，左边编辑框1为原文本，如果左边每一行的红字小于三就跳过，红字数量大于等于3就输出到编辑框2，上面那个是我手搓出来的，如何写成自动判断？

e.e (958.65 KB, 下载次数: 10)

昨天 14:21 上传

点击文件名下载附件

function888

有点烧脑

精易论坛龙

编辑框，不存在能黑能红混合，如果是超级编辑框是可以设置颜色，那么就只能通过颜色判断来取字体。既然字体都已经有颜色，直接判断颜色，提取出来

youximeng88

没看懂，算了烧脑

企鹅号525150138

  

子程序名	返回值类型	公开	备 注
__启动窗口_创建完毕

变量名	类 型	静态	数组	备 注
分割后	文本型		0
计次	整数型
数字_数组	文本型		0
计次2	整数型
内容	文本型
字符	字符格式
n	整数型
i	整数型
a	正则表达式类
aa	文本型		0

文本_逐字分割 (“陈阳列基系静空川山”, 分割后)
计次循环首 (取数组成员数 (分割后), 计次)
超级编辑框_指定文本颜色 (超级编辑框1, #红色, 分割后 [计次])
计次循环尾 ()
超级编辑框_指定文本颜色 (超级编辑框1, #红色, “88”)
aa ＝ 分割文本 (超级编辑框1.内容, #换行符, )
计次循环首 (取数组成员数 (aa), 计次)
a.创建 (数组_合并 (分割后, “|”), aa [计次])
如果真 (a.取匹配数量 () ≥ 3)
超级编辑框2.内容 ＝ 超级编辑框2.内容 ＋ aa [计次] ＋ #换行符

计次循环尾 ()
计次循环首 (取数组成员数 (分割后), 计次)
超级编辑框_指定文本颜色 (超级编辑框2, #红色, 分割后 [计次])
计次循环尾 ()

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 分割后, 文本型, , "0"<br /> .局部变量 计次, 整数型<br /> .局部变量 数字_数组, 文本型, , "0"<br /> .局部变量 计次2, 整数型<br /> .局部变量 内容, 文本型<br /> .局部变量 字符, 字符格式<br /> .局部变量 n, 整数型<br /> .局部变量 i, 整数型<br /> .局部变量 a, 正则表达式类<br /> .局部变量 aa, 文本型, , "0"<br /> <br /> <br /> 文本_逐字分割 (“陈阳列基系静空川山”, 分割后)<br /> .计次循环首 (取数组成员数 (分割后), 计次)<br />     超级编辑框_指定文本颜色 (超级编辑框1, #红色, 分割后 [计次])<br /> .计次循环尾 ()<br /> 超级编辑框_指定文本颜色 (超级编辑框1, #红色, “88”)<br /> aa ＝ 分割文本 (超级编辑框1.内容, #换行符, )<br /> .计次循环首 (取数组成员数 (aa), 计次)<br />     a.创建 (数组_合并 (分割后, “|”), aa [计次])<br />     .如果真 (a.取匹配数量 () ≥ 3)<br />         超级编辑框2.内容 ＝ 超级编辑框2.内容 ＋ aa [计次] ＋ #换行符<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> .计次循环首 (取数组成员数 (分割后), 计次)<br />     超级编辑框_指定文本颜色 (超级编辑框2, #红色, 分割后 [计次])<br /> .计次循环尾 ()

真冬

  

子程序_颜色数量大于等于一行颜色数量就输出到编辑框2 (超级编辑框1, 超级编辑框2, #红色, 3)

子程序名	返回值类型	公开	备 注
子程序_颜色数量大于等于一行颜色数量就输出到编辑框2
参数名	类 型	参考	可空	数组	备 注
参数_超级编辑框	超级编辑框
参数_超级编辑框2	超级编辑框
颜色值____	整数型
一行颜色数量	整数型

变量名	类 型	静态	数组	备 注
C位置	整数型
字符格式	字符格式
颜色计数	整数型
行首位置	整数型

判断循环首 (C位置 ＜ 参数_超级编辑框.取文本长度 ())
参数_超级编辑框.起始选择位置 ＝ C位置
参数_超级编辑框.被选择字符数 ＝ 1
如果真 (参数_超级编辑框.取选择区字符格式 ().文本颜色 ＝ 颜色值____)
颜色计数 ＝ 颜色计数 ＋ 1
如果真 (取文本右边 (参数_超级编辑框.被选择文本, 1) ＝ 字符 (10))
如果真 (颜色计数 ≥ 一行颜色数量)
处理事件 ()
参数_超级编辑框.起始选择位置 ＝ 行首位置
参数_超级编辑框.被选择字符数 ＝ C位置 － 行首位置 ＋ 1
处理事件 ()
参数_超级编辑框.复制 ()
处理事件 ()
参数_超级编辑框2.粘贴 ()
处理事件 ()
颜色计数 ＝ 0
行首位置 ＝ C位置 ＋ 1
C位置 ＝ C位置 ＋ 1
判断循环尾 ()

i支持库列表	支持库注释
iext2	扩展界面支持库二

.版本 2<br /> .支持库 iext2<br /> <br /> <br /> 子程序_颜色数量大于等于一行颜色数量就输出到编辑框2 (超级编辑框1, 超级编辑框2, #红色, 3)<br /> <br /> .子程序 子程序_颜色数量大于等于一行颜色数量就输出到编辑框2<br /> .参数 参数_超级编辑框, 超级编辑框<br /> .参数 参数_超级编辑框2, 超级编辑框<br /> .参数 颜色值____, 整数型<br /> .参数 一行颜色数量, 整数型, 可空<br /> .局部变量 C位置, 整数型<br /> .局部变量 字符格式, 字符格式<br /> .局部变量 颜色计数, 整数型<br /> .局部变量 行首位置, 整数型<br /> <br /> .判断循环首 (C位置 ＜ 参数_超级编辑框.取文本长度 ())<br />     参数_超级编辑框.起始选择位置 ＝ C位置<br />     参数_超级编辑框.被选择字符数 ＝ 1<br />     .如果真 (参数_超级编辑框.取选择区字符格式 ().文本颜色 ＝ 颜色值____)<br />         颜色计数 ＝ 颜色计数 ＋ 1<br />     .如果真结束<br />     .如果真 (取文本右边 (参数_超级编辑框.被选择文本, 1) ＝ 字符 (10))<br />         .如果真 (颜色计数 ≥ 一行颜色数量)<br />             处理事件 ()<br />             参数_超级编辑框.起始选择位置 ＝ 行首位置<br />             参数_超级编辑框.被选择字符数 ＝ C位置 － 行首位置 ＋ 1<br />             处理事件 ()<br />             参数_超级编辑框.复制 ()<br />             处理事件 ()<br />             参数_超级编辑框2.粘贴 ()<br />             处理事件 ()<br />         .如果真结束<br />         颜色计数 ＝ 0<br />         行首位置 ＝ C位置 ＋ 1<br />     .如果真结束<br />     C位置 ＝ C位置 ＋ 1<br /> .判断循环尾 ()

Marvin

e.e (1.34 MB, 下载次数: 0)

昨天 15:09 上传

点击文件名下载附件

真冬

e 1.e (960.83 KB, 下载次数: 1)

昨天 15:16 上传

点击文件名下载附件

双击标签1执行

bttp0059

你先告诉我怎么做到的编辑框双字节能变色