大量のPHPファイルからタイトルだけを抽出したい

ホームページリニュアル作業を行うべく、
いったんサーバーからデータを全てダウンロードし、
エクセルに各ページURLを並べ、整理しようと思ったのですが、
URLだけでは判別しにくく、各ページタイトルも必要となりました。

HTMLのタイトルとアドレスを抽出するソフトを見つけることはできたのですが、
私のリニュアルしようと思っているHPは、すべてPHPでできているのです。
このソフトを使用するには、全ページ(300程度)、PHPをHTMLにしなければならないようなのですが、そのようなことができるのでしょうか？

もしできないようでしたら、大量のPHPデータからタイトルとURLを抽出することができるような方法がありますでしょうか。

どうかお力をお貸し下さい。

No.1 ベストアンサー 回答者： BLUEPIXY 回答日時： 2005/07/21 16:03

ＩＥオブジェクトを使ってＡ列のＡ２以下のセルにＵＲＬが入力されているアドレスのタイトルとか更新日付を取ってくるエクセルのマクロです。

アドレスをＩＥを使って読み込んでいるので、ＰＨＰかどうかは関係ないです。
遅いですが、とりあえず、使えると思います。
------------------------------------------
Public Sub ReadTitle()
Dim IE
Dim url As Range
Dim i As Integer

Set url = Range("A2")
Set IE = CreateObject("InternetExplorer.Application")

i = 0
Do While (url.Offset(i, 0).Value <> "")
IE.Navigate (url.Offset(i, 0).Value)
While IE.busy: Wend
While IE.Document.readyState <> "complete": Wend
url.Offset(i, 1).Value = IE.Document.Title
url.Offset(i, 3).Value = url.Offset(i, 2).Value '前回日付
url.Offset(i, 2).Value = IE.Document.LastModified
i = i + 1
Loop
End Sub

この回答へのお礼

ありがとうございました！！！！！
無事解決しました。
とてもスムーズに出来ました。
どうもありがとうございましたっ。

お礼日時：2005/07/21 16:45