超级编辑框着色的问题提问

咽泪装欢

  

窗口程序集名	保 留	保 留	备 注
代码着色

子程序名	返回值类型	公开	备 注
_关键字着色			用于给关键字着色
参数名	类 型	参考	可空	数组	备 注
编辑框	超级编辑框				要着色的超级编辑框
着色特征码	文本型				要着色的关键字
字体	字符格式				字符格式类型，用于定义字体、颜色等

变量名	类 型	静态	数组	备 注
i	整数型
临时起始位置	整数型
查找结果	整数型

计次循环首 (取数组成员数 (着色特征码), i)
临时起始位置 ＝ 0
查找结果 ＝ 编辑框.寻找 (临时起始位置, 假, 假, 着色特征码 [i])
判断循环首 (查找结果 ＞ -1)
编辑框.起始选择位置 ＝ 查找结果
编辑框.被选择字符数 ＝ 取文本长度 (着色特征码 [i])
编辑框.置选择区字符格式 (字体)
临时起始位置 ＝ 查找结果 ＋ 取文本长度 (着色特征码 [i])
查找结果 ＝ 编辑框.寻找 (临时起始位置, 假, 假, 着色特征码 [i])
判断循环尾 ()
计次循环尾 ()

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

.版本 2<br /> .支持库 iext2<br /> <br /> .程序集 代码着色<br /> <br /> .子程序 _关键字着色, , 公开, 用于给关键字着色<br /> .参数 编辑框, 超级编辑框, , 要着色的超级编辑框<br /> .参数 着色特征码, 文本型, 数组, 要着色的关键字<br /> .参数 字体, 字符格式, , 字符格式类型，用于定义字体、颜色等<br /> .局部变量 i, 整数型<br /> .局部变量 临时起始位置, 整数型<br /> .局部变量 查找结果, 整数型<br /> <br /> .计次循环首 (取数组成员数 (着色特征码), i)<br />     临时起始位置 ＝ 0<br />     查找结果 ＝ 编辑框.寻找 (临时起始位置, 假, 假, 着色特征码 <i>)<br />     .判断循环首 (查找结果 ＞ -1)<br />         编辑框.起始选择位置 ＝ 查找结果<br />         编辑框.被选择字符数 ＝ 取文本长度 (着色特征码 <i>)<br />         编辑框.置选择区字符格式 (字体)<br />         临时起始位置 ＝ 查找结果 ＋ 取文本长度 (着色特征码 <i>)<br />         查找结果 ＝ 编辑框.寻找 (临时起始位置, 假, 假, 着色特征码 <i>)<br />     .判断循环尾 ()<br /> <br /> .计次循环尾 ()

源码如上

调用如下

  

子程序名	返回值类型	公开	备 注
字体着色

变量名	类 型	静态	数组	备 注
字体	字符格式
特征码	文本型		0

字体.文本颜色 ＝ #蓝色
特征码 ＝ 分割文本 (“For|Next|If|ElseIf|Else|Then|End If|Do|Loop|Function|End Function|Exit Do”, “|”, )
调试输出 (特征码)
_关键字着色 (超级编辑框_代码, 特征码, 字体)

i支持库列表	支持库注释
iext2	扩展界面支持库二
spec	特殊功能支持库

.版本 2<br /> .支持库 iext2<br /> .支持库 spec<br /> <br /> .子程序 字体着色<br /> .局部变量 字体, 字符格式<br /> .局部变量 特征码, 文本型, , "0"<br /> <br /> 字体.文本颜色 ＝ #蓝色<br /> 特征码 ＝ 分割文本 (“For|Next|If|ElseIf|Else|Then|End If|Do|Loop|Function|End Function|Exit Do”, “|”, )<br /> 调试输出 (特征码)<br /> _关键字着色 (超级编辑框_代码, 特征码, 字体)

  

子程序名	返回值类型	公开	备 注
加载函数

