Foxtable(狐表) → 用户栏目 → 专家坐堂 → 导出网站application内容


  共有3121人关注过本帖树形打印复制链接

主题：导出网站application内容
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  1楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		导出网站application内容  发帖心情 Post By：2020/4/14 12:03:00 [只看该作者]

老师，如果把网站从WebBrowser1打开，可以设计一个按钮，点击后吧application的内容另存为文本文档或者Excel吗？其实什么文件都没关系，主要是能让foxtable能再次读取到的文件。感谢 感谢 
[此贴子已经被作者于2020/4/14 12:17:54编辑过]
 回到顶部
帅哥，在线噢！
有点蓝
 小大  2楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110345 积分：561573 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/14 13:36:00 [只看该作者]

output.show（web.Document.Body.OuterHtml）


FileSys.WriteAllText("C:\data\Table.Txt", web.Document.Body.OuterHtml, True)
 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  3楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/4/14 15:26:00 [只看该作者]

老师 这个代码说放到按钮里面吗？
能帮忙看看吗？
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:数据另存为.table
 回到顶部
帅哥，在线噢！
有点蓝
 小大  4楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110345 积分：561573 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/14 17:01:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  5楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/4/14 17:31:00 [只看该作者]

老师，那两个例子可以吧网站application的内容导出为文本文档之类的吗？

 回到顶部
帅哥，在线噢！
有点蓝
 小大  6楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110345 积分：561573 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/14 17:40:00 [只看该作者]

可以，获取web.Document.Body.OuterHtml保存下来即可

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  7楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/4/15 9:49:00 [只看该作者]

谢谢老师，老师，foxtable可以判断和读取网站的代码吗 ？
比如：

图片点击可在新窗口打开查看此主题相关图片如下：qq截图20200415094801.jpg
图片点击可在新窗口打开查看
 回到顶部
帅哥，在线噢！
有点蓝
 小大  8楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：超级版主 帖子：110345 积分：561573 威望：0 精华：9 注册：2015/6/24 9:21:00 		  发帖心情 Post By：2020/4/15 10:11:00 [只看该作者]


 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  9楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/4/15 10:56:00 [只看该作者]

ok  好的 谢谢老师。

 回到顶部
帅哥哟，离线，有人找我吗？
yangwenghd
 小大  10楼 | 信息 | 搜索 | 邮箱 | 主页 | UC


加好友 发短信
等级：九尾狐 帖子：2705 积分：18035 威望：0 精华：0 注册：2013/4/9 10:41:00 		  发帖心情 Post By：2020/4/15 17:35:00 [只看该作者]


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20200415173022.jpg
图片点击可在新窗口打开查看
老师，我实在是看不懂了，能不能在帮忙看看呀？实在是吃不消了，感谢 感谢 
 下载信息  [文件大小：   下载次数： ]
图片点击可在新窗口打开查看点击浏览该文件:小米判断，读取.table



Dim web As System.Windows.Forms.WebBrowser = e.Form.controls("webbrowser1").basecontrol
web.ScriptErrorsSuppressed = True
web.Navigate("https://account.xiaomi.com/pass/serviceLogin?callback=https%3A%2F%2Fi.mi.com%2Fsts%3Fsign%3DGG5Rl90ZUHyfddB9UqMqGbLjxD0%253D%26followup%3Dhttps%253A%252F%252Fi.mi.com%252F%2523homenew%26sid%3Di.mi.com&sid=i.mi.com&_locale=zh_CN&_snsNone=true")
Do Until web.ReadyState = 4
    Application.DoEvents
Loop
Dim btns = web.Document.GetElementsByTagName("input")
For Each btn As object In btns
    If btn.getattribute("name") = "user" Then
        btn.setattribute("value", "13594605935")
    ElseIf btn.getattribute("name") = "password" Then
        btn.setattribute("value", "ab123456789")
    End If
Next


Dim hec As System.Windows.Forms.HtmlElementCollection = web.Document.Window.Frames(1).Document.GetElementsByTagName("status-container-3dQ_7")
For i As Integer = 0 To hec.Count-1
    If hec(i).OuterHtml.Contains("重新定位") Then
        'hec(i).InvokeMember("click")
        'lb="去精华板块"
        
        
        Dim r As DataRow = Tables("表A").Current.DataRow
        
        Dim dwsj As String = loc("infoTime").ToString
        dwsj = dwsj.SubString(0,10)
        Dim d1 As Date = DateAdd("s",CInt(dwsj), "1970-1-1 0:0:0")  '时间戳转时间
        Dim d As Date = DateAdd("h", 8, d1)
        r("定位中文地址")=d
        
        MessageBox.Show("读取成功")
        Exit For
    End If
Next


图片点击可在新窗口打开查看此主题相关图片如下：qq截图20200415172952.jpg
图片点击可在新窗口打开查看

[此贴子已经被作者于2020/4/15 17:36:02编辑过]
 回到顶部
总数 12 1 2 下一页
RSS2.0 | Xhtml无图版 | Xslt无图版 Copyright © 2000 - 2018 foxtable.com Tel: 4000-810-820 粤ICP备11091905号
   Powered By Dvbbs Version 8.3.0
页面执行时间 0.08984 秒, 6 次数据查询