作业帮求注释及详细参数你明白的谢谢
来源：学生作业帮助网 编辑：作业帮 时间：2024/04/29 19:35:11
求注释及详细参数你明白的谢谢
求注释及详细参数
你明白的
谢谢
求注释及详细参数你明白的谢谢
新闻链接的问题我已经修正了,建议下这里的附件.
文件的说明：
index.css -- 这是 的样式表
head.txt -- 使用这个文件增加头部信息,也可以插入自己想要的内容.
使用时要保证 2 个 文件 在 程序目录里.
程序运行后 生成两个 html 文件：
tempaa.htm
temp.htm
tempaa.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 = True
End Sub
2、主程序 readNews
url 为网址字符串
使用 Set xmlHttp = .wend 这段语句提取网页内容到xmlHttp.responseBody
strCon 为提取网站整个网页的字符串
因为有乱码所以用 BytesToBstr转化为 gb2312 编码
'replace() to suitable html code
这一段是去掉原先网页中不合适的格式
'head custom head
这一段是获取要加入到网页头部的 head.txt 的内容.
比如样式表、编码声明和自定义函数等
'''''''保存策略分析
这一段单独保存策略分析到tempaa.htm
'produce the temp.htm
这一段将动态和策略合成保存进一个网页\x05temp.htm
3、函数
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"
即 去掉字符串头和尾截取中间内容.
至于函数构造要你自己去仔细研究了
BytesToBstr(body,Cset)
这个函数无需深究,记得用上之后就没有乱码了
一般都是用
BytesToBstr(s,"gb2312")
或者
BytesToBstr(s,"utf-8")
不过就算是如此说,你能看懂这个程序至少也要半年的专门学习