{"provider_url":"https://hatena.blog","categories":["\u30c6\u30ad\u30b9\u30c8\u8aad\u307f\u53d6\u308a"],"version":"1.0","blog_title":"R-K\u306e\u306f\u3066\u306aD","height":"190","type":"rich","url":"https://r-k.hatenadiary.org/entry/20050918/1126987537","provider_name":"Hatena Blog","published":"2005-09-18 05:05:37","author_name":"R-K","blog_url":"https://r-k.hatenadiary.org/","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fr-k.hatenadiary.org%2Fentry%2F20050918%2F1126987537\" title=\"\u30b3\u30fc\u30c9\u30b9\u30cb\u30da\u30c3\u30c8\u4fbf\u5229 - R-K\u306e\u306f\u3066\u306aD\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","description":"Public Class Form1 Private Sub Button1_Click(ByVal sender As System.Object, ByVal e As System.EventArgs) Handles Button1.Click Dim fs As New System.IO.StreamReader(Me.MaskedTextBox1.Text, System.Text.Encoding.GetEncoding(\"Shift_JIS\")) Dim st As String Dim Rog() As String Dim i As Integer = 0 st = fs\u2026","image_url":null,"title":"\u30b3\u30fc\u30c9\u30b9\u30cb\u30da\u30c3\u30c8\u4fbf\u5229","author_url":"https://blog.hatena.ne.jp/R-K/","width":"100%"}