精易论坛

标题: 分割文本加强版 [打印本页]

作者: 我就我    时间: 2021-11-26 02:09
标题: 分割文本加强版
  
窗口程序集名保 留  保 留备 注
窗口程序集_启动窗口   
变量名类 型数组备 注
得到文本文本型0"0"为动态文本数组
段数整数型  
次数整数型循环的次数
循环整数型分隔符的数量

子程序名返回值类型公开备 注
__启动窗口_创建完毕  
时钟1.时钟周期 = 1000
子程序名返回值类型公开备 注
_时钟1_周期事件  
透明标签1.标题 = 到文本 (取现行时间 ())  ' 取现在系统时间。
子程序名返回值类型公开备 注
_按钮文本分割_被单击  
列表框1.清空 ()  ' 清列表框内容,防止再次按下按钮出现内容重叠。
判断 (编辑框1.内容 = “”)
信息框 (“编辑框1.内容不能为空!请输入内容 。”, #警告图标, , )
返回 ()


判断 (编辑框2.内容 = “”)
信息框 (“请输入编辑框1.内容任意字符或标点!”, #警告图标, , )


如果真 (编辑框2.内容 ≠ “”)
循环 = 寻找文本 (编辑框1.内容, 编辑框2.内容, 1, )  ' 这里的循环是指编辑框2输入的内容
' 信息框 (“要寻找的文本第一次出现在第” + 到文本 (循环) + “位”, 0, , )
判断 (循环 ≠ -1)  ' -1是表示没有找到。
得到文本 = 分割文本 (编辑框1.内容, 编辑框2.内容, )
段数 = 取数组成员数 (得到文本)
计次循环首 (段数, 次数)
列表框1.加入项目 (得到文本 [次数], )
计次循环尾 ()
信息框 (“没找到要输入的字符,请输入编辑框1中的文字!”, #警告图标, , )

' 取当前鼠标处颜色值 (, , )
' 设置窗口透明度 (取鼠标所在窗口句柄 (), 100)
子程序名返回值类型公开备 注
_按钮认识输入框_被单击  
变量名类 型静态数组备 注
行数整数型 
返回值逻辑型 
返回值 = 输入框 (“请选择你要选中的行数。”, “标题”, “1”, 行数, 2, )
如果真 (返回值 = )
如果 (行数 ≥ 1 行数 ≤ 段数)  ' 必须等于1或者大于1并且小于分割后的文本段数。
信息框 (“你选择的是:”#换行符到文本 (得到文本 [行数]), 0, , )
信息框 (“没有此项选择!”, 0, , )  ' 不满足条件时执行这里。

' 谢谢大家观看!希望合同号一起学习。



i支持库列表   支持库注释   
iext扩展界面支持库一

加强版.png (29.53 KB, 下载次数: 0)

加强版.png

作者: 醉人    时间: 2021-11-26 08:51
我擦,XP系统,
作者: wjswzj0    时间: 2021-11-26 09:08
我擦,XP系统,
作者: anno    时间: 2021-11-26 09:32
我擦,XP系统,
作者: 枫槿    时间: 2021-11-26 09:32

我擦,XP系统,
作者: xjshuaishuai    时间: 2021-11-26 09:45
谢谢分享!
作者: E语言|菜鸟    时间: 2021-11-26 10:11
我擦,XP系统,
作者: xh1020    时间: 2021-11-26 10:20
我擦,XP系统,
作者: 蜗牛人生    时间: 2021-11-26 11:20
我擦,XP系统,
作者: 154251406    时间: 2021-11-26 11:24
我擦,XP系统,
作者: yq1431    时间: 2021-11-26 11:45
我擦,XP系统,
作者: 维她命╰    时间: 2021-11-26 11:48

我擦,XP系统,
作者: Suky    时间: 2021-11-26 12:09
Xp系统怎么了?
作者: 老鼠吓死猫    时间: 2021-11-26 12:43

作者: 勾栏听曲    时间: 2021-11-26 12:48
我擦,XP系统,
作者: 我就我    时间: 2021-11-26 12:57
独舞青春 发表于 2021-11-26 12:48
我擦,XP系统,

这都能看出来?大神啊!
作者: 我就我    时间: 2021-11-26 12:58
铃儿响叮当 发表于 2021-11-26 12:09
Xp系统怎么了?

就是.
作者: 我就我    时间: 2021-11-26 13:01
独舞青春 发表于 2021-11-26 12:48
我擦,XP系统,

奇怪的关注点
作者: huahuayu    时间: 2021-11-26 13:55
支持楼主,楼主辛苦了
作者: soulan    时间: 2021-11-26 14:36
我擦,XP系统,

作者: 梦幻武神坛    时间: 2021-11-26 18:19
加强版 加强在哪里?
作者: 我就我    时间: 2021-11-27 01:10
huahuayu 发表于 2021-11-26 13:55
支持楼主,楼主辛苦了

谢谢支持
作者: 我就我    时间: 2021-11-27 01:13
zl99585834 发表于 2021-11-26 18:19
加强版 加强在哪里?

你仔细看内容了吗?建议仔细看看
作者: zifeiyu    时间: 2021-11-27 15:06
keyifenxiang.............
作者: mxdn    时间: 2021-11-27 17:33
加强在哪里?
作者: 华庭大哥    时间: 2021-11-28 01:16
为什么还有在用XP系统的
作者: 我就我    时间: 2021-11-28 02:46
kirbysxh 发表于 2021-11-28 01:16
为什么还有在用XP系统的

没钱,买不起新的
作者: 杨明煜    时间: 2021-11-28 11:41
学习进步!......
作者: movemama    时间: 2021-11-29 21:33
不错 刚学习就这么强了!
作者: 我就我    时间: 2021-11-30 03:56
movemama 发表于 2021-11-29 21:33
不错 刚学习就这么强了!

谢谢支持
作者: playflash    时间: 2021-12-4 13:00
谢谢分享
作者: 我就我    时间: 2021-12-5 03:00
playflash 发表于 2021-12-4 13:00
谢谢分享

共同学习
作者: jiang7825    时间: 2021-12-21 01:16

作者: 我就我    时间: 2021-12-22 06:46
jiang7825 发表于 2021-12-21 01:16


作者: 你送的花开了    时间: 2021-12-30 07:13
支持开源~!感谢分享
作者: 我就我    时间: 2022-1-4 07:39
谢谢支持
作者: 趣冉科技    时间: 2022-1-4 22:17
感谢楼主分享,支持一下~~!!!
作者: 果心豆腐酱    时间: 2022-1-23 12:28
加强在哪里???
作者: 我就我    时间: 2022-1-31 06:24
果心豆腐酱 发表于 2022-1-23 12:28
加强在哪里???

建议用脑子思考一下加强在哪里,不要只用眼睛看,毕竟眼睛没有思考功能
作者: ghost12    时间: 2022-5-24 01:00
感谢发布原创作品,精易因你更精彩!
作者: 我就我    时间: 2022-8-14 09:51
ghost12 发表于 2022-5-24 01:00
感谢发布原创作品,精易因你更精彩!

谢谢
作者: ytm易小白    时间: 2024-8-28 07:21
过来学习下,感谢分享




欢迎光临 精易论坛 (https://125.confly.eu.org/) Powered by Discuz! X3.4