ヤフオクの巡回プログラムの動きがどうもおかしい（新規を見つけてない様子）ので調べてみたら、ヤフオクの検索結果ページのデザインが微妙に変更されたようだ。orz
今朝までは大丈夫だったっぽいので今日の昼間にでも変わったのかな。
仕方ないのでシコシコとデバッグ。もうちょっと暇ができたらもうちょっと汎用な抽出ルーチンに変えたいなぁ…
今は
' ---- URL st = InStr(1, itemdata, "<TD class=pad01 vAlign=top") ' 08/06/05 st = InStr(st, itemdata, "<A href=""") If st = 0 Then Exit Do st = st + 9 ed = InStr(st, itemdata, """>") t = Mid$(itemdata, st, ed - st) url = t
こんな感じなのでデザイン変更に全く耐性がない。我ながら恥ずいプログラム。。
VBAなのでHTMLをちゃんと解析しようとするとめんどいというのもあるが…
(追記)
6/4 17:00頃を境に取得できてないみたいなので17:00前後にヤフオクシステムが更新されたっぽい。気がする。
(6/12 00:53 更に追記)
今更ながら、公式で一応告知されてたみたい。なのに気付いた。
商品一覧ページでの画像表示変更のお知らせ（2008年5月28日）
