才接触易语言，求大佬给优化下代码，已上传附件左边文...

zaiye · 发表于 2025-2-13 14:05:06

高先生 · 发表于 2025-2-13 14:05:07

求大佬给优化下代码，已上传附件.e (165.41 KB, 下载次数: 7)

zaiye · 发表于 2025-2-13 14:05:42

才接触易语言，求大佬给优化下代码，已上传附件左边文本用正则输出和右边文本一样的格式

小小W · 发表于 2025-2-13 14:15:38

模块本身有这个命令：网页_取文本_reg
去掉网页源码中的HTML标签，保留纯文本(正则方式)
返回值类型：文本型
参数<1>的名称为“网页源码”，类型为“文本型”。注明：网页源码如果含中文且乱码的,请先解码。

使用到的正则表达为：“<script[\s\S]*?</script>|<style[\s\S]*?</style>|<[^>]+>|&.{1,8};”

一线之隔 · 发表于 2025-2-13 14:18:07

编辑框2.内容＝网页_取文本_dom (编辑框1.内容)

李白aaa · 发表于 2025-2-13 14:30:27

<.*?>|\[.*?\]|https?://\S+ 去掉所有标签，剩下的就是文本，排版就靠你自己了

高先生 · 发表于 2025-2-13 14:47:18

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

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

编辑框2.内容＝文本_删除空行 (网页_取文本_dom (编辑框1.内容))
' 编辑框1里面的内容，变为和编辑框2里面的一样

子程序名	返回值类型	公开	备注
线程_初始化COM库			有时执行线程的时候，会自动关闭，此时，可以在多线程的程序里创建COM对象前先初始化，一个线程只能调用一次

CoInitialize (0)

子程序名	返回值类型	公开	备注
线程_取消COM库			取消COM库的初始化，如果你在线程头部加入了线程_初始化COM库请在尾部加入此命令

CoUninitialize ()

子程序名	返回值类型	公开	备注
网页_取文本_dom	文本型		去掉网页源码中的HTML标签，保留纯文本(DOM方式)
参数名	类型	参考	可空	数组	备注
网页源码	文本型				网页源码如果含中文且乱码的,请先解码

变量名	类型	静态	数组	备注
dom	对象
局_源码	文本型

局_源码＝网页源码
CoInitialize (0)
dom.创建 (“{25336920-03F9-11CF-8FD0-00AA00686F13}”, )
dom.方法 (“write”, “<HTML><BODY><div></div></BODY></HTML>”)
dom.对象型方法 (“body”, ).写属性 (“innerHTML”, 局_源码)
dom.方法 (“close”, )
局_源码＝ dom.对象型方法 (“body”, ).读文本属性 (“outerText”, )
卸载COM库_ ()
返回 (局_源码)

子程序名	返回值类型	公开	备注
文本_删除空行	文本型		删除文本当中的空白行
参数名	类型	参考	可空	数组	备注
要操作的文本	文本型

变量名	类型	静态	数组	备注
正则	正则表达式类
szTemp	文本型

正则.创建 (“\n\s*\r”, 要操作的文本, , 真, 真, )
正则.替换 ()
szTemp ＝正则.替换 ()

如果真 (szTemp ≈ #换行符 )

szTemp ＝取文本右边 (szTemp, 取文本长度 (szTemp) － 2)

如果真 (取文本右边 (szTemp, 2) ＝ #换行符 )

szTemp ＝取文本左边 (szTemp, 取文本长度 (szTemp) － 2)
返回 (szTemp)

i支持库列表	支持库注释
yfxy	(未知支持库)

.版本 2<br />
.支持库 yfxy<br />
<br />
.程序集 窗口程序集_启动窗口<br />
<br />
.子程序 _按钮1_被单击<br />
<br />
编辑框2.内容 ＝ 文本_删除空行 (网页_取文本_dom (编辑框1.内容))<br />
' 编辑框1里面的内容，变为和编辑框2里面的一样<br />
<br />
.子程序 线程_初始化COM库, , 公开, 有时执行线程的时候，会自动关闭，此时，可以在多线程的程序里创建COM对象前先初始化，一个线程只能调用一次<br />
<br />
CoInitialize (0)<br />
<br />
.子程序 线程_取消COM库, , 公开, 取消COM库的初始化，如果你在线程头部加入了 线程_初始化COM库 请在尾部加入此命令<br />
<br />
CoUninitialize ()<br />
<br />
.子程序 网页_取文本_dom, 文本型, 公开, 去掉网页源码中的HTML标签，保留纯文本(DOM方式)<br />
.参数 网页源码, 文本型, , 网页源码如果含中文且乱码的,请先解码<br />
.局部变量 dom, 对象<br />
.局部变量 局_源码, 文本型<br />
<br />
局_源码 ＝ 网页源码<br />
CoInitialize (0)<br />
dom.创建 (“{25336920-03F9-11CF-8FD0-00AA00686F13}”, )<br />
dom.方法 (“write”, “<HTML><BODY><div></div></BODY></HTML>”)<br />
dom.对象型方法 (“body”, ).写属性 (“innerHTML”, 局_源码)<br />
dom.方法 (“close”, )<br />
局_源码 ＝ dom.对象型方法 (“body”, ).读文本属性 (“outerText”, )<br />
卸载COM库_ ()<br />
返回 (局_源码)<br />
<br />
.子程序 文本_删除空行, 文本型, 公开, 删除文本当中的空白行<br />
.参数 要操作的文本, 文本型<br />
.局部变量 正则, 正则表达式类<br />
.局部变量 szTemp, 文本型<br />
<br />
正则.创建 (“\n\s*\r”, 要操作的文本, , 真, 真, )<br />
正则.替换 ()<br />
szTemp ＝ 正则.替换 ()<br />
.如果真 (szTemp ≈ #换行符)<br />
    szTemp ＝ 取文本右边 (szTemp, 取文本长度 (szTemp) － 2)<br />
.如果真结束<br />
.如果真 (取文本右边 (szTemp, 2) ＝ #换行符)<br />
    szTemp ＝ 取文本左边 (szTemp, 取文本长度 (szTemp) － 2)<br />
.如果真结束<br />
返回 (szTemp)

		自动登录	找回密码
密码			注册

[已解决] 才接触易语言，求大佬给优化下代码，已上传附件左边文...

最佳答案

评分

浏览过的版块

[已解决] 才接触易语言，求大佬给优化下代码，已上传附件 左边文...

最佳答案

评分

浏览过的版块

[已解决] 才接触易语言，求大佬给优化下代码，已上传附件左边文...