双击编辑框里面的内容，复制双击位置前面的文本到剪贴板

sql8500

有一段文本没有任何规律，要人工分段，分成多个段，  现把文本读取到 编辑框，人工双击要剪切的位置，把双击位置前面的文本，复制剪切到剪贴板，有没有大神有简便 的方法，或者模块，在线跪求

尛龍科技

sql8500 发表于 2025-12-15 07:51

  

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

[/quote]
[e=0].版本 2

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

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

编辑框1.内容 ＝ “我们是中国人，中国人有1,2 ,3  ,5  ,8”

子程序名	返回值类型	公开	备 注
_编辑框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
前面文本	文本型

前面文本 ＝ 获取双击前文本 ()
如果真 (前面文本 ≠ “”)
置剪辑板文本 (前面文本)
调试输出 (“已复制: ” ＋ 前面文本)
调试输出 (“复制了”, 取文本长度 (前面文本), “个字符”)

返回 (假)

子程序名	返回值类型	公开	备 注
获取双击前文本	文本型

变量名	类 型	静态	数组	备 注
文本	文本型
字节数据	字节集
光标显示位置	整数型
实际字节位置	整数型
字符计数	整数型

文本 ＝ 编辑框1.内容
字节数据 ＝ 到字节集 (文本)
光标显示位置 ＝ 编辑框1.起始选择位置
调试输出 (“光标显示位置(字符):”, 光标显示位置)
如果真 (光标显示位置 ≤ 0)
返回 (“”)

字符计数 ＝ 0
实际字节位置 ＝ 1
循环判断首 ()
如果真 (实际字节位置 ＞ 取字节集长度 (字节数据))
跳出循环 ()

字符计数 ＝ 字符计数 ＋ 1
如果 (字节数据 [实际字节位置] ＞ 127)
实际字节位置 ＝ 实际字节位置 ＋ 2  ' 中文字符占2字节
实际字节位置 ＝ 实际字节位置 ＋ 1  ' 英文字符占1字节

如果真 (字符计数 ≥ 光标显示位置)
跳出循环 ()

循环判断尾 (真)
调试输出 (“实际字节位置:”, 实际字节位置)
调试输出 (“文本总字节数:”, 取字节集长度 (字节数据))
如果真 (实际字节位置 ＞ 取字节集长度 (字节数据))
实际字节位置 ＝ 取字节集长度 (字节数据)

如果真 (实际字节位置 ＞ 1)
返回 (到文本 (取字节集左边 (字节数据, 实际字节位置 － 1)))
返回 (“”)
返回 (“”)

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

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口</blockquote></div><br /> [e=0].版本 2<br /> .支持库 spec<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 __启动窗口_创建完毕<br /> <br /> 编辑框1.内容 ＝ “我们是中国人，中国人有1,2 ,3  ,5  ,8”<br /> <br /> .子程序 _编辑框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 前面文本, 文本型<br /> <br /> 前面文本 ＝ 获取双击前文本 ()<br /> .如果真 (前面文本 ≠ “”)<br />     置剪辑板文本 (前面文本)<br />     调试输出 (“已复制: ” ＋ 前面文本)<br />     调试输出 (“复制了”, 取文本长度 (前面文本), “个字符”)<br /> .如果真结束<br /> <br /> 返回 (假)<br /> <br /> .子程序 获取双击前文本, 文本型<br /> .局部变量 文本, 文本型<br /> .局部变量 字节数据, 字节集<br /> .局部变量 光标显示位置, 整数型<br /> .局部变量 实际字节位置, 整数型<br /> .局部变量 字符计数, 整数型<br /> <br /> 文本 ＝ 编辑框1.内容<br /> 字节数据 ＝ 到字节集 (文本)<br /> 光标显示位置 ＝ 编辑框1.起始选择位置<br /> 调试输出 (“光标显示位置(字符):”, 光标显示位置)<br /> .如果真 (光标显示位置 ≤ 0)<br />     返回 (“”)<br /> .如果真结束<br /> <br /> 字符计数 ＝ 0<br /> 实际字节位置 ＝ 1<br /> <br /> .循环判断首 ()<br />     .如果真 (实际字节位置 ＞ 取字节集长度 (字节数据))<br />         跳出循环 ()<br />     .如果真结束<br /> <br />     字符计数 ＝ 字符计数 ＋ 1<br />     .如果 (字节数据 [实际字节位置] ＞ 127)<br />         实际字节位置 ＝ 实际字节位置 ＋ 2  ' 中文字符占2字节<br />     .否则<br />         实际字节位置 ＝ 实际字节位置 ＋ 1  ' 英文字符占1字节<br />     .如果结束<br /> <br />     .如果真 (字符计数 ≥ 光标显示位置)<br />         跳出循环 ()<br />     .如果真结束<br /> <br /> .循环判断尾 (真)<br /> <br /> 调试输出 (“实际字节位置:”, 实际字节位置)<br /> 调试输出 (“文本总字节数:”, 取字节集长度 (字节数据))<br /> .如果真 (实际字节位置 ＞ 取字节集长度 (字节数据))<br />     实际字节位置 ＝ 取字节集长度 (字节数据)<br /> .如果真结束<br /> <br /> .如果真 (实际字节位置 ＞ 1)<br />     返回 (到文本 (取字节集左边 (字节数据, 实际字节位置 － 1)))<br />     返回 (“”)<br /> .如果真结束<br /> 返回 (“”)

