永发信息网

求注释及详细参数你明白的谢谢

答案:2  悬赏:70  手机版
解决时间 2021-02-13 18:23
  • 提问者网友:我是我
  • 2021-02-13 04:17
求注释及详细参数你明白的谢谢
最佳答案
  • 五星知识达人网友:十鸦
  • 2021-02-13 05:08
新闻链接的问题我已经修正了,建议下这里的附件.文件的说明:index.css -- 这是 的样式表head.txt -- 使用这个文件增加头部信息,也可以插入自己想要的内容.使用时要保证 2 个 文件 在 程序目录里.程序运行后 生成两个 html 文件:tempaa.htmtemp.htmtempaa.htm 是交易策略的提取Print #1,hndString & GetBetween(1,strCon," <div class=" & Chr(34) & "left_bar" & Chr(34) & " style=" & Chr(34) & "position:relative;" & Chr(34) & ">"," <!--#rep--> ") & p2程序的说明:1、如何设置提取的时间间隔:Private Sub Form_Load()strAppPath = App.Path & IIf(Right(App.Path,1) = "\","","\")'加入 Timer1.Interval 单位为毫秒,比如10000约等于10秒,但是网页刷新的速度和网速也有关系Timer1.Interval = 10000'加入这个避免脚本错误WebBrowser1.Silent = TrueEnd Sub2、主程序 readNewsurl 为网址字符串使用 Set xmlHttp = .wend 这段语句提取网页内容到xmlHttp.responseBodystrCon 为提取网站整个网页的字符串因为有乱码所以用 BytesToBstr转化为 gb2312 编码'replace() to suitable html code这一段是去掉原先网页中不合适的格式'head custom head这一段是获取要加入到网页头部的 head.txt 的内容.比如样式表、编码声明和自定义函数等'''''''保存策略分析这一段单独保存策略分析到tempaa.htm'produce the temp.htm这一段将动态和策略合成保存进一个网页\x05temp.htm3、函数GetBetween(ByVal Start As Long,Data As String,_ StartString As String,EndString As String,_ Optional ByVal CompareMethod As VbCompareMethod = vbBinaryCompare) As String这是最重要的字符串处理函数,它的意思很简单比如字符串a="aabbcccdddef"getbetween(1,a,"a","ef")="abbcccddd"getbetween(2,a,"a","ef")="bbcccddd"getbetween(1,a,"aabb","ef")="cccdd"getbetween(3,a,"ccc","ef")="ddd"即 去掉字符串头和尾截取中间内容.至于函数构造要你自己去仔细研究了
全部回答
  • 1楼网友:woshuo
  • 2021-02-13 06:25
我检查一下我的答案
我要举报
如以上回答内容为低俗、色情、不良、暴力、侵权、涉及违法等信息,可以点下面链接进行举报!
点此我要举报以上问答信息
大家都在看
推荐资讯