#被リンクチェッカーProgram改　　　H211002作成

#100個の相互リンクを1回の設定で4回繰り返して調査する

#●注記　HTTPデータ取得が機能しなくなったときの対応
#１案．「WINDOWS再起動」により、なでしこを再起動する。	採用
#２案．なでしこ内で、停止−−＞再実行する。		不採用
#○実行直後に、保存データをチェックして、再開するリンク先を選別する
#○「毎行読む」欄の「続ける」は、存在意味がない　将来確認後除去する


# 初期条件
目標サイト＝「http://www.○○.com/」#　　：あなたのHPのURL
リンク集データ＝「D:\hilinkcheck\list.dat」#　　　　　　　　　　：「list.dat のローカルアドレス」
調査結果データ＝「D:\hilinkcheck\リスト.txt」#　　　　　　　　　　：「リスト.txt のローカルアドレス」
#
# ＊変数説明＊
# データ集計マトリクス【i,j】：調査対象や調査結果を集計するマトリックス
# 調査回数　　　　　　　：調査回数は初回が1、最終が4
# トップ掲載リンク一覧　：１個の被リンク先トップページに掲載されているリンク一覧
# 次層掲載リンク一覧　　：被リンク先トップ直下のページに掲載されているリンク一覧
#　　　　　　　　　　　　　　この中に中継URLが含まれる
# 第３層掲載リンク一覧　：次層直下のページに掲載されているリンク一覧
#　　　　　　　　　　　　　　この中の１つに目標サイトへのリンクが掲載される
# ＳＥＯページ掲載リンク一覧：seoplink自動ページングページ掲載リンク一覧
# 実相互リンク設置先　　：検出した相互リンク設置先
# 発リンク数　　　　　　：検出した相互リンク設置先の発リンク数（保留）
# 登録URL 　　　　　　　：調査中の登録された被リンク先トップ
# 相互リンク設置先　　　：調査中の登録された相互第３層URL
# 次層URL 　　　　　　　：調査中の被リンク先トップからリンクされたページ
# 第３層URL 　　　　　　：調査中の次層URLからリンクされたページ
# ＳＥＯURL 　　　　　　：調査中の相互リンク設置先から自動ページングされたページ
# ＊カウンタリスト＊
# カウンタ　　　　　　　：汎用カウンタ
# カウンタ１　　　　　　：トップ掲載リンクループカウンタ
# カウンタ２　　　　　　：次層掲載リンクループカウンタ
# カウンタ３　　　　　　：第３層掲載リンクループカウンタ
# カウンタ４　　　　　　：相互リンク設置先から自動ページングされたページカウンタ
カウンタ４ＭＡＸ＝20 # 　：相互リンク設置先から自動ページングされたページMAX
# トップカウンタ　　　　：トップページ掲載リンク区分用カウンタ
# 次層カウンタ　　　　　：次層ページ掲載リンク区分用カウンタ
# 第３層カウンタ　　　　：第３層ページ掲載リンク区分用カウンタ
# ＳＥＯカウンタ　　　　：seoplink自動ページングページ掲載リンク区分用カウンタ
# 開始時刻　　　　　　　：１個の被リンク先調査開始時間（秒）
# 現在時刻　　　　　　　：現在時間（秒）
経過時間ＭＡＸ＝3600　 #：１個の被リンク先調査限度時間(秒)
# ＊結果の説明＊
# 調査結果NO【NO】　１：相互リンク設置先に目標サイトへのリンクが有った
# 調査結果NO【NO】　２：相互リンク設置先外のページに目標サイトへのリンクが有った
# 調査結果NO【NO】　３：目標サイトへのリンクが見つからなかった
# 調査結果NO【NO】　４：登録サイトアクセス不良（サイトが存在しない、通信不良）
# 調査結果NO【NO】　５：1個の被リンク先の調査時間が所定時間を超えた

#(1) --- 相互リンク集のデータを読み込んで、データ集計マトリクス【i,j】を作成する

