大橙子网站建设,新征程启航
为企业提供网站建设、域名注册、服务器等服务
超级编辑框中寻找指定文本并选中
创新互联为您提适合企业的网站设计 让您的网站在搜索引擎具有高度排名,让您的网站具备超强的网络竞争力!结合企业自身,进行网站设计及把握,最后结合企业文化和具体宗旨等,才能创作出一份性化解决方案。从网站策划到成都网站设计、网站建设、外贸网站建设, 我们的网页设计师为您提供的解决方案。
.版本 2 .支持库 iext2 .程序集 窗口程序集1 .子程序 __启动窗口_创建完毕 .子程序 取字符数, 整数型 .参数 文本, 文本型 .局部变量 长度, 整数型 .局部变量 个数, 整数型 .局部变量 字符位置, 整数型 长度 = 取文本长度 (文本) 个数 = 长度 字符位置 = 1 .判断循环首 (字符位置 < 长度) .如果 (取代码 (取文本中间 (文本, 字符位置, 1), ) < 0 或 取代码 (取文本中间 (文本, 字符位置, 1), ) = 13) 个数 = 个数 - 1 字符位置 = 字符位置 + 2 .否则 字符位置 = 字符位置 + 1 .如果结束 .判断循环尾 () 返回 (个数) .子程序 _按钮_寻找文本_被单击 .局部变量 字符位置, 整数型 .局部变量 文本, 文本型 超级编辑框_文本.获取焦点 () 字符位置 = 寻找文本 (超级编辑框_文本.内容, 编辑框_输入要寻找的文本.内容, , 假) .如果真 (字符位置 ≠ -1) 文本 = 取文本左边 (超级编辑框_文本.内容, 字符位置 - 1) 超级编辑框_文本.起始选择位置 = 取字符数 (文本) 超级编辑框_文本.被选择字符数 = 取字符数 (编辑框_输入要寻找的文本.内容) .如果真结束
运行结果:
总结
以上就是这篇文章的全部内容了,希望本文的内容对大家的学习或者工作具有一定的参考学习价值,谢谢大家对创新互联的支持。如果你想了解更多相关内容请查看下面相关链接