• 按键公众号 :
按键精灵电脑版
立即下载

软件版本:2014.06
软件大小:22.9M
更新时间:2021-12-03

按键精灵安卓版
立即下载

软件版本:3.7.2
软件大小:46.2M
更新时间:2023-05-10

按键精灵iOS版
立即下载

软件版本:1.8.0
软件大小:29.2M
更新时间:2023-03-21

按键手机助手
立即下载

软件版本:3.8.0
软件大小:262M
更新时间:2023-05-30

快捷导航

登录 后使用快捷导航
没有帐号? 注册

发新话题 回复该主题

[其他] 网页文字复制到文本文档 [复制链接]

1#
我是用这个代码结构来做测试
Set wmweb = createobject("wmWeb.web")
浏览器 = "chrome"
地址 = "https://s.tianyancha.com/parks/hub_00420100"
标签句柄 = wmweb.OpenChrome(浏览器, 地址)

'获取名字+电话
'结构不同先获取第二第三个了。
For i = 0 To 1
名字 = wmweb.GetElemText(标签句柄, "/html/body/div[2]/div/div/div/div[2]/div[2]/div[" & (i+2) & "]/div/div[3]/div/a")

电话 = wmweb.GetElemText(标签句柄, "/html/body/div[2]/div/div/div/div[2]/div[2]/div[" & (i+2) & "]/div/div[3]/div[3]/div/span[2]")

Call Plugin.File.WriteFileEx("C:\Users\Administrator\Desktop\11111\客户信息.txt", 名字 & "|" & 电话)
Call Plugin.File.WriteFileEx("C:\Users\Administrator\Desktop\11111\客户信息.txt", vbcrlf)
Next


但是读取不出来网页的文字是怎么回事

本主题由 超级版主 瑞祥幽冥狼 于 2024/10/8 10:28:01 执行 审核主题 操作
2#

,

注:你好,实战中发生的各种特殊情况,没有相对应的环境,我们无法测试,也无法给出任何观点、评论、结果;会员区不提供具体脚本的、测试、编写、思路提供、教学服务,请自行解决实战中遇见的麻烦

收 徒 索 引 ← ← ← ← ← ← ← ← ← ← 点 击

个 人 Q Q 1 : 1 2 2 3 1 1 6 6 1 8[将满]
个 人 Q Q 2 : 6 1 7 0 9 5 5 4 3[可加]
发新话题 回复该主题