カウンタ＝0
リンク集データを毎行読む。
反復
　　もし、それが空ならば、続ける。
　　カウンタ＝カウンタ＋1
　　それはそれをＳＪＩＳ変換したもの
　　リンク集データM【カウンタ】＝それ
データ数＝カウンタ
カウンタで１からデータ数まで繰り返す。
　　データMはリンク集データM【カウンタ】を「,」で区切ったもの。
　　データ集計マトリクス【0,カウンタ】＝データM【1】　　　# 登録URL
　　データ集計マトリクス【1,カウンタ】＝「」　　　　　　　# 1回目調査結果NO
　　データ集計マトリクス【2,カウンタ】＝「」　　　　　　　# 2回目調査結果NO
　　データ集計マトリクス【3,カウンタ】＝「」　　　　　　　# 3回目調査結果NO
　　データ集計マトリクス【4,カウンタ】＝「」　　　　　　　# 4回目調査結果NO
　　データ集計マトリクス【5,カウンタ】＝「」　　　　　　　# 総合調査結果NO
　　データ集計マトリクス【6,カウンタ】＝データM【7】　　　#リンク設置先（申請）
　　データ集計マトリクス【7,カウンタ】＝「」　　　　　　　#リンク設置先（実際）
　　データM【1】のURLドメイン名抽出してデータ集計マトリクス【8,カウンタ】に代入

#
#(1-2) --- 調査結果データを読み込んで、データ集計マトリクス【i,j】に入力する
#
#記録データ配列 "調査回数,登録URL,設置URL,調査結果URL,調査結果NO,総合調査結果NO"
#　　　　　　　　　　0　　　　1　　　 2　　　　　3　　　　　4　　　　　5

カウンタ＝0
調査結果データを毎行読む。
反復
　　それをそれ2に代入。
　　それで１から「終わりました」を文字検索
　　もし、それ＞0ならば、「調査完了後起動」へ飛ぶ。
　　もし、それ2が空ならば、続ける。
　　それ2の1から1文字抜き出す。
　　それをそれ3に代入。
　　もし、(それ3<>「1」)AND(それ3<>「2」)AND(それ3<>「3」)AND(それ3<>「4」)AND(それ3<>「5」)ならば、続ける。
　　カウンタ＝カウンタ＋1
　　#それ2はそれ2をＳＪＩＳ変換したもの
　　調査結果データM【カウンタ】＝それ2
データ数2＝カウンタ

カウンタ＝0
▲繰返基点
　　カウンタ＝カウンタ＋1
　　もし、カウンタ＞データ数2ならば
　　　　「調査回数特定」へ飛ぶ。　　　　　　　　　　　　　　　# --- 次へいく
　　データM2は調査結果データM【カウンタ】を「,」で区切ったもの。
　　もし、データM2【0】＝1 ならば
　　　　カウンタ５で1からデータ数まで繰り返す。　　# --- list.datのデータ数
　　　　　　もし、データ集計マトリクス【0,カウンタ５】＝データM2【1】ならば
　　　　　　　　データ集計マトリクス【1,カウンタ５】＝データM2【4】
　　　　　　　　データ集計マトリクス【5,カウンタ５】＝データM2【5】
　　　　　　　　データ集計マトリクス【7,カウンタ５】＝データM2【3】
　　もし、データM2【0】＝2 ならば
　　　　カウンタ５で1からデータ数まで繰り返す。　　# --- list.datのデータ数
　　　　　　もし、データ集計マトリクス【0,カウンタ５】＝データM2【1】ならば
　　　　　　　　データ集計マトリクス【2,カウンタ５】＝データM2【4】
　　　　　　　　データ集計マトリクス【5,カウンタ５】＝データM2【5】
　　　　　　　　データ集計マトリクス【7,カウンタ５】＝データM2【3】
　　もし、データM2【0】＝3 ならば
　　　　カウンタ５で1からデータ数まで繰り返す。　　# --- list.datのデータ数
　　　　　　もし、データ集計マトリクス【0,カウンタ５】＝データM2【1】ならば
　　　　　　　　データ集計マトリクス【3,カウンタ５】＝データM2【4】
　　　　　　　　データ集計マトリクス【5,カウンタ５】＝データM2【5】
　　　　　　　　データ集計マトリクス【7,カウンタ５】＝データM2【3】
　　もし、データM2【0】＝4 ならば
　　　　カウンタ５で1からデータ数まで繰り返す。　　# --- list.datのデータ数
　　　　　　もし、データ集計マトリクス【0,カウンタ５】＝データM2【1】ならば
　　　　　　　　データ集計マトリクス【4,カウンタ５】＝データM2【4】
　　　　　　　　データ集計マトリクス【5,カウンタ５】＝データM2【5】
　　　　　　　　データ集計マトリクス【7,カウンタ５】＝データM2【3】
　　「繰返基点」へ飛ぶ。


