易语言怎么把网页源代码里最早出现的<p>和最后一个出现的<⼀p>里面包的内容提取出来 其实p标签就

.版本 2

.子程序 取中间文本项, 文本型, , 参_取出全部内容=真 的时候 参_左边内容和参_右边内容均不可为空
.参数 参_文本内容, 文本型
.参数 参_左边内容, 文本型, 可空, 默认为文本开始位置
.参数 参_右边内容, 文本型, 可空, 默认为文本最后位置+1
.参数 参_不区分大小写, 逻辑型, 可空, 默认为不区分
.参数 参_取出全部内容, 逻辑型, 可空, 取出全部符合条件的文本
.参数 参_分割文本, 文本型, 可空, 默认为换行符
.局部变量 局部_左边位置, 整数型
.局部变量 局部_右边位置, 整数型
.局部变量 局部_上次位置, 整数型
.局部变量 局部_左边长度, 整数型
.局部变量 局部_可用循环, 逻辑型
.局部变量 局部_结果文本, 文本型

.如果真 (参_取出全部内容 ＝ 假)
    .判断开始 (参_左边内容 ＝ “”)
        局部_左边位置 ＝ 1
    .默认
        局部_左边位置 ＝ 寻找文本 (参_文本内容, 参_左边内容, , 参_不区分大小写)
    .判断结束

    .如果真 (局部_左边位置 ＝ -1)
        返回 (“”)
    .如果真结束

    ' 本源码来自易语言资源网(
)
    局部_左边长度 ＝ 取文本长度 (参_左边内容)
    局部_左边位置 ＝ 局部_左边位置 ＋ 局部_左边长度

    .判断开始 (参_右边内容 ＝ “”)
        局部_右边位置 ＝ 取文本长度 (参_文本内容) ＋ 1
    .默认
        局部_右边位置 ＝ 寻找文本 (参_文本内容, 参_右边内容, 局部_左边位置, 参_不区分大小写)
    .判断结束

    .如果真 (局部_右边位置 ＝ -1)
        返回 (“”)
    .如果真结束
    返回 (取文本中间 (参_文本内容, 局部_左边位置, 局部_右边位置 － 局部_左边位置))
.如果真结束

.如果真 (参_分割文本 ＝ “”)
    参_分割文本 ＝ #换行符
.如果真结束

局部_可用循环 ＝ 真
局部_上次位置 ＝ 1
.判断循环首 (局部_可用循环)
    局部_左边位置 ＝ 寻找文本 (参_文本内容, 参_左边内容, 局部_上次位置, 参_不区分大小写)
    .如果真 (局部_左边位置 ＝ -1)
        局部_可用循环 ＝ 假
        跳出循环 ()
    .如果真结束

    局部_左边长度 ＝ 取文本长度 (参_左边内容)
    局部_左边位置 ＝ 局部_左边位置 ＋ 局部_左边长度
    局部_右边位置 ＝ 寻找文本 (参_文本内容, 参_右边内容, 局部_左边位置, 参_不区分大小写)
    .如果真 (局部_右边位置 ＝ -1)
        ' 本源码来自易语言资源网(
)
        局部_可用循环 ＝ 假
        跳出循环 ()
    .如果真结束

    局部_结果文本 ＝ 局部_结果文本 ＋ 取文本中间 (参_文本内容, 局部_左边位置, 局部_右边位置 － 局部_左边位置) ＋ 参_分割文本
    局部_上次位置 ＝ 局部_右边位置
    处理事件 ()
.判断循环尾 ()
返回 (局部_结果文本)