谁帮我写个这样的易语言软件 保留带引号的文字
谁帮我写个这样的易语言软件保留带引号的文字比如--龙腾188886把"龙腾188886"加入群只保留--龙腾188886...
谁帮我写个这样的易语言软件 保留带引号的文字比如--龙腾188886把 "龙腾188886" 加入群
只保留
--龙腾188886 展开
只保留
--龙腾188886 展开
1个回答
2017-11-16
展开全部
以下是代码,只要拖放一个按钮和一个编辑框将下面的文本复制到易语言上粘贴就可以了:
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
_启动窗口.宽度 = 727
_启动窗口.高度 = 453
编辑框1.宽度 = 704
编辑框1.高度 = 376
编辑框1.是否允许多行 = 真
按钮1.左边 = 291
按钮1.顶边 = 388
按钮1.宽度 = 80
按钮1.高度 = 32
按钮1.标题 = “复制”
.子程序 _按钮1_被单击
.局部变量 文本, 文本型
.局部变量 文本位置1, 整数型
.局部变量 文本位置2, 整数型
.局部变量 文本数组, 文本型, , "0"
.局部变量 数组成员, 整数型
.局部变量 i, 整数型
.如果真 (编辑框1.内容 = “”)
返回 ()
.如果真结束
文本 = 删全部空 (编辑框1.内容)
.循环判断首 ()
文本位置1 = 寻找文本 (文本, #引号, 文本位置2 + 1, 假)
文本位置2 = 寻找文本 (文本, #引号, 文本位置1 + 1, 假)
.如果真 (文本位置1 ≠ -1 且 文本位置2 ≠ -1)
加入成员 (文本数组, 取文本中间 (文本, 文本位置1 + 1, 文本位置2 - 文本位置1 - 1))
.如果真结束
.循环判断尾 (文本位置1 ≠ -1 且 文本位置2 ≠ -1)
数组成员 = 取数组成员数 (文本数组)
.如果真 (数组成员 = 0)
信息框 (“无法处理”, 0, , )
返回 ()
.如果真结束
文本 = “”
.计次循环首 (数组成员, i)
.如果 (文本 = “”)
文本 = 文本数组 [i]
.否则
文本 = 文本 + #换行符 + 文本数组 [i]
.如果结束
.计次循环尾 ()
置剪辑板文本 (文本)
信息框 (“文本已复制”, 0, , )
.版本 2
.程序集 窗口程序集_启动窗口
.子程序 __启动窗口_创建完毕
_启动窗口.宽度 = 727
_启动窗口.高度 = 453
编辑框1.宽度 = 704
编辑框1.高度 = 376
编辑框1.是否允许多行 = 真
按钮1.左边 = 291
按钮1.顶边 = 388
按钮1.宽度 = 80
按钮1.高度 = 32
按钮1.标题 = “复制”
.子程序 _按钮1_被单击
.局部变量 文本, 文本型
.局部变量 文本位置1, 整数型
.局部变量 文本位置2, 整数型
.局部变量 文本数组, 文本型, , "0"
.局部变量 数组成员, 整数型
.局部变量 i, 整数型
.如果真 (编辑框1.内容 = “”)
返回 ()
.如果真结束
文本 = 删全部空 (编辑框1.内容)
.循环判断首 ()
文本位置1 = 寻找文本 (文本, #引号, 文本位置2 + 1, 假)
文本位置2 = 寻找文本 (文本, #引号, 文本位置1 + 1, 假)
.如果真 (文本位置1 ≠ -1 且 文本位置2 ≠ -1)
加入成员 (文本数组, 取文本中间 (文本, 文本位置1 + 1, 文本位置2 - 文本位置1 - 1))
.如果真结束
.循环判断尾 (文本位置1 ≠ -1 且 文本位置2 ≠ -1)
数组成员 = 取数组成员数 (文本数组)
.如果真 (数组成员 = 0)
信息框 (“无法处理”, 0, , )
返回 ()
.如果真结束
文本 = “”
.计次循环首 (数组成员, i)
.如果 (文本 = “”)
文本 = 文本数组 [i]
.否则
文本 = 文本 + #换行符 + 文本数组 [i]
.如果结束
.计次循环尾 ()
置剪辑板文本 (文本)
信息框 (“文本已复制”, 0, , )
更多追问追答
追问
问一下
比如有的退出群的 我不想要 怎么弄呢
本回答被提问者和网友采纳
已赞过
已踩过<
评论
收起
你对这个回答的评价是?
博思aippt
2024-07-20 广告
2024-07-20 广告
博思AIPPT是基于ai制作PPT的智能在线工具,它提供了4种AI制作PPT的方式,包括AI生成大纲、AI直接生成PPT、文本生成PPT、AI提炼文档生成PPT,一站式集成多种AI生成PPT的方式,可满足办公用户的不同需求和使用场景。ai生...
点击进入详情页
本回答由博思aippt提供
推荐律师服务:
若未解决您的问题,请您详细描述您的问题,通过百度律临进行免费专业咨询