#(1-3) --- 調査結果データの最後のデータを見て現在の調査回数を特定する
▲調査回数特定
G＝データ集計マトリクス【4,データ数2】
　　#もし、(G=「1」)OR(G=「2」)OR(G=「3」)OR(G=「4」)OR(G=「5」)ならば
　　もし、(G=1)OR(G=2)OR(G=3)OR(G=4)OR(G=5)ならば
　　　　調査回数に4を代入して、「調査開始」へ飛ぶ。
G＝データ集計マトリクス【3,データ数2】
　　#もし、(G=「1」)OR(G=「2」)OR(G=「3」)OR(G=「4」)OR(G=「5」)ならば
　　もし、(G=1)OR(G=2)OR(G=3)OR(G=4)OR(G=5)ならば
　　　　調査回数に3を代入して、「調査開始」へ飛ぶ。
G＝データ集計マトリクス【2,データ数2】
　　#もし、(G=「1」)OR(G=「2」)OR(G=「3」)OR(G=「4」)OR(G=「5」)ならば
　　もし、(G=1)OR(G=2)OR(G=3)OR(G=4)OR(G=5)ならば
　　　　調査回数に2を代入して、「調査開始」へ飛ぶ。
調査回数＝1

#(2) --- ここから調査
▲調査開始

#(2) --- list.datから1個づつ相互リンク先を調査する
カウンタ１＝0
結果保存１　#  ----------　●SubRoutineへ飛んでTXTへデータの項目を書き込む

▲Top掲載リンク処理ループ# --- 相互リンク集データ処理ループの開始点
カウンタ１＝カウンタ１＋1

もし、カウンタ１＜＝データ数ならば、「続行」へ飛ぶ。
もし、調査回数＝4 ならば、「全調査完了」へ飛ぶ。
調査回数＝調査回数＋1
「調査開始」へ飛ぶ。

▲続行

現在時刻sub。　#  ------------　被リンク先調査開始時間を現在時刻に代入して戻る
開始時刻＝現在時刻

調査結果番号＝0
実相互リンク設置先＝「」
登録URL＝データ集計マトリクス【0,カウンタ１】
登録URLドメイン＝データ集計マトリクス【8,カウンタ１】
相互リンク設置先＝データ集計マトリクス【6,カウンタ１】

#(*) --- 調査先選び出し

#○最終結果が入っているところはパスする
G＝データ集計マトリクス【5,カウンタ１】
#もし、(G=「1」)OR(G=「2」)OR(G=「3」)OR(G=「4」)OR(G=「5」)ならば
もし、(G=1)OR(G=2)OR(G=3)OR(G=4)OR(G=5)ならば
　　「Top掲載リンク処理ループ」へ飛ぶ。

#○同一調査回数にデータが入っているところはパスする
G＝データ集計マトリクス【調査回数,カウンタ１】
#もし、(G=「1」)OR(G=「2」)OR(G=「3」)OR(G=「4」)OR(G=「5」)ならば
もし、(G=1)OR(G=2)OR(G=3)OR(G=4)OR(G=5)ならば
　　「Top掲載リンク処理ループ」へ飛ぶ。

#(3) --- １個の登録URLの読取確認
登録URL調査中＝1
読取失敗＝0
登録URLを調査URLに代入。
▲再読取
ＵＲＬ読取確認。　#  ----------------　調査URLを携えて、●SubRoutineへ飛ぶ
　　　　　　　　　#  ----------------　HTTPデータ取得して本体に代入して戻る
登録URL調査中＝0
もし、それがはいならば
　　もし、読取失敗＝１ならば
　　　　データ集計マトリクス【調査回数,カウンタ１】＝4
　　　　結果保存４
　　　　WINDOWS再起動#  -------------　読取失敗したら、この場所で再起動する
　　読取失敗＝１
　　#結果保存４
　　60秒待つ
　　「再読取」へ飛ぶ。
違えば
　　読取失敗＝0

#(方針) --- Topページに掲載されているリンク一覧を取得して、
#　　　　　　順番に相互リンク設置先へのリンク有無を見る

#(4) --- Top掲載リンク一覧をトップ掲載リンク一覧M【トップカウンタ】に代入
基本URLは調査URLからURL基本パス抽出したもの
トップカウンタ=0

