文本置顶

wc6czucs

文本是.txt文件


原文本：
啊啊啊----不不不----去去去----哈哈哈----热热热----通天塔----急急急----iii----哦哦哦
男男女----买买买----快快快----iiii----uuuu----一样一样----凄凄切切----哈哈哈哈----不不不
vvvv----啛啛喳喳----柔柔弱弱----隐隐约约----发发发----急急急----易语言----uuu----洒洒水
去去去----啛啛喳喳----柔柔弱弱----隐隐约约----发发发----急急急----易语言----uuu----洒洒水
需要置顶的文本：
男男女----买买买----快快快----iiii----uuuu----一样一样----凄凄切切----哈哈哈哈----不不不
去去去----啛啛喳喳----柔柔弱弱----隐隐约约----发发发----急急急----易语言----uuu----洒洒水
置顶后文本：
男男女----买买买----快快快----iiii----uuuu----一样一样----凄凄切切----哈哈哈哈----不不不
去去去----啛啛喳喳----柔柔弱弱----隐隐约约----发发发----急急急----易语言----uuu----洒洒水
啊啊啊----不不不----去去去----哈哈哈----热热热----通天塔----急急急----iii----哦哦哦
vvvv----啛啛喳喳----柔柔弱弱----隐隐约约----发发发----急急急----易语言----uuu----洒洒水

意思就是把需要置顶的内容 去原文本里面找 如果各项参数都对上了 就把这条内容移到顶上去 最好能给源码~

蛀牙

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

2023-11-26 17:23 上传

点击文件名下载附件

847437161

  

窗口程序集名	保 留	保 留	备 注
窗口程序集_启动窗口

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

变量名	类 型	静态	数组	备 注
原文本	文本型
置顶文本	文本型		0
替换后文本	文本型
i	整数型

原文本 ＝ 编辑框1.内容
加入成员 (置顶文本, “去去去----啛啛喳喳----柔柔弱弱----隐隐约约----发发发----急急急----易语言----uuu----洒洒水”)
加入成员 (置顶文本, “男男女----买买买----快快快----iiii----uuuu----一样一样----凄凄切切----哈哈哈哈----不不不”)
替换后文本 ＝ 原文本  ' 用于后面循环
计次循环首 (取数组成员数 (置顶文本), i)
调试输出 (寻找文本 (原文本, 置顶文本 [i], , 假))
如果真 (寻找文本 (原文本, 置顶文本 [i], , 假) ≠ -1)  ' 如果没有不执行
替换后文本 ＝ 文本_替换 (替换后文本, , , , 置顶文本 [i], “”)  ' 找到置顶的内容后，吧置顶文本变成空文本
替换后文本 ＝ 置顶文本 [i] ＋ #换行符 ＋ 替换后文本  ' 吧置顶文本放前面加上上门删除后的文本

计次循环尾 ()
调试输出 (替换后文本)

i支持库列表	支持库注释
spec	特殊功能支持库

.版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> .局部变量 原文本, 文本型<br /> .局部变量 置顶文本, 文本型, , "0"<br /> .局部变量 替换后文本, 文本型<br /> .局部变量 i, 整数型<br /> <br /> 原文本 ＝ 编辑框1.内容<br /> 加入成员 (置顶文本, “去去去----啛啛喳喳----柔柔弱弱----隐隐约约----发发发----急急急----易语言----uuu----洒洒水”)<br /> 加入成员 (置顶文本, “男男女----买买买----快快快----iiii----uuuu----一样一样----凄凄切切----哈哈哈哈----不不不”)<br /> 替换后文本 ＝ 原文本  ' 用于后面循环<br /> <br /> .计次循环首 (取数组成员数 (置顶文本), i)<br />     调试输出 (寻找文本 (原文本, 置顶文本 <i>, , 假))<br />     .如果真 (寻找文本 (原文本, 置顶文本 <i>, , 假) ≠ -1)  ' 如果没有不执行<br />         替换后文本 ＝ 文本_替换 (替换后文本, , , , 置顶文本 <i>, “”)  ' 找到置顶的内容后，吧置顶文本变成空文本<br />         替换后文本 ＝ 置顶文本 <i> ＋ #换行符 ＋ 替换后文本  ' 吧置顶文本放前面加上上门删除后的文本<br />     .如果真结束<br /> <br /> .计次循环尾 ()<br /> <br /> 调试输出 (替换后文本)

用了精易模块，可以试试不一定正确，

鹏书

https://www.bilibili.com/video/BV1kM4y1f72b/