07/09/27 04:51:56 Zm4GsJ2N0
e-recipeだけど、
エキサイトに問い合わせたが、
「貴重な意見ありがとう、参考にするよ。」
て、お決まりの返事しか来なくて、全然修正されないや。
で、てきとーな臨時処置だけど、
Yahoo!グルメでも、E・レシピ提供の同じ献立集があったので、
画像はそこから持ってくるようにしてみた。
111行目
e_img(i) = FindFromText(tmp_pos, tmp, "img src="", "" /><br />", "")
を
Set objRegExp = New RegExp
objRegExp.Pattern = "^(\d{4})年(\d{2})月(\d{2})日.+$"
e_img(i) = objRegExp.Replace(e_title(i), "URLﾘﾝｸ(recipe.gourmet.yahoo.co.jp))
に置き換える。