本体からHTMLリンク抽出して反復
　　「:」まで切り取って小文字変換してプロトコルに代入。
　　プロトコルで条件分岐
    　　「mailto」ならば続ける。
　　　　「javascript」ならば続ける。
　　もし、RIGHT(対象,1)＝「/」ならば
　　　　母艦は対象。
　　　　対象を基本URLでURL展開して対象に代入。
　　　　　　もし、RIGHT(対象,1)＜＞「/」ならば、対象に「/」を追加する。
　　違えば
　　　　母艦は対象。　　　　　　　　　　　　　　# ------　対象は反復対象を指す
　　　　対象を基本URLでURL展開して対象に代入。　# ------　絶対パスに変換する
　　Fは(対象からURLファイル名抽出したもの)の拡張子抽出して大文字変換したもの
　　もし、(F＜＞「.HTM」) AND (F＜＞「.HTML」) AND (F＜＞「.PHP」) AND (F＜＞「」)ならば続ける。
　　トップカウンタ＝トップカウンタ＋1
　　トップ掲載リンク一覧M【トップカウンタ】＝対象

トップカウンタＭＡＸ＝トップカウンタ　　　　#  -----　トップリンクのデータ数

#(*) -- トップ掲載リンク一覧M【NO】の中に目標サイトへのリンクがあるか見ていく
カウンタで1からトップカウンタＭＡＸまで繰り返す
　　もし、トップ掲載リンク一覧M【カウンタ】＝目標サイトならば
　　　　実相互リンク設置先＝登録URL
　　　　データ集計マトリクス【7,カウンタ１】＝登録URL
　　　　#発リンク数＝トップカウンタＭＡＸ
　　　　もし、相互リンク設置先＝実相互リンク設置先ならば
　　　　　　データ集計マトリクス【調査回数,カウンタ１】＝1
　　　　違えば
　　　　　　データ集計マトリクス【調査回数,カウンタ１】＝2
　　　　「ワン調査完了」へ飛ぶ。

#（5）トップ掲載リンク一覧M【NO】を順番に見ていく
カウンタ２＝0　　　　　　　　　　　　　　#　--- カウンタ２初期化
カウンタで1からトップカウンタＭＡＸまで繰り返す　#　- 確認済次層URLM【NO】初期化
　　確認済次層URLM【カウンタ】＝「」

#(*) -- 「相互リンク設置先」の文字列の中に「seoplink」が有る場合、最初に実施する
seoplink＝0
カウンタで1からトップカウンタＭＡＸまで繰り返す
　　トップ掲載リンク一覧M【カウンタ】で１から「seoplink」を文字検索
　　もし、それ＞0ならば
　　　　次層URLにトップ掲載リンク一覧M【カウンタ】を代入。
　　　　次層URLのURLドメイン名抽出して次層URLドメインに代入
　　　　もし、次層URLドメイン＝登録URLドメインならば
　　　　　　seoplink＝1
　　　　　　カウンタ２＝カウンタ
　　　　　　「seoplink有り」へ飛ぶ。

▲次層掲載リンク処理ループ# --- トップ掲載リンク一覧処理ループの開始点
#  --　中継URLかもしれない１個の次層ページについて、リンク一覧作成
カウンタ２＝カウンタ２＋1
もし、カウンタ２＞トップカウンタＭＡＸならば
　　「次層掲載リンク処理ループ終了」へ飛ぶ。

▲seoplink有り# --- 「seoplink」がある時は、ここから始める

#(1) --- トップ掲載リンク一覧M【カウンタ２】からリンクを読み出す
次層URLにトップ掲載リンク一覧M【カウンタ２】を代入。

#(2) --- 次層URLのドメインは登録URLドメインと同じでなければならない
次層URLのURLドメイン名抽出して次層URLドメインに代入

もし、次層URLドメイン＜＞登録URLドメインならば
　　「次層掲載リンク処理ループ」へ飛ぶ。

#(*) --- 次層URLは登録URLと等しくない
もし、次層URL＝登録URLならば、「次層掲載リンク処理ループ」へ飛ぶ。

#(3) --- 次層URLとして前回と同じＵＲＬが来た場合は処理を省略する
カウンタで1からトップカウンタＭＡＸまで繰り返す
　　もし、次層URL＝確認済次層URLM【カウンタ】ならば
　　　　「次層掲載リンク処理ループ」へ飛ぶ。

#(4) --- 次層URLを確認済次層URLM【カウンタ２】に記録する
確認済次層URLM【カウンタ２】＝次層URL

