- 499 名前：デフォルトの名無しさん mailto:sage [2005/03/31(木) 16:23:07 ]
- >>497
えー。それくらい書こうよー。
Dim doc As New mshtml.HTMLDocument()
Dim sr As New StreamReader("c:\hoge.html", System.Text.Encoding.GetEncoding("Shift_jis"))
Dim doc2 As mshtml.IHTMLDocument2 = doc
doc2.write(sr.ReadToEnd())
doc2.close()
sr.Close()
Dim elem As mshtml.IHTMLElement
For Each elem In doc.all
Debug.WriteLine(elem.tagName)
Next