自己根据代码修改到你那边吧

yangxuan87

//参考这个

  

子程序名	返回值类型	公开	备 注
超级编辑框_被选择文本_高亮显示			用在 “_超级编辑框1_鼠标左键被放开”事件下等等...
参数名	类 型	参考	可空	数组	备 注
超级编辑框	超级编辑框
起始索引	整数型				默认全部内容
高亮颜色	整数型				被选择文本颜色
文本颜色	整数型				默认文本颜色；一般为空不改变
背景颜色	整数型				默认不改变

变量名	类 型	静态	数组	备 注
被选择文本	文本型
被选择字符数	整数型
起始选择位置	整数型
字符格式	字符格式
索引	整数型

被选择文本 ＝ 超级编辑框.被选择文本
被选择字符数 ＝ 超级编辑框.被选择字符数
如果真 (被选择文本 ＝ “”)
返回 ()

如果真 (是否为空 (文本颜色) ＝ 假)
字符格式.文本颜色 ＝ 文本颜色
超级编辑框.起始选择位置 ＝ 0
超级编辑框.被选择字符数 ＝ 超级编辑框.取文本长度 ()
超级编辑框.置选择区字符格式 (字符格式)

如果真 (是否为空 (背景颜色) ＝ 假)
超级编辑框.背景颜色 ＝ 背景颜色

字符格式.文本颜色 ＝ 高亮颜色
索引 ＝ 超级编辑框.寻找 (起始索引, , , 被选择文本)
判断循环首 (索引 ＞ 0)
超级编辑框.起始选择位置 ＝ 索引
超级编辑框.被选择字符数 ＝ 被选择字符数
超级编辑框.置选择区字符格式 (字符格式)
索引 ＝ 超级编辑框.寻找 (索引 ＋ 被选择字符数, , , 被选择文本)
判断循环尾 ()
超级编辑框.被选择字符数 ＝ 0

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

.版本 2<br /> .支持库 iext2<br /> <br /> .子程序 超级编辑框_被选择文本_高亮显示, , 公开, 用在 “_超级编辑框1_鼠标左键被放开”事件下等等...<br /> .参数 超级编辑框, 超级编辑框<br /> .参数 起始索引, 整数型, 可空, 默认全部内容<br /> .参数 高亮颜色, 整数型, , 被选择文本颜色<br /> .参数 文本颜色, 整数型, 可空, 默认文本颜色；一般为空不改变<br /> .参数 背景颜色, 整数型, 可空, 默认不改变<br /> .局部变量 被选择文本, 文本型<br /> .局部变量 被选择字符数, 整数型<br /> .局部变量 起始选择位置, 整数型<br /> .局部变量 字符格式, 字符格式<br /> .局部变量 索引, 整数型<br /> <br /> 被选择文本 ＝ 超级编辑框.被选择文本<br /> 被选择字符数 ＝ 超级编辑框.被选择字符数<br /> .如果真 (被选择文本 ＝ “”)<br />     返回 ()<br /> .如果真结束<br /> <br /> .如果真 (是否为空 (文本颜色) ＝ 假)<br />     字符格式.文本颜色 ＝ 文本颜色<br />     超级编辑框.起始选择位置 ＝ 0<br />     超级编辑框.被选择字符数 ＝ 超级编辑框.取文本长度 ()<br />     超级编辑框.置选择区字符格式 (字符格式)<br /> .如果真结束<br /> <br /> .如果真 (是否为空 (背景颜色) ＝ 假)<br />     超级编辑框.背景颜色 ＝ 背景颜色<br /> .如果真结束<br /> <br /> 字符格式.文本颜色 ＝ 高亮颜色<br /> 索引 ＝ 超级编辑框.寻找 (起始索引, , , 被选择文本)<br /> .判断循环首 (索引 ＞ 0)<br />     超级编辑框.起始选择位置 ＝ 索引<br />     超级编辑框.被选择字符数 ＝ 被选择字符数<br />     超级编辑框.置选择区字符格式 (字符格式)<br />     索引 ＝ 超级编辑框.寻找 (索引 ＋ 被选择字符数, , , 被选择文本)<br /> .判断循环尾 ()<br /> 超级编辑框.被选择字符数 ＝ 0

尛龍科技

  

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

子程序名	返回值类型	公开	备 注
_编辑框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
光标位置	整数型
前面文本	文本型

光标位置 ＝ 编辑框1.起始选择位置
如果真 (光标位置 ＞ 0)
前面文本 ＝ 取文本左边 (编辑框1.内容, 光标位置 × 2)
如果真 (前面文本 ≠ “”)
置剪辑板文本 (前面文本)