#(5) --- 次層URLを存在確認する
次層URLを調査URLに代入。
ＵＲＬ読取確認。　#  ----------------　調査URLを携えて、●SubRoutineへ飛ぶ
　　　　　　　　　#  ----------------　HTTPデータ取得して本体に代入して戻る
もし、それがはいならば、「次層掲載リンク処理ループ」へ飛ぶ。

#(6) --- 次層URLに掲載されているリンク一覧を次層掲載リンク一覧M【次層カウンタ】に代入
基本URLは調査URLからURL基本パス抽出したもの
次層カウンタ=0

本体からHTMLリンク抽出して反復
　　「:」まで切り取って小文字変換してプロトコルに代入。
　　プロトコルで条件分岐
    　　「mailto」ならば続ける。
　　　　「javascript」ならば続ける。
　　もし、RIGHT(対象,1)＝「/」ならば
　　　　母艦は対象。
　　　　対象を基本URLでURL展開して対象に代入。
　　　　　　もし、RIGHT(対象,1)＜＞「/」ならば、対象に「/」を追加する。
　　違えば
　　　　母艦は対象。　　　　　　　　　　　　　　# ------　対象は反復対象を指す
　　　　対象を基本URLでURL展開して対象に代入。　# ------　絶対パスに変換する
　　Fは(対象からURLファイル名抽出したもの)の拡張子抽出して大文字変換したもの
　　もし、(F＜＞「.HTM」) AND (F＜＞「.HTML」) AND (F＜＞「.PHP」) AND (F＜＞「」)ならば続ける。　　
　　次層カウンタ＝次層カウンタ＋1
　　次層掲載リンク一覧M【次層カウンタ】＝対象

次層カウンタＭＡＸ＝次層カウンタ　　　　　　#  -----　次層掲載リンクのデータ数

#(*) -- 次層掲載リンク一覧M【NO】の中に目標サイトへのリンクがあるか見ていく
カウンタで1から次層カウンタＭＡＸまで繰り返す
　　もし、次層掲載リンク一覧M【カウンタ】＝目標サイトならば
　　　　実相互リンク設置先＝次層URL
　　　　データ集計マトリクス【7,カウンタ１】＝次層URL
　　　　#発リンク数＝次層カウンタＭＡＸ
　　　　もし、相互リンク設置先＝実相互リンク設置先ならば
　　　　　　データ集計マトリクス【調査回数,カウンタ１】＝1
　　　　違えば
　　　　　　データ集計マトリクス【調査回数,カウンタ１】＝2
　　　　「ワン調査完了」へ飛ぶ。

#(7) --次層掲載リンク一覧M【NO】の中に目標サイトへのリンクがあるか順番に見ていく
カウンタ３＝0　　　　　　　　　　　　#　--- カウンタ３初期化
カウンタで1から次層カウンタＭＡＸまで繰り返す#　--- 確認済第３層URLM【NO】初期化
　　確認済第３層URLM【カウンタ】＝「」

▲第３層掲載リンク処理ループ# --- 次層掲載リンク一覧処理ループの開始点
カウンタ３＝カウンタ３＋1
もし、カウンタ３＞次層カウンタＭＡＸならば
　　「第３層掲載リンク処理ループ終了」へ飛ぶ。

#(*) --- 経過時間の確認
現在時刻sub　#  ------------　被リンク先調査開始時間を現在時刻に代入して戻る
経過時間＝現在時刻−開始時刻
　　もし、経過時間＜経過時間ＭＡＸならば
　　　　「経過時間確認終了」へ飛ぶ。
　　違えば
　　　　データ集計マトリクス【調査回数,カウンタ１】＝5
　　　　「ワン調査完了」へ飛ぶ。
　　
▲経過時間確認終了

#(1) --- 次層掲載リンク一覧M【カウンタ３】からリンクを１つ読み出す
第３層URLに次層掲載リンク一覧M【カウンタ３】を代入。

#(2) --- 第３層URLのドメインは登録URLドメインと同じでなければならない
第３層URLのURLドメイン名抽出して第３層URLドメインに代入

もし、第３層URLドメイン＜＞登録URLドメインならば
　　「第３層掲載リンク処理ループ」へ飛ぶ。

#(*) --- 第３層URLは登録URLと等しくない
もし、第３層URL＝登録URLならば、「第３層掲載リンク処理ループ」へ飛ぶ。

