易语言取机器码源码

方法/步骤

1、在程序窗口分别添加一个分组框、编辑框。如图所示

2、双击“启动窗口”跳至程序集，按图示定义一部分系统变量，如图

3、创建“取机器码”子程序，定义如图变量，变量名可以自己随意改。编写的代码如下图

4、运行编译，得到机器码。

版本 2

支持库 RegEx

支持库 internet

支持库 iext

子程序 _按钮1_被单击

局部变量 网页文本, 文本型

局部变量 表达式, 正则表达式

局部变量 搜索结果, 搜索结果, , "0"

局部变量 计次变量, 整数型

局部变量 文本, 文本型

网页文本 ＝ 到文本 (>

网页文本 ＝ 子文本替换 (网页文本, #引号, “'”, 0, , 真)

网页文本 ＝ 到小写 (网页文本)

透明标签1标题 ＝ 取中间文 (网页文本, “<title>”, “</title>”)

表达式创建 (“meta ()>”, 假)

搜索结果 ＝ 表达式搜索全部 (网页文本)

计次循环首 (取数组成员数 (搜索结果), 计次变量)

文本 ＝ 搜索结果 [计次变量]取子匹配文本 (网页文本, 1, )

判断开始 (寻找文本 (文本, “name='keywords'”, 1, 假) ＞ 0)

透明标签2标题 ＝ 取中间文 (文本, “content='”, “'”)

判断 (寻找文本 (文本, “name='description'”, 1, 假) ＞ 0)

透明标签3标题 ＝ 取中间文 (文本, “content='”, “'”)

默认

判断结束

计次循环尾 ()

子程序 取中间文, 文本型

参数 全文, 文本型

参数 左文, 文本型

参数 右文, 文本型

局部变量 位置, 整数型

局部变量 总长度, 整数型

局部变量 文本, 文本型

总长度 ＝ 取文本长度 (全文)

位置 ＝ 寻找文本 (全文, 左文, , 假)

如果真 (位置 ＜ 0)

返回 (“”)

如果真结束

位置 ＝ 位置 ＋ 取文本长度 (左文)

文本 ＝ 取文本中间 (全文, 位置, 总长度)

总长度 ＝ 取文本长度 (文本)

位置 ＝ 寻找文本 (文本, 右文, , 假) － 1

如果真 (位置 ＜ 0)

返回 (“”)

如果真结束

文本 ＝ 取文本中间 (文本, 1, 位置)

返回 (文本)

如果是提取网页源码的话，其实是>如果还没有编译生成软件，而是e源码的话， 可以到>