楽天モバイル[UNLIMITが今なら1円] ECナビでポインと Yahoo 楽天 LINEがデータ消費ゼロで月額500円〜！

無料ホームページ 無料のクレジットカード 海外格安航空券 解約手数料０円【あしたでんき】 海外旅行保険が無料！ 海外ホテル

告知欄です

メモ２

394 ：名無しさん＠勉強中 ★：07/01/02 17:36:54 ID:???

Lastmodifiedの抽出も何とかなったです

xh.Send
の次に下記を追加

−−−−−−−−−−−−−−−−−−−−−−−−−−−−
Set regEx = New RegExp
regEx.IgnoreCase = True
regEx.Global = True
regEx.Pattern = "\nLast-Modified\: .{3}, (\d{1,}) (.{3}) (\d{4}) (\d{1,})\:(\d{1,})\:(\d{1,}) .{3}\r\n"
' lastmod = regEx.Replace(xh.getAllResponseHeaders(),"$1/$2/$3/$4/$5/$6")
Set Matches = regEx.Execute(xh.getAllResponseHeaders())

For Each Match in Matches
out = regEx.Replace(Match,"$1/$2/$3/$4/$5/$6\r\n")
If out = Match Then
Else
lastmod = Match
End If
Next
−−−−−−−−−−−−−−−−−−−−−−−−−−−−

そして

statusResult = MsgBox(xh.getAllResponseHeaders(), vbYes, "レスポンスヘッダ一覧表示")

を

statusResult = MsgBox(lastmod, vbYes, "lastmodfy表示")

に変更