#(3) --- 第３層URLとして前回と同じＵＲＬが来た場合は処理を省略する
カウンタで1から次層カウンタＭＡＸまで繰り返す
　　もし、第３層URL＝確認済第３層URLM【カウンタ】ならば
　　　　「第３層掲載リンク処理ループ」へ飛ぶ。

#(4) --- 第３層URLを確認済第３層URLM【カウンタ３】に記録する
確認済第３層URLM【カウンタ３】＝第３層URL

#(5) --- 第３層URLを存在確認する
第３層URLを調査URLに代入。
ＵＲＬ読取確認。　#  ----------------　調査URLを携えて、●SubRoutineへ飛ぶ
　　　　　　　　　#  ----------------　HTTPデータ取得して本体に代入して戻る
もし、それがはいならば、「第３層掲載リンク処理ループ」へ飛ぶ。

#(6) - 第３層URLに掲載されているリンク一覧を第３層掲載リンク一覧M【第３層カウンタ】に代入
基本URLは調査URLからURL基本パス抽出したもの
第３層カウンタ＝0

本体からHTMLリンク抽出して反復
　　「:」まで切り取って小文字変換してプロトコルに代入。
　　プロトコルで条件分岐
    　　「mailto」ならば続ける。
　　　　「javascript」ならば続ける。
　　もし、RIGHT(対象,1)＝「/」ならば
　　　　母艦は対象。
　　　　対象を基本URLでURL展開して対象に代入。
　　　　　　もし、RIGHT(対象,1)＜＞「/」ならば、対象に「/」を追加する。
　　違えば
　　　　母艦は対象。　　　　　　　　　　　　　　# ------　対象は反復対象を指す
　　　　対象を基本URLでURL展開して対象に代入。　# ------　絶対パスに変換する
　　Fは(対象からURLファイル名抽出したもの)の拡張子抽出して大文字変換したもの
　　もし、(F＜＞「.HTM」) AND (F＜＞「.HTML」) AND (F＜＞「.PHP」) AND (F＜＞「」)ならば続ける。　　
　　第３層カウンタ＝第３層カウンタ＋1
　　第３層掲載リンク一覧M【第３層カウンタ】＝対象

第３層カウンタＭＡＸ＝第３層カウンタ　　　　#  -----　次層掲載リンクのデータ数

#(7) --第３層掲載リンク一覧M【NO】の中に目標サイトへのリンクがあるか順番に見ていく
カウンタで1から第３層カウンタＭＡＸまで繰り返す
　　もし、第３層掲載リンク一覧M【カウンタ】＝目標サイトならば
　　　　実相互リンク設置先＝第３層URL
　　　　データ集計マトリクス【7,カウンタ１】＝第３層URL
　　　　#発リンク数＝第３層カウンタＭＡＸ
　　　　もし、相互リンク設置先＝実相互リンク設置先ならば
　　　　　　データ集計マトリクス【調査回数,カウンタ１】＝1
　　　　違えば
　　　　　　データ集計マトリクス【調査回数,カウンタ１】＝2
　　　　「ワン調査完了」へ飛ぶ。

#(*) --第３層掲載リンク一覧M【NO】の中に相互リンク設置先があるか順番に見ていく
カウンタで1から第３層カウンタＭＡＸまで繰り返す
　　もし、第３層掲載リンク一覧M【カウンタ】＝相互リンク設置先ならば
　　　　「自動Paging処理ループ」へ飛ぶ。

▲自動Paging処理ループ戻り　#自動Paging処理ループからの戻り点

「第３層掲載リンク処理ループ」へ飛ぶ。

▲第３層掲載リンク処理ループ終了# --- 次層掲載リンク一覧処理ループの終了点

もし、seoplink＝1ならば
　　seoplink＝0
　　カウンタ２＝0

「次層掲載リンク処理ループ」へ飛ぶ。

▲次層掲載リンク処理ループ終了# --- トップ掲載リンク一覧処理ループの終了点

データ集計マトリクス【調査回数,カウンタ１】＝3

#１個の相互リンク設置先への内部リンクおよび目標サイトへのリンク調査を完了した

