“e”是易源码格式
打开易语言,“保存”就有了
“edb”是易语言数据库文件,一个小巧的数据库
使用“创建()”函数可以生成
.版本 2
.子程序 __启动窗口_创建完毕
字段信息 [1].名称 = “名字”
字段信息 [1].类型 = #文本型
字段信息 [1].最大文本长度 = 20
字段信息 [2].名称 = “数量”
字段信息 [2].类型 = #整数型
字段信息 [3].名称 = “编号”
字段信息 [3].类型 = #整数型
创建 (取运行目录 () + “\e数据库.edb”, 字段信息)
“edt”是edb的数据扩展,用于储存字节集字段数据
使用“创建()”函数创建包含“字节集型”的字段可以生成
.版本 2
.局部变量 字段信息, 字段信息, , "3"
字段信息 [1].名称 = “名字”
字段信息 [1].类型 = #文本型
字段信息 [1].最大文本长度 = 20
字段信息 [2].名称 = “数量”
字段信息 [2].类型 = #整数型
字段信息 [3].名称 = “图片”
字段信息 [3].类型 = #字节集型
创建 (取运行目录 () + “\e数据库2.edb”, 字段信息)
“fnr、fne”是易语言支持库,相当于DLL吧,用于支持易语言IDE调用,如图中的函数都要依赖支持库!
使用其它编程语言或易语言新建“Windows动态链接库”工程可以创建,由于这个对于我来说不太容易,就不示范了,具体可到易官方论坛找例程!
问题一:易语言如何获取网页源码的并展示出来? .版本 2.支持库 RegEx
.支持库 internet
.支持库 iext
.子程序 _按钮1_被单击
.局部变量 网页文本, 文本型
.局部变量 表达式, 正则表达式
.局部变量 搜索结果, 搜索结果, , 0
.局部变量 计次变量, 整数型
.局部变量 文本, 文本型
网页文本 = 到文本 (HTTP读文件 (编辑框1.内容))
网页文本 = 子文本替换 (网页文本, #引号, “'”, 0, , 真)
网页文本 = 到小写 (网页文本)
透明标签1.标题 = 取中间文 (网页文本, “”, “”)
表达式.创建 (“meta (.*?)>”, 假)
搜索结果 = 表达式.搜索全部 (网页文本)
.计次循环首 (取数组成员数 (搜索结果), 计次变量)
文本 = 搜索结果 [计次变量].取子匹配文本 (网页文本, 1, )
.判断开始 (寻找文本 (文本, “name='keywords'”, 1, 假) > 0)
透明标签2.标题 = 取中间文 (文本, “content='”, “'”)
.判断 (寻找文本 (文本, “name='description'”, 1, 假) > 0)
透明标签3.标题 = 取中间文 (文本, “content='”, “'”)
.默认
.判断结束
.计次循环尾 ()
.子程序 取中间文, 文本型
.参数 全文, 文本型
.参数 左文, 文本型
.参数 右文, 文本型
.局部变量 位置, 整数型
.局部变量 总长度, 整数型
.局部变量 文本, 文本型
总长度 = 取文本长度 (全文)
位置 = 寻找文本 (全文, 左文, , 假)
.如果真 (位置 < 0)
返回 (“”)
.如果真结束
位置 = 位置 + 取文本长度 (左文)
文本 = 取文本中间 (全文, 位置, 总长度)
总长度 = 取文本长度 (文本)
位置 = 寻找文本 (文本, 右文, , 假) - 1
.如果真 (位置 < 0)
返回 (“”)
.如果真结束
文本 = 取文本中间 (文本, 1, 位置)
返回 (文本)
问题二:易语言怎么获取网页源代码 我记得我给你回答过了,其实说老实话,想学好一门编程语言,不下大功夫是不行的,网上有很多开源的,我不能帮你太多,因为我对这方面不是很懂,呵呵,不好意思。
问题三:易语言取网页源码的问题,求解答! 思路:
超文本浏览框.取文档对象 ().对象型方法 (“getElementById”, “xxx”).方法 (“focus”, )
超文本浏览框.取文档对象 ().对象型方法 (“getElementById”, “xxx”).方法 (“click”, )
取这个选择框的对象(XXX是对象名称或者ID),然后让其获得焦点并单击它
就可以再取
临时文本 = 超文本浏览框.取文档对象 ().读对象型属性 (“body”, ).读文本属性 (“outerText”, )
此时的临时文本就是网页的源码如果你要HTML格式的就用“读文本属性 (“outerhtml”, )”
问题四:易语言怎么取网页代码中的一段代码! 20分 高级答案:
首先创建子程序---取中间文件内容---------------------------------------------------------------------
.版本 2
.子程序 取文本中间内容, 文本型, 公开
.参数 需取文本, 文本型
.参数 左边内容, 文本型
.参数 右边内容, 文本型
.参数 成功与否, 逻辑型, 参考 可空
.局部变量 长度, 整数型
.局部变量 左边位置, 整数型
.局部变量 左边长度, 整数型
.局部变量 右边位置, 整数型
.局部变量 右边长度, 整数型
长度 = 取文本长度 (需取文本)
左边位置 = 寻找文本 (需取文本, 左边内容, 0, 假)
左边长度 = 取文本长度 (左边内容)
.如果真 (左边位置 = -1)
成功与否 = 假
返回 (“未找到左边内容”)
.如果真结束
右边位置 = 寻找文本 (需取文本, 右边内容, 0, 假)
右边长度 = 取文本长度 (右边内容)
.如果真 (右边位置 = -1)
成功与否 = 假
返回 (“未找到右边内容”)
.如果真结束
成功与否 = 真
返回 (取文本中间 (需取文本, 左边位置 + 左边长度, 长度 - (左边位置 + 左边长度) - (长度 - 右边位置)))
--------------------创建完毕-------------------------厂------------------------------------------------------------
新建个编辑框1.然后在建个按钮,在按钮里输入代码
编辑框1.内容=取文本中间内容 (zxcvbnm123456789asfhyf, zxcvbnm, asfhyf)
点击这个按钮,编辑框1的内容就是123456789
图片概要:
问题五:易语言 取网页源码 可以实时获取超文本浏览框里的源码,和 查看源代码一样。
问题六:易语言这个取网页源码如何取文本中间?有图 到整数删除了就可以了
问题七:易语言 如何读取网页源文件的代码! .版本 2
.支持库 internet
.子程序 __启动窗口_创建完毕
_启动窗口.标题 = 到文本 (HTTP读文件 (“你要打开的t攻t地址。txt”))
问题八:求易语言多线程提取网页源码的例子 这是一个最简单的多线程网页访问保存网页的程序,如果满意采纳哦
问题九:易语言取网页源码中的元素内容,应该关于精易模块 80分 你要的只是取这个 span 里的内容吗?
用了精易模块的话
你可以用 文本_取出中间文本() 命令来获取,命令格式如下:
文本_取出中间文本(原文本,目标文本左边,目标文本右边)
原文本这里就可以是你读取出来的网页源码
目标文本左边,在你的图片里,就可以是
目标文本右边,在你的图片里,就是
问题十:易语言取网页指定内容源码 要方便快捷的话,就用精易模块里面的取出中间文本(),不想用模块的话就用分割文本。建议你用精易模块的文本_取中间文本()
.版本 2.子程序 建立mdb数据库, 整数型, 公开, 成功返回0,失败返回-1和-2。注意:已经存在的库和表,就不能再建立了。
.参数 路径, 文本型, , 要存放文件的路径
.参数 接收文件名, 文本型, , 要存放的库文件名
.参数 密码, 文本型, 可空, 库文件密码
.参数 数据表名, 文本型, , 表名
.参数 字段名, 文本型, , 个字段的名字、类型、长度的字符串
.参数 删除表, 逻辑型, 可空, 是否删除表,默认为假
.参数 删除字段, 逻辑型, 可空, 是否删除字段,默认为假
.局部变量 connad, 对象
.局部变量 conn, 对象
.局部变量 Connstr, 文本型
Connstr = “Provider=Microsoft.Jet.OLEDB.4.0Data Source=” + 路径 + “\” + 接收文件名 + 选择 (是否为空 (密码), “”, “Jet OLEDB:Database Password=” + 密码)
connad.清除 ()
conn.清除 ()
.如果 (connad.创建 (“ADOX.Catalog”, ) = 假)
输出调试文本 (“ADOX.Catalog对象创建失败”)
返回 (-1)
.否则
connad.通用方法 (“Create”, Connstr)
.如果结束
' connad.查看 ()
.如果 (conn.创建 (“Adodb.Connection”, ) = 假)
输出调试文本 (“Adodb.Connection对象创建失败”)
返回 (-2)
.否则
conn.方法 (“Open”, Connstr)
.如果 (删除表 = 真)
conn.对象型方法 (“Execute”, “DROP TABLE ” + 数据表名) ' 删除表
输出调试文本 (“删除成功”)
.否则
.如果 (删除字段 = 真)
conn.对象型方法 (“Execute”, “ALTER TABLE [” + 数据表名 + “] DROP COLUMN [” + 字段名 + “]”) ' 删除字段
输出调试文本 (“zdm:” + 字段名)
.否则
conn.对象型方法 (“Execute”, “create table ” + 数据表名 + “(” + 字段名 + “)”) ' 建立新表
.如果结束
.如果结束
.如果结束
conn.方法 (“Close”, )
删除表 = 假
删除字段 = 假
返回 (0)
.子程序 取字段类型名, 文本型, 公开, 取字段类型名返回中文
.参数 类型, 整数型, 可空
.局部变量 结果, 文本型
.判断开始 (类型 = 17)
结果 = “数字[字节型](Byte)”
.判断 (类型 = 3)
结果 = “数字[长整型](Long)”
.判断 (类型 = 2)
结果 = “数字[整型](Short)”
.判断 (类型 = 4)
结果 = “数字[单精度](Single)”
.判断 (类型 = 5)
结果 = “数字[双精度](Double)”
.判断 (类型 = 6)
结果 = “货币型(Currency)”
.判断 (类型 = 130)
结果 = “文本型(Char)”
.判断 (类型 = 11)
结果 = “逻辑型(BIT)”
.判断 (类型 = 204)
结果 = “二进制型(Binary)”
.判断 (类型 = 3)
结果 = “自动编号(Counter)”
.判断 (类型 = 203)
结果 = “备注型(Memo)”
.判断 (类型 = 7)
结果 = “日期/时间(Time)”
.判断 (类型 = 131)
结果 = “小数型(Decimal)”
.判断 (类型 = 0)
结果 = “#空白型字段(Empty)”
.默认
结果 = “未知数据,可能会导致数据出错。”
.判断结束
返回 (结果)
.子程序 取表名, 逻辑型, 公开
.参数 路径文件名, 文本型
.参数 密码, 文本型, 可空
.参数 文件名, 文本型, , 文件名,无需写路径
.参数 表名数组, 文本型, 参考 数组
.局部变量 Mycat对象, 对象
.局部变量 Tables对象, 对象
.局部变量 连接文本, 文本型
.局部变量 i, 整数型
.局部变量 表数量, 整数型
.局部变量 表名, 文本型
.如果真 (Mycat对象.创建 (“ADOX.Catalog”, ) = 假)
信息框 (“你的机器上没有安装ADO。文件位置是C:\Program Files\Common Files\System\ado\Msado.dll”, 0, )
结束 ()
.如果真结束
连接文本 = “Provider=MicroSoft.Jet.OLEDB.4.0Data Source=” + 文件名 + 选择 (是否为空 (密码), “”, “Jet OLEDB:Database Password=” + 密码)
Mycat对象.写属性 (“ActiveConnection”, 连接文本)
Tables对象 = Mycat对象.读对象型属性 (“Tables”, )
表数量 = Tables对象.读数值属性 (“Count”, )
.计次循环首 (表数量, i)
表名 = Tables对象.读对象型属性 (“Item”, i - 1).读文本属性 (“Name”, ) ' 序号从0开始
.如果真 (取文本左边 (表名, 4) ≠ “MSys”) ' 过虑掉系统表名
加入成员 (表名数组, 表名)
' 输出调试文本 (“表名:” + 表名)
.如果真结束
.计次循环尾 ()
Tables对象.清除 ()
Mycat对象.清除 ()
返回 (真)
.子程序 显示字段信息, 整数型, 公开
.参数 路径, 文本型, , 要存放文件的路径
.参数 接收文件名, 文本型, , 要存放的库文件名
.参数 密码, 文本型, 可空, 库文件密码
.参数 数据表名, 文本型, , 表名
.局部变量 连接对象, 对象
.局部变量 表对象, 对象
.局部变量 连接文本, 文本型
.局部变量 表数计次, 整数型
.局部变量 表数量, 整数型
.局部变量 表名, 文本型
.局部变量 字段数量, 整数型
.局部变量 字段名, 文本型
.局部变量 字段计次, 整数型
.局部变量 字段类型, 整数型
.局部变量 字段长度, 整数型
.如果真 (连接对象.创建 (“ADOX.Catalog”, ) = 假)
信息框 (“你的机器上没有安装ADO。文件位置是C:\Program Files\Common Files\System\ado\Msado.dll”, 0, )
结束 ()
.如果真结束
连接文本 = “Provider=Microsoft.Jet.OLEDB.4.0Data Source=” + 路径 + “\” + 接收文件名 + 选择 (是否为空 (密码), “”, “Jet OLEDB:Database Password=” + 密码)
输出调试文本 (密码)
输出调试文本 (密码)
连接对象.写属性 (“ActiveConnection”, 连接文本)
表对象 = 连接对象.读对象型属性 (“Tables”, )
' 表数量 = Tables对象.读数值属性 (“Count”, )
表名 = 数据表名
字段数量 = 表对象.读对象型属性 (“Item”, 表名).读对象型属性 (“Columns”, ).读数值属性 (“Count”, )
.计次循环首 (字段数量, 字段计次)
字段名 = 表对象.读对象型属性 (“Item”, 表名).读对象型属性 (“Columns”, ).读对象型属性 (“Item”, 字段计次 - 1).读文本属性 (“Name”, )
字段类型 = 表对象.读对象型属性 (“Item”, 表名).读对象型属性 (“Columns”, ).读对象型属性 (“Item”, 字段计次 - 1).读数值属性 (“Type”, )
字段长度 = 表对象.读对象型属性 (“Item”, 表名).读对象型属性 (“Columns”, ).读对象型属性 (“Item”, 字段计次 - 1).读数值属性 (“DefinedSize”, )
' 输出调试文本 (到文本 (字段长度))
' 输出调试文本 (取类型名 (字段类型))
' 输出调试文本 (到文本 (字段类型))
.计次循环尾 ()
表对象.清除 ()
连接对象.清除 ()
返回 (0)
.子程序 取字段类型1, 文本型, 公开, 取字段类型名返回英文
.参数 类型, 文本型, 可空
.局部变量 结果, 文本型
.判断开始 (类型 = “数字[字节型]”)
结果 = “Byte”
.判断 (类型 = “数字[长整型]”)
结果 = “Long”
.判断 (类型 = “数字[整型]”)
结果 = “Short”
.判断 (类型 = “数字[单精度]”)
结果 = “Single”
.判断 (类型 = “数字[双精度]”)
结果 = “Double”
.判断 (类型 = “货币型”)
结果 = “Currency”
.判断 (类型 = “文本型”)
结果 = “Char”
.判断 (类型 = “文本1”)
结果 = “Text(n)”
.判断 (类型 = “逻辑型”)
结果 = “BIT”
.判断 (类型 = “二进制型”)
结果 = “Binary”
.判断 (类型 = “自动编号”)
结果 = “Counter”
.判断 (类型 = “备注型”)
结果 = “Memo”
.判断 (类型 = “日期/时间”)
结果 = “Time”
.判断 (类型 = “小数型”)
结果 = “Decimal”
.判断 (类型 = “”)
结果 = “”
.默认
结果 = “未知数据,可能会导致数据出错。”
.判断结束
返回 (结果)
.子程序 取Access密码, 逻辑型, 公开, 取Access密码,成功返回真,失败返回假
.参数 路径文件名, 文本型
.参数 密码, 文本型
.参数 版本, 文本型
.局部变量 文件号
.局部变量 加密标志, 整数型
.局部变量 PassSource97, 字节型, , "13"
.局部变量 PassSource2k, 字节型, , "13"
.局部变量 i
.局部变量 temp, 字节型
.局部变量 a
.局部变量 标志, 逻辑型
.局部变量 结果文本, 文本型
PassSource97 = { 134, 251, 236, 55, 93, 68, 156, 250, 198, 94, 40, 230, 19 }
PassSource2k = { 161, 236, 122, 156, 225, 40, 52, 138, 115, 123, 210, 223, 80 } ' 加密标志是0x13(19)
文件号 = 打开文件 (路径文件名, 1, )
移动读写位置 (文件号, #文件首, 20) ' / 0x42处
读入数据 (文件号, temp)
.判断开始 (到数值 (temp) = 0)
版本 = “ACCESS_97”
.变量循环首 (1, 13, 1, i)
移动读写位置 (文件号, #文件首, 65 + i) ' 0x42处
读入数据 (文件号, temp)
a = 位异或 (到数值 (temp), PassSource97 [i])
.如果真 (a = 0)
密码 = “密码为空”
.如果真结束
结果文本 = 结果文本 + 字符 (a)
.变量循环尾 ()
.默认
版本 = “ACCESS_2K”
移动读写位置 (文件号, #文件首, 98) ' 0x62处
读入数据 (文件号, temp)
标志 = 假
加密标志 = 位异或 (到数值 (temp), 19)
.变量循环首 (1, 26, 2, i)
移动读写位置 (文件号, #文件首, 65 + i) ' 0x42处
读入数据 (文件号, temp)
.如果真 (到数值 (temp) = 0)
跳出循环 ()
.如果真结束
标志 = 取反 (标志)
.判断开始 (标志)
a = 位异或 (位异或 (到数值 (temp), PassSource2k [(i + 1) ÷ 2]), 加密标志)
.如果真 (a < 32 或 a > 126)
密码 = “密码为空”
.如果真结束
.默认
a = 位异或 (到数值 (temp), PassSource2k [(i + 1) ÷ 2])
.判断结束
结果文本 = 结果文本 + 字符 (a)
.变量循环尾 ()
.判断结束
密码 = 结果文本
关闭文件 (文件号)
返回 (真)
欢迎分享,转载请注明来源:内存溢出
评论列表(0条)