返回 (假)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _编辑框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 光标位置, 整数型<br /> .局部变量 前面文本, 文本型<br /> <br /> 光标位置 ＝ 编辑框1.起始选择位置<br /> .如果真 (光标位置 ＞ 0)<br />     前面文本 ＝ 取文本左边 (编辑框1.内容, 光标位置 × 2)<br />     .如果真 (前面文本 ≠ “”)<br />         置剪辑板文本 (前面文本)<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> 返回 (假)

这样即可

RainCharm

  

子程序名	返回值类型	公开	备 注
_编辑框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
当前光标位置	整数型
编辑框内容	文本型
前面文本	文本型

当前光标位置 ＝ 编辑框1.起始选择位置
编辑框内容 ＝ 编辑框1.内容
如果 (当前光标位置 ＞ 0)
前面文本 ＝ 取文本左边 (编辑框内容, 当前光标位置)



如果 (前面文本 ≠ “”)
置剪辑板文本 (前面文本)
编辑框1.内容 ＝ 取文本右边 (编辑框内容, 取文本长度 (编辑框内容) － 当前光标位置)
编辑框2.获取焦点 ()
编辑框1.起始选择位置 ＝ 0
信息框 (“没有文本可复制”, 0, , )

返回 (真)

.版本 2<br /> <br /> .子程序 _编辑框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 当前光标位置, 整数型<br /> .局部变量 编辑框内容, 文本型<br /> .局部变量 前面文本, 文本型<br /> <br /> <br /> 当前光标位置 ＝ 编辑框1.起始选择位置<br /> 编辑框内容 ＝ 编辑框1.内容<br /> .如果 (当前光标位置 ＞ 0)<br />     前面文本 ＝ 取文本左边 (编辑框内容, 当前光标位置)<br /> .否则<br /> <br /> .如果结束<br /> <br /> .如果 (前面文本 ≠ “”)<br />     置剪辑板文本 (前面文本)<br />     编辑框1.内容 ＝ 取文本右边 (编辑框内容, 取文本长度 (编辑框内容) － 当前光标位置)<br />     编辑框2.获取焦点 ()<br />     编辑框1.起始选择位置 ＝ 0<br /> .否则<br />     信息框 (“没有文本可复制”, 0, , )<br /> .如果结束<br /> <br /> 返回 (真)

更全的版本

sql8500

尛龍科技 发表于 2025-12-14 16:17

  

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

[/quote]
[e=0].版本 2

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

子程序名	返回值类型	公开	备 注
_按钮1_被单击

编辑框1.内容 ＝ “我们是中国人，中国人有1,2 ,3  ,5  ,8”

子程序名	返回值类型	公开	备 注
_编辑框1_被双击	逻辑型
参数名	类 型	参考	可空	数组	备 注
横向位置	整数型
纵向位置	整数型
功能键状态	整数型

变量名	类 型	静态	数组	备 注
光标位置	整数型
前面文本	文本型

光标位置 ＝ 编辑框1.起始选择位置
如果真 (光标位置 ＞ 0)
前面文本 ＝ 取文本左边 (编辑框1.内容, 光标位置 × 2)
如果真 (前面文本 ≠ “”)
置剪辑板文本 (前面文本)
编辑框2.内容 ＝ 前面文本


返回 (假)

.版本 2<br /> <br /> .程序集 窗口程序集_启动窗口</blockquote></div><br /> [e=0].版本 2<br /> <br /> .程序集 窗口程序集_启动窗口<br /> <br /> .子程序 _按钮1_被单击<br /> <br /> 编辑框1.内容 ＝ “我们是中国人，中国人有1,2 ,3  ,5  ,8”<br /> <br /> .子程序 _编辑框1_被双击, 逻辑型<br /> .参数 横向位置, 整数型<br /> .参数 纵向位置, 整数型<br /> .参数 功能键状态, 整数型<br /> .局部变量 光标位置, 整数型<br /> .局部变量 前面文本, 文本型<br /> <br /> 光标位置 ＝ 编辑框1.起始选择位置<br /> .如果真 (光标位置 ＞ 0)<br />     前面文本 ＝ 取文本左边 (编辑框1.内容, 光标位置 × 2)<br />     .如果真 (前面文本 ≠ “”)<br />         置剪辑板文本 (前面文本)<br />         编辑框2.内容 ＝ 前面文本<br />     .如果真结束<br /> <br /> .如果真结束<br /> <br /> 返回 (假)

大哥，你代码最简洁，但是有文本有数字或者有半字节的就会出错，有没有办法解决

尛龍科技

sql8500 发表于 2025-12-15 07:51
[e=0].版本 2

.程序集 窗口程序集_启动窗口

稍等我给你修复一下

sql8500

尛龍科技 发表于 2025-12-15 14:49
[e=0].版本 2
.支持库 spec

.版本 2

.如果 (实际字节位置 ＞ 取字节集长度 (字节数据))
    实际字节位置 ＝ 取字节集长度 (字节数据)
.否则
    实际字节位置 ＝ 实际字节位置 － 1
感谢大神，看了一小时终于看明白并找出问题，非常感谢