▲ワン調査完了
もし、データ集計マトリクス【調査回数,カウンタ１】＜3ならば、
　　データ集計マトリクス【5,カウンタ１】＝データ集計マトリクス【調査回数,カウンタ１】
　　結果保存２　#  ------------　1・2のとき●SubRoutineでTXTへデータを書き込む
違えば
　　もし、データ集計マトリクス【調査回数,カウンタ１】が3ならば
　　　　結果保存３　#  -----------　3のとき●SubRoutineでTXTへデータを書き込む
　　違えば
　　　　結果保存４　#  --------　4・5のとき●SubRoutineでTXTへデータを書き込む

「Top掲載リンク処理ループ」へ飛ぶ。

▲全調査完了
# 結果を表示
　　「{改行}Programを　終わりました,」を「D:\hilinkcheck\リスト.txt」に追加保存。
#「全Programを　終わりました。」を言う。
#終わる。

WINDOWS終了
終わる。

▲調査完了後起動
# 結果を表示
　　「{改行}Programを　終わりました,」を「D:\hilinkcheck\リスト.txt」に追加保存。
「Programは　終わっています。」を言う。
終わる。

# Sub Routines
#-----------------------------------------------------------------------
# ＵＲＬ読取確認関数
#【説　明】ＵＲＬが存在するか確認する
#【引　数】調査URL : 調べたいURL
#【戻り値】ＵＲＬ存在　しない=1 / 存在する=0　・　本体　：HTTPデータ
●ＵＲＬ読取確認 #(調査URL)
　　エラー監視
　　　　もし、登録URL調査中＝1ならば
        　　# (1) サーバーに接続できるか確認し、できなければリンク切れ。
    　　　　# (2) サーバーが返したヘッダを確認し『200 OK』がなければリンク切れ。
　　　　　　調査URLからHTTPヘッダ取得してヘッダに代入。
　　　　　　もし((ヘッダ\0で「200」が何文字目)=0)ならば、エラー発生。
    　　# 対象が HTML ファイルなら本体をダウンロードする
        Fは(調査URLからURLファイル名抽出したもの)の拡張子抽出して大文字変換したもの
        もし(F=「.HTM」)OR(F=「.HTML」)OR(F=「.PHP」)OR(F=「」)ならば
　　　　　　調査URLからHTTPデータ取得して本体に代入。
　　　　　　0.3秒待つ。
            本体は本体をＳＪＩＳ変換したもの
        ここまで,もし。
        それは、0
　　エラーならば
        それは、1
　　　　# ＵＲＬ存在しない場合（はいを返す）
　　#「ＵＲＬ読取確認結果」
戻る

#-----------------------------------------------------------------------
# 相互リンク設置先がseoplinkなどのとき
# seoplinkの自動ページングに対応して、検索対象を拡張する
# 自動ページングページに目標サイトへのリンクが存在するか確認する
#
▲自動Paging処理ループ# --- seoplink等の自動ページングに対応処理ループの開始点

カウンタ４＝0　　　　　　　　　　　　#　--- カウンタ４初期化
ページングページ=「」
ページングページリンク数＝0
リンク基本URLは相互リンク設置先からURL基本パス抽出したもの
▲処理ループ４
カウンタ４＝カウンタ４＋1

もし、カウンタ４＞カウンタ４ＭＡＸならば
　　「自動Paging処理ループ戻り」へ飛ぶ。　#自動ページングPageにもリンクがない

#(1) --- 自動ページングページを１枚づつめくる

基本URLは調査URLからURL基本パス抽出したもの

テスト配列【0】＝リンク基本URL
テスト配列【1】＝カウンタ４
テスト配列【2】＝「.html」
テスト配列を「」で配列結合してＳＥＯURLに代入。

#(2) --- ＳＥＯURLを存在確認する
ＳＥＯURLを調査URLに代入。
ＵＲＬ読取確認。#  ----------------　調査URLを携えて、●SubRoutineへ飛ぶ
　　　　　　　　#  ----------------　HTTPデータ取得して本体に代入して戻る
もし、それがはいならば、「処理ループ４終了」へ飛ぶ。

#(3) -ＳＥＯURLに掲載されているリンク一覧をＳＥＯURLリンク一覧に代入
基本URLは調査URLからURL基本パス抽出したもの
ＳＥＯカウンタ＝0

