include('txt/topbarout.txt');
include('txt/leftbarout.txt');
include('txt/centerbegin.txt');
include("/home/finpres/options/klse/dbconnb.inc");
$filemod = filemtime("/home/finpres/csv/klse/ix.txt");
$filemodtime = date("l, jS F Y", $filemod).".";
$FName = "/home/finpres/csv/klse/mktper.csv";
$in = fopen($FName,"r");
while (!feof($in))
{
$line = fgets($in,4096);
$flds = split(",", $line);
if (trim($flds[1]) == "GLA")
{
$vol = number_format($flds[6],0);
$gain = number_format($flds[2],0);
$lose = number_format($flds[3],0);
$uchg = number_format($flds[4],0);
$utrd = number_format($flds[5],0);
}
}
?>
At A Glance |
Volume |
: |
echo "$vol"; ?> |
lots |
Gainers |
: |
echo "$gain"; ?> |
|
Losers |
: |
echo "$lose"; ?> |
|
Unchanged |
: |
echo "$uchg"; ?> |
|
Untraded |
: |
echo "$utrd"; ?> |
|
|
|
|
Top 20 Active Counters |
STOCK |
CLOSE |
CHANGE |
% |
VOL ('000) |
$FName = "/home/finpres/csv/klse/mktper.csv";
$in = fopen($FName,"r");
$num=0;
while (!feof($in))
{
$line = fgets($in,4096);
$flds = split(",", $line);
if (trim($flds[2]) == 1)
{
$num++;
if ($num%2 == 0)
{
echo "";
}
else
{
echo " ";
}
if ($flds[4] > 0)
{
$flds[4] = "+".$flds[4];
$flds[5] = "+".$flds[5];
}
$link = substr($flds[1],0,4);
echo "$flds[0] | ";
echo "$flds[3] | ";
echo "$flds[4] | ";
echo "$flds[5]% | ";
echo "$flds[6] | ";
echo " ";
}
}
?>
|
|
Key Indices |
INDEX |
CLOSE |
CHANGE |
% |
$FileNme = "/home/finpres/csv/klse/ix.txt";
$in = fopen($FileNme,"r");
while (!feof($in))
{
$line = fgets($in,4096);
list($a,$b,$c,$d,$e,$f,$g,$h) = split(",", $line,8);
$num++;
if (trim($a) == "COMPOSITE")
{
$ci = $f;
$cichg = $g;
$cipert = $h."%";
if ($g > 0)
{
$cicolor = "#008000";
$cichg = "+".$cichg;
$cipert = "+".$cipert;
}
if ($g < 0)
{
$cicolor = "#FF0000";
}
}
if (trim($a) == "EMAS")
{
$em = $f;
$emchg = $g;
$empert = $h."%";
if ($g > 0)
{
$emcolor = "#008000";
$emchg = "+".$emchg;
$empert = "+".$empert;
}
if ($g < 0)
{
$emcolor = "#FF0000";
}
}
if (trim($a) == "2ND-BOARD")
{
$sb = $f;
$sbchg = $g;
$sbpert = $h."%";
if ($g > 0)
{
$sbcolor = "#008000";
$sbchg = "+".$sbchg;
$sbpert = "+".$sbpert;
}
if ($g < 0)
{
$sbcolor = "#FF0000";
}
}
if (trim($a) == "MESDAQ")
{
$mq = $f;
$mqchg = $g;
$mqpert = $h."%";
if ($g > 0)
{
$mqcolor = "#008000";
$mqchg = "+".$mqchg;
$mqpert = "+".$mqpert;
}
if ($g < 0)
{
$mqcolor = "#FF0000";
}
}
if (trim($a) == "INDUSTRIAL")
{
$id = $f;
$idchg = $g;
$idpert = $h."%";
if ($g > 0)
{
$idcolor = "#008000";
$idchg = "+".$idchg;
$idpert = "+".$idpert;
}
if ($g < 0)
{
$idcolor = "#FF0000";
}
}
}
?>
COMPOSITE |
echo "$ci"; ?> |
echo "$cichg"; ?> |
echo "$cipert"; ?> |
EMAS |
echo "$em"; ?> |
echo "$emchg"; ?> |
echo "$empert"; ?> |
2ND BOARD |
echo "$sb"; ?> |
echo "$sbchg"; ?> |
echo "$sbpert"; ?> |
MESDAQ |
echo "$mq"; ?> |
echo "$mqchg"; ?> |
echo "$mqpert"; ?> |
INDUSTRIAL |
echo "$id"; ?> |
echo "$idchg"; ?> |
echo "$idpert"; ?> |
|
|
|
|
|
|
Top 10 Gainers By Price Change |
STOCK |
CLOSE |
CHANGE |
% |
VOL ('000) |
$FName = "/home/finpres/csv/klse/mktper.csv";
$in = fopen($FName,"r");
$num=0;
while (!feof($in))
{
$line = fgets($in,4096);
$flds = split(",", $line);
if (trim($flds[2]) == 2)
{
$num++;
if ($num%2 == 0)
{
echo "";
}
else
{
echo " ";
}
$link = substr($flds[1],0,4);
echo "$flds[0] | ";
echo "$flds[3] | ";
echo "$flds[4] | ";
echo "$flds[5]% | ";
echo "$flds[6] | ";
echo " ";
}
}
?>
|
|
|
Top 10 Gainers By Percentage Change |
STOCK |
CLOSE |
CHANGE |
% |
VOL ('000) |
$FName = "/home/finpres/csv/klse/mktper.csv";
$in = fopen($FName,"r");
$num=0;
while (!feof($in))
{
$line = fgets($in,4096);
$flds = split(",", $line);
if (trim($flds[2]) == 3)
{
$num++;
if ($num%2 == 0)
{
echo "";
}
else
{
echo " ";
}
$link = substr($flds[1],0,4);
echo "$flds[0] | ";
echo "$flds[3] | ";
echo "$flds[4] | ";
echo "$flds[5]% | ";
echo "$flds[6] | ";
echo " ";
}
}
?>
|
|
|
|
|
Top 10 Losers By Price Change |
STOCK |
CLOSE |
CHANGE |
% |
VOL ('000) |
$FName = "/home/finpres/csv/klse/mktper.csv";
$in = fopen($FName,"r");
$num=0;
while (!feof($in))
{
$line = fgets($in,4096);
$flds = split(",", $line);
if (trim($flds[2]) == 4)
{
$num++;
if ($num%2 == 0)
{
echo "";
}
else
{
echo " ";
}
$link = substr($flds[1],0,4);
echo "$flds[0] | ";
echo "$flds[3] | ";
echo "$flds[4] | ";
echo "$flds[5]% | ";
echo "$flds[6] | ";
echo " ";
}
}
?>
|
|
|
Top 10 Losers By Percentage Change |
STOCK |
CLOSE |
CHANGE |
% |
VOL ('000) |
$FName = "/home/finpres/csv/klse/mktper.csv";
$in = fopen($FName,"r");
$num=0;
while (!feof($in))
{
$line = fgets($in,4096);
$flds = split(",", $line);
if (trim($flds[2]) == 5)
{
$num++;
if ($num%2 == 0)
{
echo "";
}
else
{
echo " ";
}
$link = substr($flds[1],0,4);
echo "$flds[0] | ";
echo "$flds[3] | ";
echo "$flds[4] | ";
echo "$flds[5]% | ";
echo "$flds[6] | ";
echo " ";
}
}
?>
|
|