With too much time on my hands, I've done some simple HTML formatting of my scans. This uses a combination of a DOS batch file, DOS-unix sort and cat programs, and the QP2 scan report. An example of this report is found here: users.intermediatn.net
The techniques used are as follows:
The DOS batch file (watch.bat)
REM Market Direction
c:\bin\cat watch1.htm \qp2data\Lists\dates.lst \qp2data\Lists\direct.lst watch2.htm > watchlist.htm
watch1.htm
<HTML>
<HEAD>
<TITLE>Daily Market Watchlist</TITLE>
<LINK REV="made" HREF="mailto:lolney@attglobal.net">
<META NAME="author" content="LaVerne Olney">
<META name="generator" content="NoteTab 4.5">
<META name="keywords" content="">
<META name="description" content="">
</HEAD>
<BODY>
<H1><CENTER>Daily Market Watchlist</CENTER></H1>
<P><HR></P>
<SPAN CLASS=heading3black>Market Direction</SPAN><br><br>
<TABLE Border=1 Frame=Box Rules=All>
QP2 Market Direction Title Bar Scan
// the "single.lst" contains a single issue, i.e. !DJ30
input="single.lst";
output="dates.lst";
DaysToLoad=500;
integer tbar, start, finish;
start:= -4;
finish:= 0;
Println "<TR Align=Left BGCOLOR=#C0C0C0>";
Println "<TD><SPAN CLASS=smallfontreverse>ÿIndex Nameÿ</SPAN></TD>";
for tbar = start to finish step 1 do
Println "<TD><SPAN CLASS=smallfontreverse>ÿ",Date(tbar),"ÿ</SPAN></TD>";
next tbar;
Println "</TR>";
QP2 Market Direction Scan
input="major.lst";
output="direct.lst";
DaysToLoad=500;
integer tbar, start, finish;
Set StochRSI = 13,13,5,W;
start:= -4;
finish:= 0;
Println "<TR Align=Left>";
Println "<TD>ÿ", Description,"</TD>";
for tbar = start to finish step 1 do
if StochRSI(tbar)<80 and
StochRSI(tbar) > StochRSI(tbar-1) then
Println "<TD BGCOLOR=#B0FFB0>ÿ", Close(tbar):8:2, "ÿ</TD>";
endif;
If StochRSI(tbar)>=80 and
StochRSI(tbar) > StochRSI(tbar-1) then
Println "<TD BGCOLOR=#FFFFB0>ÿ", Close(tbar):8:2, "ÿ</TD>";
endif;
If StochRSI(tbar)>20 and
StochRSI(tbar) < StochRSI(tbar-1) then
Println "<TD BGCOLOR=#FFB0B0>ÿ", Close(tbar):8:2, "ÿ</TD>";
endif;
If StochRSI(tbar)<=20 and
StochRSI(tbar) < StochRSI(tbar-1) then
Println "<TD BGCOLOR=#FFFFB0>ÿ", Close(tbar):8:2, "ÿ</TD>";
endif;
if StochRSI(tbar) = StochRSI(tbar-1) then
Println "<TD BGCOLOR=#FFFFB0>ÿ", Close(tbar):8:2, "ÿ</TD>";
endif;
next tbar;
println "</TR>";
major.lst
!DJ30 : DOW JONES 30 INDUSTRIALS
!SPX : STANDARD & POORS 500 STOCKS
!NYA : NEW YORK STOCK EXCHANGE COMPOSITE
!COMP : NASDAQ COMPOSITE INDEX
watch2.htm
</TABLE>
<P><HR SIZE="7"></P>
</BODY>
</HTML>
Merry Christmas Everyone!
Good Programming and Good Trading! |