本体からHTMLリンク抽出して反復
　　「:」まで切り取って小文字変換してプロトコルに代入。
　　プロトコルで条件分岐
　　　　「mailto」ならば続ける。
　　　　「javascript」ならば続ける。
　　もし、RIGHT(対象,1)＝「/」ならば
　　　　母艦は対象。
　　　　対象を基本URLでURL展開して対象に代入。
　　　　　　もし、RIGHT(対象,1)＜＞「/」ならば、対象に「/」を追加する。
　　違えば
　　　　母艦は対象。　　　　　　　　　　　　　# ------　対象は反復対象を指す
　　　　対象を基本URLでURL展開して対象に代入。# ------　絶対パスに変換する
　　Fは(対象からURLファイル名抽出したもの)の拡張子抽出して大文字変換したもの
　　もし、(F＜＞「.HTM」) AND (F＜＞「.HTML」) AND (F＜＞「.PHP」) AND (F＜＞「」)ならば続ける。　
　　ＳＥＯカウンタ＝ＳＥＯカウンタ＋1
　　ＳＥＯページ掲載リンク一覧M【ＳＥＯカウンタ】＝対象

ＳＥＯカウンタＭＡＸ＝ＳＥＯカウンタ　#  -----　リンクのデータ数

#(4) -- ＳＥＯページ掲載リンク一覧M【NO】の中に目標サイトへのリンクがあるか順番に見ていく
カウンタで1からＳＥＯカウンタＭＡＸまで繰り返す
　　もし、ＳＥＯページ掲載リンク一覧M【カウンタ】＝目標サイトならば
　　　　ページングページ＝ＳＥＯURL
　　　　ページングページリンク数＝ＳＥＯカウンタＭＡＸ
　　　　「処理ループ４終了」へ飛ぶ。

「処理ループ４」へ飛ぶ。

▲処理ループ４終了　#自動ページングページに目標サイトへのリンクがあったとき

もし、ページングページ＜＞「」ならば
　　実相互リンク設置先＝ページングページ
　　データ集計マトリクス【7,カウンタ１】＝ページングページ
　　#発リンク数＝ページングページリンク数
　　もし、相互リンク設置先＜＞実相互リンク設置先ならば
　　　　データ集計マトリクス【調査回数,カウンタ１】＝2
　　違えば
　　　　データ集計マトリクス【調査回数,カウンタ１】＝1
　　ここまで、もし。
　　「ワン調査完了」へ飛ぶ。

「自動Paging処理ループ戻り」へ飛ぶ。

#-----------------------------------------------------------------------
#現在時刻　　現在時刻を秒で返す
●現在時刻sub
　　# 時、分、秒に分ける
　　今を「:」で区切る。
　　時はそれ[0]
　　分はそれ[1]
　　秒はそれ[2]
　　現在時刻＝3600×時＋60×分＋秒
　　#「｛時｝:｛分｝:｛秒｝」を表示。
戻る

#-----------------------------------------------------------------------
#結果保存１　　データの項目を書き込む
●結果保存１
　　「{改行}調査開始（再開）,」を「D:\hilinkcheck\リスト.txt」に追加保存。
戻る

#-----------------------------------------------------------------------
#結果保存２　　データを書き込む		１・２：リンクリンクが掲載されている
●結果保存２
　　「{改行}{調査回数},{データ集計マトリクス【0,カウンタ１】},{データ集計マトリクス【6,カウンタ１】},{データ集計マトリクス【7,カウンタ１】},{データ集計マトリクス【調査回数,カウンタ１】},{データ集計マトリクス【5,カウンタ１】},」を「D:\hilinkcheck\リスト.txt」に追加保存。

戻る

#-----------------------------------------------------------------------
#結果保存３　　データを書き込む		３：リンクされてない
●結果保存３
　　「{改行}{調査回数},{データ集計マトリクス【0,カウンタ１】},{データ集計マトリクス【6,カウンタ１】},{データ集計マトリクス【7,カウンタ１】},{データ集計マトリクス【調査回数,カウンタ１】},{データ集計マトリクス【5,カウンタ１】},」を「D:\hilinkcheck\リスト.txt」に追加保存。

戻る

#-----------------------------------------------------------------------
#結果保存４　　データを書き込む		４：登録サイトアクセス不良
●結果保存４
　　「{改行}{調査回数},{データ集計マトリクス【0,カウンタ１】},{データ集計マトリクス【6,カウンタ１】},{データ集計マトリクス【7,カウンタ１】},{データ集計マトリクス【調査回数,カウンタ１】},{データ集計マトリクス【5,カウンタ１】},」を「D:\hilinkcheck\リスト.txt」に追加保存。

戻る