变量名	类 型	静态	数组	备 注
文件数组	文本型		0
i	整数型
文件名	文本型
临时_文件内容	文本型
临时_分割每行文本	文本型		0

文本路径 ＝ 函数目录 ＋ 组合框_封装函数.取项目文本 (组合框_封装函数.现行选中项) ＋ “.txt”
文件_枚举 (函数目录, “*.txt”, 文件数组, , , )
如果真 (取数组成员数 (文件数组) ＝ 0)
返回 ()
计次循环首 (取数组成员数 (文件数组), i)
文件名 ＝ 子文本替换 (文件数组 [i], “.txt”, “”, , , 真)
组合框_封装函数.加入项目 (文件名, i)
计次循环尾 ()
组合框_封装函数.现行选中项 ＝ 0
文本路径 ＝ 函数目录 ＋ 组合框_封装函数.取项目文本 (组合框_封装函数.现行选中项) ＋ “.txt”
临时_文件内容 ＝ 到文本 (读入文件 (文本路径))
临时_分割每行文本 ＝ 分割文本 (临时_文件内容, #换行符, )
计次循环首 (取数组成员数 (临时_分割每行文本), i)
超级编辑框_代码.被选择文本 ＝ 临时_分割每行文本 [i] ＋ #换行符
计次循环尾 ()
字体着色 ()

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

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 加载函数<br /> .局部变量 文件数组, 文本型, , "0"<br /> .局部变量 i, 整数型<br /> .局部变量 文件名, 文本型<br /> .局部变量 临时_文件内容, 文本型<br /> .局部变量 临时_分割每行文本, 文本型, , "0"<br /> <br /> 文本路径 ＝ 函数目录 ＋ 组合框_封装函数.取项目文本 (组合框_封装函数.现行选中项) ＋ “.txt”<br /> 文件_枚举 (函数目录, “*.txt”, 文件数组, , , )<br /> .如果真 (取数组成员数 (文件数组) ＝ 0)<br />     返回 ()<br /> .如果真结束<br /> .计次循环首 (取数组成员数 (文件数组), i)<br />     文件名 ＝ 子文本替换 (文件数组 <i>, “.txt”, “”, , , 真)<br />     组合框_封装函数.加入项目 (文件名, i)<br /> .计次循环尾 ()<br /> 组合框_封装函数.现行选中项 ＝ 0<br /> <br /> 文本路径 ＝ 函数目录 ＋ 组合框_封装函数.取项目文本 (组合框_封装函数.现行选中项) ＋ “.txt”<br /> 临时_文件内容 ＝ 到文本 (读入文件 (文本路径))<br /> 临时_分割每行文本 ＝ 分割文本 (临时_文件内容, #换行符, )<br /> .计次循环首 (取数组成员数 (临时_分割每行文本), i)<br />     超级编辑框_代码.被选择文本 ＝ 临时_分割每行文本 <i> ＋ #换行符<br /> .计次循环尾 ()<br /> <br /> 字体着色 ()

出现问题
GIF.zip (145.25 KB, 下载次数: 13)

2020-8-21 17:21 上传

点击文件名下载附件
动态图附件

文字描述:
第一次加载TXT到编辑框为把关键词区分染色
第二次就成全体都变成蓝色

mrzcpo

我这边WIN10  怎么测试都没有问题 ，会不会你那边WIN7系统的问题  你把易语言菜单->工具->系统配置->存根->取消勾选 是否使用Windows通用组件支持库  试试

咽泪装欢

好 马上好 马上好 马上

18583687285

你试试把完成以后把选择起始位置和被选择字符数归零一下试试，不行的话就是代码有问题吧

咽泪装欢

咽泪装欢

aigozi 发表于 2020-8-21 18:02

代码在这里！！！

菜鸟路过

置背景颜色的时候需要把之前的选择区文字重新归0以下

菜鸟路过

发现你上面代码 着色关键字不是数组，你怎么计次循环的

菜鸟路过

这就是超编的效果

咽泪装欢

@mrzcpo 能帮忙看下