{"provider_url":"https://hatena.blog","url":"https://vbdotnetmemo.hatenadiary.org/entry/20080829/1219976451","published":"2008-08-29 11:20:51","categories":["vb.net"],"image_url":null,"author_url":"https://blog.hatena.ne.jp/vbdotnetmemo/","height":"190","version":"1.0","author_name":"vbdotnetmemo","width":"100%","html":"<iframe src=\"https://hatenablog-parts.com/embed?url=https%3A%2F%2Fvbdotnetmemo.hatenadiary.org%2Fentry%2F20080829%2F1219976451\" title=\"\u30ea\u30b9\u30c8FL\u306b\u30d5\u30a1\u30a4\u30eb\u3092\u53d6\u5f97--\u3068\u308a\u3042\u3048\u305a\u5b8c\u6210\uff1f\u3000\u30b3\u30f3\u30bd\u30fc\u30eb\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3067\u4f7f\u7528 - \u3044\u308d\u3044\u308d\u3060\u306a\u3041\" class=\"embed-card embed-blogcard\" scrolling=\"no\" frameborder=\"0\" style=\"display: block; width: 100%; height: 190px; max-width: 500px; margin: 10px 0px;\"></iframe>","title":"\u30ea\u30b9\u30c8FL\u306b\u30d5\u30a1\u30a4\u30eb\u3092\u53d6\u5f97--\u3068\u308a\u3042\u3048\u305a\u5b8c\u6210\uff1f\u3000\u30b3\u30f3\u30bd\u30fc\u30eb\u30a2\u30d7\u30ea\u30b1\u30fc\u30b7\u30e7\u30f3\u3067\u4f7f\u7528","blog_url":"https://vbdotnetmemo.hatenadiary.org/","type":"rich","description":"'\u30ea\u30b9\u30c8FL\u306b\u30d5\u30a1\u30a4\u30eb\u3092\u53d6\u5f97---------------------------------------------------- Dim FL As New List(Of String) Public Sub ContAdd(ByVal FName As String) '\u91cd\u8907\u306e\u3057\u306a\u3044\u3088\u3046\u306b\u30ea\u30b9\u30c8\u306b\u8ffd\u52a0 If FL.Contains(FName) = False Then FL.Add(FName) End If End Sub Public Function ExteJudge(ByVal FN As String) As Boolean '\u62e1\u5f35\u5b50\u306e\u7a2e\u985e\u3001\u6709\u7121\u3092\u5224\u5225 If System\u2026","provider_name":"Hatena Blog","blog_title":"\u3044\u308d\u3044\u308d\u3060\u306a\u3041"}