宝宝天下第二 发表于 2021-2-12 18:13:11

易锦大学第五课【寻找文本】

.版本 2
.支持库 spec

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

.子程序 _按钮1_被单击
.局部变量 文本的左边, 整数型
.局部变量 文本的右边, 整数型
.局部变量 要取的文本长度, 整数型
.局部变量 我要的文本, 文本型

文本的左边 ＝ 寻找文本 (#常量2, “行各种”, , 假) ＋ 6
调试输出 (文本的左边)
文本的右边 ＝ 寻找文本 (#常量2, “，各地”, 文本的左边, 假)
' 当后面要取的文本在全文本中多次出现时，可以在寻找文本的第三个参数中添加起始位置，以增加分辨。
调试输出 (文本的右边)
要取的文本长度 ＝ 文本的右边 － 文本的左边
我要的文本 ＝ 取文本中间 (#常量2, 文本的左边, 要取的文本长度)
调试输出 (我要的文本)

宝宝天下第二 发表于 2021-2-12 18:15:27

代码中的常量2可在窗口中插入常量，然后在常量窗口右键选“新长文本长量”，再单击文本长度就可添加文本内容。。注意调用常量时前面要加#号哦

宝宝天下第二 发表于 2021-2-12 18:24:50

.版本 2
.支持库 spec

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

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

返回内容 ＝ _寻找 (#常量2, “行各种”, “，各地”)
调试输出 (返回内容)


.子程序 _寻找, 文本型
.参数 主文本, 文本型
.参数 第一个要找的文本, 文本型
.参数 第二个要找的文本, 文本型
.局部变量 文本的左边, 整数型
.局部变量 文本的右边, 整数型
.局部变量 要取的文本长度, 整数型
.局部变量 我要的文本, 文本型

文本的左边 ＝ 寻找文本 (主文本, 第一个要找的文本, , 假) ＋ 6
调试输出 (文本的左边)
文本的右边 ＝ 寻找文本 (主文本, 第二个要找的文本, 文本的左边, 假)
' 当后面要取的文本在全文本中多次出现时，可以在寻找文本的第三个参数中添加起始位置，以增加分辨。
调试输出 (文本的右边)
要取的文本长度 ＝ 文本的右边 － 文本的左边
我要的文本 ＝ 取文本中间 (主文本, 文本的左边, 要取的文本长度)
调试输出 (我要的文本)
返回 (我要的文本)


宝宝天下第二 发表于 2021-2-12 18:25:28

.版本 2
.支持库 spec

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

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

返回内容 ＝ _寻找 (#常量2, “行各种”, “，各地”)
调试输出 (返回内容)


.子程序 _寻找, 文本型
.参数 主文本, 文本型
.参数 第一个要找的文本, 文本型
.参数 第二个要找的文本, 文本型
.局部变量 文本的左边, 整数型
.局部变量 文本的右边, 整数型
.局部变量 要取的文本长度, 整数型
.局部变量 我要的文本, 文本型

文本的左边 ＝ 寻找文本 (主文本, 第一个要找的文本, , 假) ＋ 6
调试输出 (文本的左边)
文本的右边 ＝ 寻找文本 (主文本, 第二个要找的文本, 文本的左边, 假)
' 当后面要取的文本在全文本中多次出现时，可以在寻找文本的第三个参数中添加起始位置，以增加分辨。
调试输出 (文本的右边)
要取的文本长度 ＝ 文本的右边 － 文本的左边
我要的文本 ＝ 取文本中间 (主文本, 文本的左边, 要取的文本长度)
调试输出 (我要的文本)
返回 (我要的文本)

宝宝天下第二 发表于 2021-2-12 18:26:05

我的常量文字内容是：百节年为首，春节是中华民族最隆重的传统佳节，它不仅集中体现了中华民族的思想信仰、理想愿望、生活娱乐和文化心理，而且还是祈福、攘灾、饮食和娱乐活动的狂欢式展示。在春节期间，全国各地均有举行各种贺岁活动，各地因地域文化不同而又存在着习俗内容或细节上的差异，带有浓郁的各地域特色。受到中华文化的影响，世界上一些国家和地区也有庆贺新春的习俗。

宝宝天下第二 发表于 2021-2-12 18:29:59

第二个代码就相当于封装了一个查找模块，，但是要注意“文本的左边最后是+6”，那么在“_寻找”这个程序的“第一个参数”里只能填“6个字节的内容”。

宝宝天下第二 发表于 2021-2-12 18:42:12

.版本 2
.支持库 spec

.子程序 _按钮3_被单击
.局部变量 内容, 整数型

内容 ＝ 倒找文本 (“我是一个大帅哥”, “一”, , 假)
调试输出 (内容)
' 倒找文本只是从“哥”开始找，但是系统的位置还是默认不变，“我”的左侧是1位，“是”的左侧是3位，返回的是个整数，所以倒找文本“一”返回的是5.


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

内容2 ＝ 到全角 (到文本 (123456))
调试输出 (123456)
调试输出 (内容2)
' 到全角就是把数字转成文本格式，，，文本格式每个字占2个字符，每个数字自身只占1个字符

azw80 发表于 2021-2-13 22:11:52

终于知道模块是这么来的

宝宝天下第二 发表于 2021-2-14 21:12:43

.版本 2

.程序集 窗口程序集_启动窗口
.程序集变量 内容, 文本型
.程序集变量 结果, 文本型

.子程序 _按钮1_被单击
.局部变量 开始位, 整数型
.局部变量 尾部位, 整数型
.局部变量 目标文本位置, 整数型

.循环判断首 ()
    开始位 ＝ 寻找文本 (#常量2, “https”, 开始位 ＋ 1, 假)
    尾部位 ＝ 寻找文本 (#常量2, “>”, 开始位, 假) － 1
    目标文本位置 ＝ 尾部位 － 开始位
    内容 ＝ 取文本中间 (#常量2, 开始位, 目标文本位置)
    结果 ＝ 子文本替换 (内容, #引号, “”, , , 真)
    编辑框1.加入文本 (结果)
    编辑框1.加入文本 (#换行符)
.循环判断尾 (开始位 ≠ -1)

宝宝天下第二 发表于 2021-2-14 21:14:59

楼上是寻找文本里多个超链接的方法，注意文本里超链接不一定是https也可能是http
页: [1] 2
查看完整版本: 易锦大学第五课【寻找文本】