//一周热门股
kprq:=not(currentdate>date and weekday=5);
kpsj:=(CURRENTTIME>92500 and CURRENTTIME<113000) or (CURRENTTIME>130000 and CURRENTTIME<150000);
if kpsj and kprq[datacount] then exit;
txts:='';
<%
path="C:\WINDOWS\Temp\yzrmg.txt"
Set fso = CreateObject("Scripting.FileSystemObject")
if fso.fileexists(path) then
Set f = fso.GetFile(path)
md =DateValue(f.DateCreated)
nd=date
if md<>nd then
wycp
else
end if
else
wycp
end ifSet F = fso.OpenTextFile(path,1)
aa = F.ReadAll
sj=split(Split(aa,"一周热门个股吧")(1),"48小时股吧热门文章排行")
strd=RegExpTest("002[\d]{3}|000[\d]{3}|300[\d]{3}|600[\d]{3}|60[\d]{4}", sj(0))
str=RegExpTest("[\u4e00-\u9fa5]", sj(0))
temp=replace(str,",","")
words=replace(temp,"吧",",")
Set wsShell = CreateObject("WScript.Shell")
Text=strd
wsShell.Run "mshta vbscript:ClipboardData.SetData("&chr(34)&"text"&chr(34)&"," &Chr(34)& Text &Chr(34)& ")(close)",0,True
sub wycp
url="http://www.88gs.com"
set xhp=createobject("microsoft.xmlhttp")
xhp.open "get",url,false
xhp.send
Set MyStream=CreateObject("Adodb.Stream")
MyStream.Type = 1
MyStream.Open
MyStream.Write xhp.responseBody
MyStream.SaveToFile path
end sub
Function RegExpTest(patrn, strng)
Dim regEx, Match, Matches ' Create variable.
Set regEx = New RegExp ' Create a regular expression.
regEx.Pattern = patrn ' Set pattern.
regEx.IgnoreCase = True ' Set case insensitivity.
regEx.Global = True ' Set global applicability.
Set Matches = regEx.Execute(strng) ' Execute search.
For Each Match in Matches ' Iterate Matches collection.
RetStr = RetStr & Match.Value & ","
Next
RegExpTest = RetStr
End Function
ffl.vardata("txts")=Words
%>
str1:=STRLEFT(txts,79);
str2:=STRMID(txts,80,0);
DRAWTEXTEX(1,0,0,0,str1),coloryellow;
DRAWTEXTEX(1,0,0,50,str2),coloryellow;
DRAWTEXTEX(1,0,100,100,'将管理-系统选项-选项-监控剪切板前面打勾,会更有趣'); {点击看本软件截图： 58股票 公式网 http://www. 58gu. com 整理} |
