WINDOWS線上簡易查股小程式 [php_shell + php 蜘蛛]

WINDOWS線上簡易查股小程式 [php_shell + php 蜘蛛]

WINDOWS線上簡易查股小程式 [php_shell + php 蜘蛛]

 


下載工具: https://goo.gl/UNPhwh

 


這是我自己寫的小程式,有需要請自取


.\Lib\php.exe .\Lib\index.php
pause

 


    <?php
    function Printf_n($string)//單純文字輸出換行
    {
        echo $string.”\n”;
    }
    
    set_time_limit(0);//無限等待
    Printf_n(‘jash-liao 存股-股價即時更新系統:’); 
    date_default_timezone_set(“Asia/Taipei”);
    Printf_n(‘更新時間:’. date (“Y- m – d / H : i : s”)); 
    $time=’&t=’.date (“YmdHis”);
    $fp = fopen(“stock.csv”, “r”);
    while (($data = fgetcsv($fp, 1000, “,”)) !== FALSE)
    {
        $id=$data[1];
        $name=$data[0];
        $text=file(‘https://tw.stock.yahoo.com/q/q?s=’.$id.$time);
        foreach ($text as $line_num => $line) {
            if (preg_match(“/><b>/i”, $line))
            {
                $a='<td align=”center” bgcolor=”#FFFfff” nowrap><b>’;
                $b='</b></td>’;
                //str_replace (取代前的字串,取代後字串,要取代的字串);
                $line=str_replace ($b,”,str_replace ($a,”,$line));
                Printf_n($name.'[‘.$id.’]’.”\t”.$line);
            } 
        }
    }
    fclose($fp);
    echo ‘資料來源:YAHOO股市’;
    ?>

 

 


線上執行 : https://www.tutorialspoint.com/execute_php_online.php

<?php

    // 关闭所有PHP错误报告
    error_reporting(0);

    // Report simple running errors
    error_reporting(E_ERROR | E_WARNING | E_PARSE);

    // 报告 E_NOTICE也挺好 (报告未初始化的变量
    // 或者捕获变量名的错误拼写)
    error_reporting(E_ERROR | E_WARNING | E_PARSE | E_NOTICE);

    // 除了 E_NOTICE,报告其他所有错误
    error_reporting(E_ALL ^ E_NOTICE);

    // 报告所有 PHP 错误 (参见 changelog)
    error_reporting(E_ALL);

    // 报告所有 PHP 错误
    error_reporting(-1);

    // 和 error_reporting(E_ALL); 一样
    ini_set(‘error_reporting’, E_ALL);

    set_time_limit(0);//無限等待
    echo ‘jash-liao 存股-股價即時更新系統:’.”\n”;
    date_default_timezone_set(“Asia/Taipei”);
    echo ‘更新時間:’. date (“Y- m – d / H : i : s”).”\n”;
    $time=’&t=’.date (“YmdHis”);
    $fp = fopen(“http://jashliao.eu/tools/save_stock/stock.csv”, “r”);
    $num=0;
    while (($data = fgetcsv($fp, 1000, “,”)) !== FALSE)
    {
        $id=$data[1];
        $name=$data[0];
        $num=$num+1;
        if($num>0)//0,5,10,15,20-線上執行不能等太久所以一次只能查5筆
        {
            $text=file(‘https://tw.stock.yahoo.com/q/q?s=’.$id.$time);
            foreach ($text as $line_num => $line) {
                if (preg_match(“/><b>/i”, $line))
                {
                    $a='<td align=”center” bgcolor=”#FFFfff” nowrap><b>’;
                    $b='</b></td>’;
                    //str_replace (取代前的字串,取代後字串,要取代的字串);
                    $line=str_replace ($b,”,str_replace ($a,”,$line));
                    echo $name.'[‘.$id.’]’.”\t”.$line.”\n”;
                } 
            }
        }
    }
    fclose($fp);
    echo ‘資料來源:YAHOO股市’.”\n”;
    ?>

 

 

發表迴響

你的電子郵件位址並不會被公開。 必要欄位標記為 *