= {$intdate30} order by intdate EOL; $menus['chart'][$code]['sql_list'] = <<= {$intdate30} order by intdate desc EOL; // 現在地のメニューを示す $nowid = $code; } /** * メニュー作成 */ $ul = ""; $icon = []; $icon['TDnet'] = "fa-regular fa-newspaper"; $icon['EDINET'] = "fa-regular fa-folder-open"; $icon['short'] = "fa-regular fa-thumbs-down"; // $icon['new'] = "fa-regular fa-envelope-open"; $icon['watch'] = "fa-solid fa-battery-full"; $icon['logic'] = "fa-solid fa-signal"; $icon['pickup'] = "fa-solid fa-check"; $icon['Verify'] = "fa-regular fa-chart-bar"; $icon['銘柄'] = "fa-solid fa-users"; $icon['管理'] = "fa-regular fa-envelope-open"; $icon['chart'] = "fa-regular fa-envelope-open"; // https://fontawesome.com/search?p=12&o=r&m=free foreach ($menus as $type => $m1) { // open if ($type == $get_name) { $ul .= "
  • "; } else { $ul .= "
  • "; } if (!empty($icon[$type])) { $ul .= "

    {$type}

    \n"; } $ul .= "\n"; $ul .= "
    • \n"; } // htmlのpage title if (!empty($get_name) && !empty($menus[$get_name][$nowid]['title'])) { $htmtitle = "{$get_name}--{$menus[$get_name][$nowid]['title']}"; } else { $htmtitle = "{$get_name}"; } /*************************************************** * ★メニュー別に処理がある * edinet * Heatmap * 空売り機関 * 通常list * 個別銘柄chart * h3タイトル * title */ $Sector33 = []; if ($get_name == "EDINET" && !empty($docid)) { /** * edinet　$docid */ $arr = []; $arr[] = $docid; $sql = "select * from edinet where docID = ?"; $result_doc = pdo_db($sql, $arr); if (empty($result_doc)) { $h3 = "【EDINET:{$docid}】該当なし"; $htmtitle = $h3; } else { $title = $result_doc[0]['docDescription']; $doctype = $result_doc[0]['docTypeCode']; $h3 = "【EDINET:{$docid}】{$title}"; $htmtitle = $h3; // ココでhtmlのtableを作る（typeにより表示内容や処理内容を変える） $htmltable = make_edinet($docid, $doctype); } } elseif ($get_name == "watch" && strpos($nowid, "Heatmap") !== false) { /** * Heatmap */ if ($menus[$get_name][$nowid]['title'] == "Heatmap") { $h3 = "日本株ヒートマップ{$intdate}"; } else { $h3 = $menus[$get_name][$nowid]['overview']; } $result = pdo_db($menus[$get_name][$nowid]['sql']); foreach ($result as $row) { $Sector33[$row['Sector33CodeName']][] = $row; } foreach ($Sector33 as $key33 => $rows) { $div = "{$key33}"; $div .= "
    "; foreach ($rows as $row) { $div .= def_heatmap($row); } $div .= "
    "; $Sector33[$key33]['html'] = $div; } } elseif ($get_name == "short" && !empty($karacrop)) { /** * 空売り機関の検索で、karacoopのみ * 0.5以下になったら報告義務がなくなるから、そのまま収束している可能性あり、再度0.5以上になると再表示 * 消滅の報告は原則ない */ $arr = []; $arr[] = $karacrop; $c = []; $c2 = []; $c3 = []; $c4 = []; // その都度、sqlを生成する $sql = "select strdate,kara.kabu_id,k.name,zandaka, REPLACE(kara.per1, '%', '') as per1, kara.p_st, kara.p_max, kara.p_min, kara.p_ed, kara.dd, CASE WHEN CAST(kara.per1 AS DECIMAL(10,2)) - CAST(kara.per2 AS DECIMAL(10,2)) > 0 THEN '▲' ELSE '▼' END AS '', TRUNCATE(kara.per1 - kara.per2,2) as per from kara_data kara inner join kabu k on k.id = kara.kabu_id where `karacrop` LIKE ? and kara.strdate >= '2024-03-01' ORDER BY `kabu_id`,`strdate`"; $result = pdo_db($sql, $arr); $htmltable = table_make($result); $h3 = "【空売り機関直近取引】{$karacrop}"; // html title $htmtitle = $h3; } elseif (!empty($get_name) && $code == 0) { /** * 通常list */ $result = pdo_db($menus[$get_name][$nowid]['sql']); // DBのhtmlテーブル化（ヘッダー、リンクや色の設定） if (!empty($result)) { $htmltable = table_make($result); $cnttmp = count($result); } else { $cnttmp = 0; } // タイトル $h3 = "【{$menus[$get_name][$nowid]['title']}】{$menus[$get_name][$nowid]['overview']}-->{$cnttmp}"; $doc = $menus[$get_name][$nowid]['doc']; } elseif ($code != 0) { /** * 個別銘柄chart表示 */ $arr = []; $arr[] = $code; // 対象銘柄かどうか $sql = " select * from kabu where id = ?"; $result = pdo_db($sql, $arr); if (empty($result)) { // ヒットしない $nowidはcodeが入ってる $htmtitle = "{$nowid}は対象外になります。"; $h3 = "{$menus['chart'][$nowid]['title']}--本サイトでは対象外銘柄になります。"; } else { $name = $result[0]['name']; $corp = $result[0]['corp2']; $Sector33CodeName = $result[0]['Sector33CodeName']; $NetSales = $result[0]['NetSales']; $Profit = $result[0]['Profit']; $TotalAssets = $result[0]['TotalAssets']; $jika = (int)(($result[0]['p_ed'] * $result[0]['NumberOfStock']) / 1000); // html title $htmtitle = "{$nowid}--{$name}"; // 機関空売り $sql = "select strdate, karacrop, zandaka, REPLACE(per1, '%', '') as per1, CASE WHEN CAST(per1 AS DECIMAL(10,2)) - CAST(per2 AS DECIMAL(10,2)) > 0 THEN '▲' ELSE '▼' END AS '', zandaka - befzandaka as zandaka_diff, p_st, p_max, p_min, p_ed, dd from kara_data where kabu_id = ? and strdate > '2024-03-01' order by strdate desc"; $result_kara = pdo_db($sql, $arr); // 信用 $sql = " select thedate,short_all,long_all,short_n,long_n,short_s,long_s from kabu_margin where kabu_id = ? order by thedate desc"; $result_margin = pdo_db($sql, $arr); // tdnet $sql = "SELECT strdate,strtime,cropname,title,pdf_url FROM tdnet where code = ? order by strdate desc"; $result_tdnet = pdo_db($sql, $arr); //edinet $sql = "SELECT docID,docTypeCode,submitDateTime,NameOfIssuer,filerName,docDescription FROM edinet where SecurityCodeOfIssuer = ? order by submitDateTime desc"; $result_edinet = pdo_db($sql, $arr); /** * チャート(履歴処理) */ $charts = []; $ddw = 1; $result = pdo_db($menus['chart'][$nowid]['sql']); $htmltable = table_make($result); $dd = 0; $pdd = 0; foreach ($result as $id => $row) { if ($dd < $row['dd']) { $dd = $row['dd']; } $pdd = $row['p_ed']; } $ddw = strlen($dd) - strlen($pdd) + 1; // echo "{$dd}--{$pdd}--{$ddw}"; $wari = str_pad(1, $ddw, 0, STR_PAD_RIGHT); foreach ($result as $id => $row) { $yy = str_replace("2025", "", $row['intdate']); $dd = $row['dd'] / $wari; $c[] = "['{$yy}',{$row['p_min']},{$row['p_st']},{$row['p_ed']},{$row['p_max']}]"; $c2[] = "['{$yy}',{$row['p_min']},{$row['p_st']},{$row['p_ed']},{$row['p_max']},{$dd}]"; $c3[] = "['{$yy}',{$row['p_min']},{$row['p_max']},{$dd}]"; // $c4[] = "['{$yy}',{$row['bp']},{$row['pp']},{$row['pp_1']},{$row['tmax']},{$row['tmin']}]"; } // タイトル $link = "--Yahoo"; $h3 = "{$menus['chart'][$nowid]['title']}--{$name}-【{$Sector33CodeName}】{$corp}"; $h3sub = "売上高:{$NetSales}-当期純利益:{$Profit}-総資産:{$TotalAssets}-時価:{$jika}--{$link}"; $result = pdo_db($menus['chart'][$nowid]['sql_list']); //html作成 $tdnettable = table_make($result_tdnet); $edinettable = table_make($result_edinet); $karatable = table_make($result_kara); $margintable = table_make($result_margin); // 先頭なし/ローソク足 $ccc = implode(",", $c); $chart_json = "[{$ccc}]"; // 先頭タイトル $ccc = implode(",", $c2); $chart_json2 = "[ ['本数', '安値', '初値', '終値', '高値', '出来高'],{$ccc}]"; $c3a = implode(",", $c3); $chart_json2 = "[ ['本数','安値', '高値', '出来高'],{$c3a}]"; } } else { echo "{$get_name}--{$code}"; } /** * ednetのsqlとhtmlの作成 */ function make_edinet($docid, $doctype) { // table_makeの前処理 $sql = ""; $arr = []; $arr[] = $docid; if ($doctype == 350 || $doctype == 360) { $sql = "select docTypeCode,item2x,item0x,item8 from edinet_body where docID = ? and flag = 1 order by item2x,item0x"; } elseif ($doctype > 100 && $doctype < 180) { // FS cateidとsortが必要になる $sql = "select docTypeCode,cate_id,cate_sort as sss,item1,item8 from edinet_body where docID = ? and flag = 1 order by cate_id,cate_sort"; } else { $sql = "select item1,item8 from edinet_body where docID = ? and flag = 1 order by id"; } $sql = "select `id`, `docID`, `docTypeCode`, `cate_id`,`item0`, `item1`, `item8` from edinet_body where docID = ? order by id"; $result = pdo_db($sql, $arr); $html = table_make($result); // // table_make処理 // if ($doctype == 350 || $doctype == 360) { // // 大量報告書 // // item2xとitem0xを利用している、item0ではない // $tmp = []; // foreach ($result as $row) { // $tmp[$row['item2x']][$row['item0x']] = $row['item8']; // } // $html = table_make_350($tmp); // } elseif ($doctype == 120 || $doctype == 140) { // // FSは、値をcate_idでグループ配列化して、そのカテゴリごとにtableを表示 // $tmp = []; // foreach ($result as $row) { // $tmp[$row['cate_id']][$row['item1']] = $row['item8']; // } // $html = table_make_120($tmp); // } else { // // 臨時報告書、自己株買い付け // // $html = table_make($result); // $html = table_make_edinet($result); // } return $html; } function table_make($result) { // たんなる定義 $defkeys = []; $defkeys['p_st'] = ['name' => "初値", 'format' => '1']; $defkeys['p_max'] = ['name' => "高値", 'format' => '1']; $defkeys['p_min'] = ['name' => "安値", 'format' => '1']; $defkeys['p_ed'] = ['name' => "終値", 'format' => '1']; $defkeys['dd'] = ['name' => "出来高", 'format' => '1']; $defkeys['dp'] = ['name' => "売買代金", 'format' => '1']; $defkeys['diff'] = ['name' => "前日比", 'format' => '1']; $defkeys['p_st1'] = ['name' => "翌日初値", 'format' => '1']; $defkeys['ed1'] = ['name' => "翌日終値", 'format' => '1']; $defkeys['max20'] = ['name' => "直近高値", 'format' => '1']; $defkeys['min20'] = ['name' => "直近安値", 'format' => '1']; $defkeys['zandaka'] = ['name' => "残高", 'format' => '1']; $defkeys['zandaka_diff'] = ['name' => "増減", 'format' => '1']; $defkeys['short_all'] = ['name' => "short", 'format' => '1']; $defkeys['long_all'] = ['name' => "long", 'format' => '1']; $defkeys['dp1'] = ['name' => "売買代金", 'format' => '1']; $defkeys['dp3'] = ['name' => "売買代金3日平均", 'format' => '1']; $defkeys['dp5'] = ['name' => "売買代金5日平均", 'format' => '1']; $defkeys['dp10'] = ['name' => "売買代金10日平均", 'format' => '1']; $defkeys['strdate'] = ['name' => "報告日", 'format' => '0']; $defkeys['karacrop'] = ['name' => "空売り機関", 'format' => '0']; $defkeys['kabu_id'] = ['name' => "コード", 'format' => '0']; $defkeys['name'] = ['name' => "銘柄", 'format' => '0']; $defkeys['cropname'] = ['name' => "銘柄", 'format' => '0']; $defkeys['title'] = ['name' => "タイトル", 'format' => '0']; $defkeys['id'] = ['name' => "コード", 'format' => '0']; $defkeys['corp'] = ['name' => "特色", 'format' => '0']; $defkeys['ppt'] = ['name' => "セグメント", 'format' => '0']; $defkeys['per_bp'] = ['name' => "価格比", 'format' => '0']; $defkeys['per_pp'] = ['name' => "終/初値", 'format' => '0']; $defkeys['per_bd'] = ['name' => "出来比", 'format' => '0']; $defkeys['per_pp_5'] = ['name' => "5率", 'format' => '0']; $defkeys['per_pp_20'] = ['name' => "10率", 'format' => '0']; $defkeys['per_tmax'] = ['name' => "MAX20", 'format' => '0']; $defkeys['per_tmin'] = ['name' => "MIN20", 'format' => '0']; $defkeys['per1'] = ['name' => "割合", 'format' => '0']; $defkeys['Sector33CodeName'] = ['name' => "セクタ", 'format' => '0']; $defkeys['befdate'] = ['name' => "前回報告日", 'format' => '0']; $defkeys['item1'] = ['name' => "タイトル", 'format' => '0']; $defkeys['item8'] = ['name' => "内容", 'format' => '0']; $defkeys['filerName'] = ['name' => "提出者", 'format' => '0']; $defkeys['docDescription'] = ['name' => "報告書", 'format' => '0']; $defkeys['NameOfIssuer'] = ['name' => "企業名", 'format' => '0']; $defkeys['submitDateTime'] = ['name' => "報告日時", 'format' => '0']; $defkeys['docTypeCode'] = ['name' => "docType", 'format' => '0']; $defkeys['p5days'] = ['name' => "5%s", 'format' => '0']; $defkeys['p10days'] = ['name' => "10%s", 'format' => '0']; $defkeys['p20days'] = ['name' => "20%s", 'format' => '0']; // 長い文字列優先でマッチ $defkeys['short_n'] = ['name' => "一般信用売残", 'format' => '1']; $defkeys['long_n'] = ['name' => "一般信用買残", 'format' => '1']; $defkeys['short_s'] = ['name' => "制度信用売残", 'format' => '1']; $defkeys['long_s'] = ['name' => "制度信用買残", 'format' => '1']; $defkeys['short'] = ['name' => "売残合計", 'format' => '1']; $defkeys['long'] = ['name' => "買残合計", 'format' => '1']; $defkeys['kabu_type'] = ['name' => "logic", 'format' => '0']; $defkeys['出来高'] = ['name' => "出来高", 'format' => '1']; $defkeys['信用'] = ['name' => "信用", 'format' => '1']; $defkeys['売上'] = ['name' => "売上", 'format' => '1']; $defkeys['営利'] = ['name' => "営利", 'format' => '1']; $defkeys['当利'] = ['name' => "当利", 'format' => '1']; $defkeys['1株利'] = ['name' => "1株利", 'format' => '1']; $defkeys['現金'] = ['name' => "現金", 'format' => '1']; $defkeys['総資産'] = ['name' => "総資産", 'format' => '1']; $defkeys['純資産'] = ['name' => "純資産", 'format' => '1']; $defkeys['資比率'] = ['name' => "資比率", 'format' => '1']; $defkeys['1株資'] = ['name' => "1株資", 'format' => '1']; $defkeys['発行株式数'] = ['name' => "発行株式数", 'format' => '1']; $defkeys['自己株式'] = ['name' => "自己株式", 'format' => '1']; $html = ""; $code2 = []; $cnt = 0; foreach ($result as $row) { if ($cnt == 0) { $html .= "\n"; foreach ($row as $key => $v) { if ($key == "pdf_url") { } elseif ($key == "url") { } elseif ($key == "item8") { $html .= ""; } else { $html .= ""; } } $html .= "\n\n"; $cnt = 1; } if (!empty($row["kabu_id"])) { if (empty($code2[$row["kabu_id"]])) { $code2[$row["kabu_id"]] = $row["kabu_id"]; } else { continue; } } $htmltd = ""; $trflag = 0; foreach ($row as $key => $v) { if ($key == "id" || $key == "kabu_id") { // $htmltd .= ""; $htmltd .= ""; } elseif ($key == "y") { $htmltd .= ""; } elseif ($key == "karacrop") { $htmltd .= ""; } elseif ($key == "siteurl") { $htmltd .= ""; } elseif (strpos($key, "per") !== false) { // %の赤色表示 if ($v > 100) { $htmltd .= ""; } else { $htmltd .= ""; // $htmltd .= ""; } } elseif ($key == "pdiff") { if ($v > 0) { $htmltd .= ""; } else { $htmltd .= ""; } } elseif ($key == "tmax") { if ($v < 80) { $htmltd .= ""; } else { $htmltd .= ""; } } elseif ($key == "tmin") { if ($v < 130) { $htmltd .= ""; } else { $htmltd .= ""; } } elseif (!empty($key) && mb_strpos("個人,海外,証券,自己,委託,投信,信託,事業,生保,銀行", $key, 0, "UTF-8") !== false) { if ($v < 0) { $htmltd .= ""; } else { $htmltd .= ""; } } elseif ($key == "docID") { // $htmltd .= ""; $htmltd .= ""; } elseif ($key == "title") { $htmltd .= ""; } elseif ($key == "site_title") { $htmltd .= ""; } elseif ($key == "upv") { $v = def_upv($v); $htmltd .= ""; } elseif ($key == "pdf_url") { } elseif ($key == "url") { } elseif ($key == "item8") { $v = disp_item8($v); $htmltd .= ""; } else { $v = def_sankaku($v); if (def_kanma($defkeys, $key, $v) === false) { $htmltd .= ""; } else { $v = def_kanma($defkeys, $key, $v); $htmltd .= ""; } } } if ($trflag == 1) { $html .= "" . $htmltd . ""; } else { $html .= "" . $htmltd . ""; } } $html .= "\n
    " . def_key($defkeys, $key) . "" . def_key($defkeys, $key) . "
    $v $v Y $v {$v}" . nl2br($v) . "%" . nl2br($v) . "%" . nl2br($v) . "%" . nl2br($v) . "" . nl2br($v) . "" . nl2br($v) . "" . nl2br($v) . "" . nl2br($v) . "" . nl2br($v) . "" . nl2br($v) . "" . nl2br($v) . " {$v} {$v} {$v} {$v}" . nl2br($v) . "" . nl2br($v) . "" . nl2br($v) . "" . nl2br($v) . "
    "; return ($html); } function table_make_edinet($result) { // たんなる定義 $defkeys = []; $defkeys['item1'] = ['name' => "タイトル", 'format' => '0']; $defkeys['item8'] = ['name' => "内容", 'format' => '0']; $html = ""; $cnt = 0; foreach ($result as $row) { if ($cnt == 0) { $html .= "\n"; foreach ($row as $key => $v) { if ($key == "item8") { $html .= ""; } else { $html .= ""; } } $html .= "\n\n"; $cnt = 1; } $htmltd = ""; // print_r($row); // [item1] => 証券コード、DEI $berlabel = ""; foreach ($row as $key => $v) { if ($key == "item8") { if (mb_strrpos($berlabel, "コード") !== false) { } else { $v = disp_item8($v); } $htmltd .= ""; } else { // item1の項目ラベル $htmltd .= ""; $berlabel = $v; } } $html .= "" . $htmltd . ""; } $html .= "\n
    " . def_key($defkeys, $key) . "" . def_key($defkeys, $key) . "
    " . nl2br($v) . "" . nl2br($v) . "
    "; return ($html); } /** * 大量報告書 */ function table_make_350($tmp) { $html = ""; foreach ($tmp as $key => $row2) { if ($key == "Date") { // 企業名 $SecurityCodeIssuer = $row2['SecurityCodeIssuer']; $NameIssuer = $row2['NameIssuer']; $html .= "\n"; $html .= "\n"; $html .= "\n"; if (!empty($row2['TotalNumberOutstandingStocksEtc'])) { $html .= "\n"; } $html .= "\n
    証券コード{$row2['SecurityCodeIssuer']}
    対象企業名{$row2['NameIssuer']}
    株式総数{$row2['TotalNumberOutstandingStocksEtc']}
    \n"; $html .= "
    \n"; } else { $html .= "\n"; // $html .= "\n"; if (!empty($row2['NameJapanese'])) { $html .= "\n"; } // if (!empty($row2['TotalNumberOutstandingStocksEtc'])) { // $html .= "\n"; // } if (!empty($row2['TotalNumberStocksEtcHeld'])) { $html .= "\n"; } if (!empty($row2['HoldingRatioShareCertificatesEtc'])) { $html .= "\n"; } if (!empty($row2['HoldingRatioShareCertificatesEtcPerLastReport'])) { $diff = $row2['HoldingRatioShareCertificatesEtc'] - $row2['HoldingRatioShareCertificatesEtcPerLastReport']; $html .= "\n"; } if (!empty($row2['PurposeHolding'])) { $html .= "\n"; } // 追加 if (!empty($row2['TotalAmountFundingAcquisition'])) { $one = floor($row2['TotalAmountFundingAcquisition'] / $row2['TotalNumberStocksEtcHeld']); $html .= "\n"; } if (!empty($row2['AmountOwnFund'])) { $html .= "\n"; } // if (!empty($row2['NamesEtcCreditors'])) { // $html .= "\n"; // } if (!empty($row2['BreakdownBorrowings'])) { $v = $row2['BreakdownBorrowings']; $v = str_replace("②【借入金の内訳】", "", $v); $v = str_replace("名称（支店名）", "", $v); $v = str_replace("業種代表者氏名所在地借入目的金額", "", $v); $v = str_replace("（千円）", "", $v); $html .= "\n"; } if (!empty($row2['SignificantContractsRelatedToSaidStocksEtcSuchAsCollateralAgreements'])) { $v = $row2['SignificantContractsRelatedToSaidStocksEtcSuchAsCollateralAgreements']; $v = str_replace("(4)【当該株券等に関する担保契約等重要な契約】", "", $v); $html .= "\n"; } $v = ""; if (!empty($row2['AcquisitionsDisposalsStocksEtcIssuedIssuerSaidStocksEtcDuringLastDays'])) { $v = $row2['AcquisitionsDisposalsStocksEtcIssuedIssuerSaidStocksEtcDuringLastDays']; $v = str_replace("（５）【当該株券等の発行者の発行する株券等に関する最近60日間の取得又は処分の状況】", "", $v); $v = str_replace("年月日株券等の種類数量割合市場内外取引の別取得又は処分の別単価", "", $v); $v = str_replace("年月日", "", $v); $v = str_replace("株券等の種類", "", $v); $v = str_replace("数量", "", $v); $v = str_replace("割合", "", $v); $v = str_replace("市場内外取引の別", "", $v); $v = str_replace("取得又は処分の別", "", $v); $v = str_replace("単価", "", $v); $v = str_replace("令和", "
    令和", $v); $v = str_replace("2021年", "
    2021年", $v); $v = str_replace("2022年", "
    2022年", $v); $v = str_replace("2023年", "
    2023年", $v); $v = str_replace("2024年", "
    2024年", $v); $v = NumbersRaito($v); } $html .= "\n"; $html .= "\n
    コード{$row2['SecurityCode']}
    報告者{$row2['NameJapanese']}({$row2['Code']})
    株式総数{$row2['TotalNumberOutstandingStocksEtc']}
    保有株総数{$row2['TotalNumberStocksEtcHeld']}
    割合{$row2['HoldingRatioShareCertificatesEtc']}%
    割合直前{$row2['HoldingRatioShareCertificatesEtcPerLastReport']}% ({$diff}%)
    目的{$row2['PurposeHolding']}
    取得資金合計{$row2['TotalAmountFundingAcquisition']}（1株取得単価：{$one}円）
    自己資金{$row2['AmountOwnFund']}
    借入先の名称等{$row2['NamesEtcCreditors']}
    借入金の内訳{$v}
    担保契約等重要な契約{$v}
    取得又は処分の状況{$v}
    \n"; $html .= "
    \n"; } } return ($html); } function NumbersRaito($input) { // 「,数字4桁.」のパターンを「,数字3桁 1桁.」に変換 $pattern4 = '/(\d{4})\./'; $replacement4 = function ($matches) { return substr($matches[1], 0, 3) . ' - ' . substr($matches[1], 3) . '.'; }; $input = preg_replace_callback($pattern4, $replacement4, $input); // 「,数字5桁.」のパターンを「,数字3桁 2桁.」に変換 $pattern5 = '/(\d{5})\./'; $replacement5 = function ($matches) { return substr($matches[1], 0, 3) . ' - ' . substr($matches[1], 3) . '.'; }; $input = preg_replace_callback($pattern5, $replacement5, $input); return $input; } /** * FS */ function table_make_120($tmp) { $html = ""; // 10 CoverPage if (!empty($tmp['10'])) { $html .= "

    CoverPage

    "; $html .= table_make_fs($tmp['10']); } // 11 corp if (!empty($tmp['11'])) { $html .= "

    corp

    "; $html .= table_make_fs($tmp['11']); } // 21 Employees if (!empty($tmp['21'])) { $html .= "

    Employees

    "; $html .= table_make_fs($tmp['21']); } // 40 Investment if (!empty($tmp['40'])) { $html .= "

    Investment

    "; $html .= table_make_fs($tmp['40']); } // 50 Shareholders if (!empty($tmp['50'])) { $html .= "

    Shareholders

    "; $html .= table_make_fs($tmp['50']); } // 51 Shareholders2自己株式 if (!empty($tmp['51'])) { $html .= "

    Shareholders2

    "; $html .= table_make_fs($tmp['51']); } // 60 Audit　単体と連結があるNon=1 if (!empty($tmp['60'])) { $html .= "

    Audit

    "; $html .= table_make_fs($tmp['60']); } // 60 Audit　単体と連結があるNon=1 if (!empty($tmp['61'])) { $html .= "

    Audit1

    "; $html .= table_make_fs($tmp['61']); } // 100 BS資産 if (!empty($tmp['100'])) { $html .= "

    BS資産

    "; $html .= table_make_fs($tmp['100']); } // 110 BS2負債、資本 if (!empty($tmp['110'])) { $html .= "

    BS負債、資本

    "; $html .= table_make_fs($tmp['110']); } // 200 PL if (!empty($tmp['200'])) { $html .= "

    PL

    "; $html .= table_make_fs($tmp['200']); } // 210 PL2 包括利益、不明 // 包括利益とは、企業の純資産の増分すべてを含む利益で、当期純利益に保有資産の含み益や含み損を織り込んだものです。 if (!empty($tmp['210'])) { $html .= "

    PL2

    "; $html .= table_make_fs($tmp['210']); } // 400 BS_ALL if (!empty($tmp['400'])) { $html .= "

    FS_ALL

    "; $html .= table_make_fs($tmp['400']); } // 300 CF1>営業活動によるキャッシュ・フロー if (!empty($tmp['300'])) { $html .= "

    営業活動によるキャッシュ・フロー

    "; $html .= table_make_fs($tmp['300']); } // 310 CF2財務活動によるキャッシュ・フロー if (!empty($tmp['310'])) { $html .= "

    財務活動によるキャッシュ・フロー

    "; $html .= table_make_fs($tmp['310']); } // 320 CF3投資活動によるキャッシュ・フロー if (!empty($tmp['320'])) { $html .= "

    投資活動によるキャッシュ・フロー

    "; $html .= table_make_fs($tmp['320']); } // 500 fs_note テキストボックス、概要や注記 if (!empty($tmp['500'])) { $html .= "

    概要や注記

    "; $html .= table_make_fs($tmp['500']); } // // 510 fs2　あいまい // $html .= table_make_fs($tmp['510']); return ($html); } function table_make_fs($ret) { // FSはカテゴリ別にtable化して、表示する $html = "\n"; foreach ($ret as $key => $v) { // キーの表示、整形 $key = str_replace("（△）", "", $key); $key = str_replace("（△は減少）", "", $key); $key = str_replace("（平成26年3月28日財規等改正後）", "", $key); // 値の表示、整形 $v = disp_item8($v); $html .= "\n"; } $html .= "
    {$key}{$v}
    \n"; return $html; } function disp_item8($str) { // edinetのitem8は、コンテキストが入っている // 項目ごとに、詳細に整形する必要がある→おそらくDBでやった方がいいけど、上書きだから失敗しないようにする // keyとvalueがあるので、その関係で、keyで分岐して、valueを整形する if (is_numeric($str)) { $str = number_format($str); } // ①、(1),個別に文字列を用意して、置換などをする $str = str_replace("】", "】
    ", $str); $str = str_replace("(注)", "
    (注)", $str); $str = str_replace("第１号議案", "
    第１号議案", $str); $str = str_replace("第２号議案", "
    第２号議案", $str); $str = str_replace("第３号議案", "
    第３号議案", $str); $str = str_replace("(2)", "
    (2)", $str); return $str; } function def_upv($key) { // ▲▼の表示 if ($key == 0) { $key = "--"; } elseif ($key > 0) { // #3366FF $key = str_repeat("▲", $key); $key = "{$key}"; } elseif ($key < 0) { $key = $key * -1; $key = str_repeat("▼", $key); $key = "{$key}"; } return $key; } function def_sankaku($key) { // ▲▼の表示 if ($key == "▲") { $key = "{$key}"; } else if ($key == "▼") { $key = "{$key}"; } return $key; } function def_key($defkeys, $key) { // 日本語名に変換 if (empty($defkeys[$key])) { return $key; } else { return $defkeys[$key]['name']; } } function def_kanma($defkeys, $key, $number) { // ３桁カンマ if (!empty($defkeys[$key]['format']) && is_numeric($number)) { $number = number_format($number); return $number; } else { return false; } } function def_heatmap($row) { // heatmap // 色を5色にして、高いから低いで並べるのがいいね $per = $row['per_bp']; $strlen = ""; $div = ""; if ($per > 106) { $strlen = "u2"; $intp = $row['per_bp'] - 100; $aheft = "{$row['kabu_id']}"; // style=\"width:40px;\" $intwitdh = $intp * 10; $div = "
    {$aheft}
    {$row['name']}
    {$intp}%
    "; } elseif ($per > 103) { $strlen = "u2"; $intp = $row['per_bp'] - 100; $aheft = "{$row['kabu_id']}"; $div = "
    {$aheft}
    {$row['name']}
    {$intp}%
    "; } elseif ($per > 100) { $strlen = "u1"; $div = "
    "; } elseif ($per == 0) { } elseif ($per < 93) { $strlen = "d2"; $intp = 100 - $row['per_bp']; $intwitdh = $intp * 10; $aheft = "{$row['kabu_id']}"; $div = "
    {$aheft}
    {$row['name']}
    -{$intp}%
    "; } elseif ($per < 98) { $strlen = "d2"; $intp = 100 - $row['per_bp']; $aheft = "{$row['kabu_id']}"; $div = "
    {$aheft}
    {$row['name']}
    -{$intp}%
    "; } elseif ($per < 100) { $strlen = "d1"; $div = "
    "; } return $div; } ?> スイングトレード株式銘柄のスクリーニング「kabuu」(<?php echo $htmtitle ?>)

    {$h3sub}

    "; } ?>
    "; echo "
    "; } ?>
    "; echo "
    {$Sector33['水産・農林業']['html']}
    \n"; echo "
    {$Sector33['鉱業']['html']}
    \n"; echo "
    {$Sector33['建設業']['html']}
    \n"; echo "
    {$Sector33['食料品']['html']}
    \n"; echo "
    {$Sector33['繊維製品']['html']}
    \n"; echo "
    {$Sector33['パルプ・紙']['html']}
    \n"; echo "
    {$Sector33['化学']['html']}
    \n"; echo "
    {$Sector33['医薬品']['html']}
    \n"; echo "
    {$Sector33['石油･石炭製品']['html']}
    \n"; echo "
    {$Sector33['ゴム製品']['html']}
    \n"; echo "
    {$Sector33['ガラス･土石製品']['html']}
    \n"; echo "
    {$Sector33['鉄鋼']['html']}
    \n"; echo "
    {$Sector33['非鉄金属']['html']}
    \n"; echo "
    {$Sector33['金属製品']['html']}
    \n"; echo "
    {$Sector33['機械']['html']}
    \n"; echo "
    {$Sector33['電気機器']['html']}
    \n"; echo "
    {$Sector33['輸送用機器']['html']}
    \n"; echo "
    {$Sector33['精密機器']['html']}
    \n"; echo "
    {$Sector33['その他製品']['html']}
    \n"; echo "
    {$Sector33['電気･ガス業']['html']}
    \n"; echo "
    {$Sector33['陸運業']['html']}
    \n"; echo "
    {$Sector33['海運業']['html']}
    \n"; echo "
    {$Sector33['空運業']['html']}
    \n"; echo "
    {$Sector33['倉庫･運輸関連業']['html']}
    \n"; echo "
    {$Sector33['情報･通信業']['html']}
    \n"; echo "
    {$Sector33['卸売業']['html']}
    \n"; echo "
    {$Sector33['小売業']['html']}
    \n"; echo "
    {$Sector33['銀行業']['html']}
    \n"; echo "
    {$Sector33['証券･商品先物取引業']['html']}
    \n"; echo "
    {$Sector33['保険業']['html']}
    \n"; echo "
    {$Sector33['その他金融業']['html']}
    \n"; echo "
    {$Sector33['不動産業']['html']}
    \n"; echo "
    {$Sector33['サービス業']['html']}
    \n"; // echo "
    {$Sector33['その他']['html']}
    \n"; echo "
    \n"; } else { if (!empty($htmltable)) { echo $htmltable; } } ?>
    TDnet更新情報"; echo "
    "; echo "
    "; echo $tdnettable; echo "
    "; echo "
    "; } ?> 信用取引情報"; echo "
    "; echo "
    "; echo $margintable; echo "
    "; echo "
    "; } ?> 機関空売り情報"; echo "
    "; echo "
    "; echo $karatable; echo "
    "; echo "
    "; } ?> EDINEt更新情報"; echo "
    "; echo "
    "; echo $edinettable; echo "
    "; echo "
    "; } ?>