易语言如何按行取文本引号中间的内容?

编辑框1是原文本内容(例如:第一行、是看能否很少发生"术后是是从屏幕上看看" 第二行、哦好的飞机首飞看法和思考"的那些的经历顶级美女")。按一下按钮开始从文本的第一行开始搜索,如果遇到引号就取出它的内容到编辑框2(注:可能一行内有多组引号),如果该行中没有引号则继续往下一行搜索,直到找到有引号的行。编辑框2的内容可以随意修改,修改完后按一下就会把修改后的内容替换成编辑框1原来该行的内容
最新回答
我阅君心

2024-05-05 14:16:27

.版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 内容, 文本型

内容 = “〈12345679例子〉”
编辑框1.内容 = 取指定内容 (内容, “〈”, “〉”)

.子程序 取指定内容, 文本型, , 取出想要的内容
.参数 完整内容, 文本型
.参数 左边文本, 文本型, , 取出想要的内容段的左边
.参数 右边文本, 文本型, , 取出想要的内容段的右边
.局部变量 临时位置, 整数型
.局部变量 总长度, 整数型
.局部变量 临时文本, 文本型

总长度 = 取文本长度 (完整内容)
临时位置 = 寻找文本 (完整内容, 左边文本, , 假) + 取文本长度 (左边文本)
临时文本 = 取文本中间 (完整内容, 临时位置, 总长度)
总长度 = 取文本长度 (临时文本)
临时位置 = 寻找文本 (临时文本, 右边文本, , 假) - 1
临时文本 = 取文本中间 (临时文本, 1, 临时位置)
返回 (临时文本)