Rank: Advanced Member
Groups: Registered, Registered Users, Subscribers Joined: 7/25/2005(UTC) Posts: 1,042
Was thanked: 57 time(s) in 54 post(s)
|
Hi PTJim I wasn't aware that you were a subscriber at some point as I don't recognize the PTJim moniker or connect it with an email address in my database. :-( For what it's worth it's 10 years this month since the first issue of MSTT was published, and a lot of water has gone under the bridge since then. However it's always nice to reconnect with past contacts!!! I've set up the following sections of code for anyone
who might want to use or adapt the procedure, and also to make sure that I
wasn't misleading anyone. I've run all the code with my own explorations and proved that it does exactly what I said it would, though only using the Count1 accumulator. As usual I ran into trouble while trying to copy the code complete with font and spacings etc., so the expert might need tweaking to individual taste. Anyone who doesn't have Mark Pyle's GlobalVar DLL {GV.dll} can get it from the following link from my website - www.metastocktips.co.nz/gv.dll .
Roy
{Reset
Counters Exploration}
{ ColA}
{Reset Securities Count}
A:=ExtFml("GV.SetVar","Count1",0);
{ A:=ExtFml("GV.SetVar","Count2",0); }
{ A:=ExtFml("GV.SetVar","Count3",0); }
{ A:=ExtFml("GV.SetVar","Count4",0); }
{ A:=ExtFml("GV.SetVar","Count5",0); }
{Your Exploration(s)}
{Filter
Section}
Filter:= "Your filter conditions" ;
{Securities
Count}
Count:=LastValue(ExtFml("GV.GetVar","Count1"));
Filter:=LastValue(Filter = TRUE);
Count:=ExtFml("GV.SetVar","Count1",Count+Filter);
Filter;
{Expert Commentary Window}
Securities Count
Scan 1 - Filtered Securities \
WriteVal( LastValue(ExtFml("GV.GetVar","Count1")),7.0)
Scan 2 - Filtered Securities \
WriteVal( LastValue(ExtFml("GV.GetVar","Count2")),7.0)
Scan 3 - Filtered Securities \
WriteVal( LastValue(ExtFml("GV.GetVar","Count3")),7.0)
Scan 4 - Filtered Securities \
WriteVal( LastValue(ExtFml("GV.GetVar","Count4")),7.0)
Scan 5 - Filtered Securities \
WriteVal( LastValue(ExtFml("GV.GetVar","Count5")),7.0)
|