{"version":"1.0","author_name":"happynow","categories":[],"width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fhappynow.hateblo.jp%2Fentry%2F20181015%2F1539622043\" title=\"ADODB.Stream UTF-8 BOM\u306a\u3057 \u30d5\u30a1\u30a4\u30eb\u8aad\u307f\u66f8\u304d VBScript\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9 - happynow\u2019s diary\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","blog_url":"https://happynow.hateblo.jp/","title":"ADODB.Stream UTF-8 BOM\u306a\u3057 \u30d5\u30a1\u30a4\u30eb\u8aad\u307f\u66f8\u304d VBScript\u30b5\u30f3\u30d7\u30eb\u30b3\u30fc\u30c9","provider_name":"Hatena Blog","height":"190","url":"https://happynow.hateblo.jp/entry/20181015/1539622043","author_url":"https://blog.hatena.ne.jp/happynow/","provider_url":"https://hatena.blog","published":"2018-10-15 01:47:23","description":"Function ReadAll(FilePath) Const adTypeText = 2 Const adReadAll= -1 Const adReadLine = -2 With CreateObject(\"ADODB.Stream\") .Type = adTypeText .Charset = \"UTF-8\" .Open .LoadFromFile FilePath ReadAll = .ReadText(adReadAll) ' Do Until .EOS ' Dim Line ' Line = .ReadText(adReadLine) ' Loop .Close End Wi\u2026","image_url":null,"type":"rich","blog_title":"happynow\u2019s diary"}