{"id":392,"date":"2020-01-19T10:37:24","date_gmt":"2020-01-19T01:37:24","guid":{"rendered":"https:\/\/have-stone.iobb.net\/wordpress\/?p=392"},"modified":"2020-01-19T19:33:25","modified_gmt":"2020-01-19T10:33:25","slug":"%e3%83%87%e3%83%bc%e3%82%bf%e3%83%99%e3%83%bc%e3%82%b9%e3%81%a0%e3%81%91%e3%81%a7%e3%81%af%e3%81%aa%e3%81%847","status":"publish","type":"post","link":"https:\/\/have-stone.iobb.net\/wordpress\/?p=392","title":{"rendered":"\u30c7\u30fc\u30bf\u30d9\u30fc\u30b9\u3060\u3051\u3067\u306f\u306a\u30447"},"content":{"rendered":"\n<p>Toidasu\u8d77\u52d5\u5f8c\u6700\u521d\u306b\u3084\u308b\u3053\u3068\u306f\u3001\u30e6\u30fc\u30b6\u30fc\u304c\u4f5c\u6210\u3057\u305f\u554f\u984c\u6587\u3092\u8aad\u307f\u8fbc\u3080\u3053\u3068\u3067\u3059\u3002<br>\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u307f\u3001\u8868\u793a\u3059\u308b\u3068\u3044\u3046\u4e00\u822c\u7684\u306b\u3088\u304f\u884c\u308f\u308c\u308b\u51e6\u7406\u3067\u3059\u3002<br>\u304a\u624b\u672c\u901a\u308a\u3068\u8a00\u3048\u3070\u305d\u3046\u306a\u306e\u3067\u3059\u304c\u3001\u4eca\u56de\u306fCSV\u306e\u3088\u3046\u306a\u5916\u90e8\u30c7\u30fc\u30bf\u3092\u8aad\u307f\u8fbc\u3093\u30671\u4ef6\u305a\u3064\u51e6\u7406\u3092\u3057\u305f\u3044\u308f\u3051\u3067\u306f\u306a\u3044\u306e\u3067\u3001\u4e00\u6c17\u306b\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u3080\u65b9\u6cd5\u3082\u3001\u53c2\u8003\u306e\u305f\u3081\u30b3\u30e1\u30f3\u30c8\u884c\u3067\u793a\u3057\u3066\u304a\u304d\u307e\u3059\u3002<\/p>\n\n\n<pre class=\"lang:default decode:true  \">Private Sub \u554f\u984c\u8aad\u8fbc_Click()\n'### \u554f\u984c\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u307f###\n'### \u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306b\u5165\u308c\u308b\u51e6\u7406 ###\n'\n'\u30d8\u30eb\u30d7\u3092\u53c2\u8003\u306b\u66f8\u304d\u63db\u3048\u308c\u3070\u4ed5\u4e0a\u304c\u308a\u307e\u3059\n'\n'\u30c0\u30a4\u30a2\u30ed\u30b0\u3092\u958b\u304d\u30d5\u30a1\u30a4\u30eb\u3092\u9078\u629e\u3057\u307e\u3059\u3002\n'\n' Requires reference to Microsoft Office 11.0 Object Library.\nDim fDialog As Office.FileDialog\nDim varFile As Variant\n' Set up the File Dialog.\nSet fDialog = Application.FileDialog(msoFileDialogOpen)\nWith fDialog\n' Allow user to make multiple selections in dialog box\n' Set the title of the dialog box. .\nTitle = \"\u554f\u984c\u6587\u3092\u9078\u629e\u3057\u3066\u304f\u3060\u3055\u3044\"\n' Clear out the current filters, and add our own.\n.Filters.Clear\n.Filters.Add \"\u554f\u984c\u30d5\u30a1\u30a4\u30eb\", \"*.txt\"\n' Show the dialog box. If the .Show method returns True, the\n' user picked at least one file. If the .Show method returns\n' False, the user clicked Cancel.\nIf .Show = True Then\n'Loop through each file selected and add it to our list box.\nvarFile = .SelectedItems.Item(1)\nEnd If\nEnd With\n'\u3053\u3053\u304b\u3089\u8aad\u8fbc\u51e6\u7406\u958b\u59cb\nOpen varFile For Input As #1\nDo While Not EOF(1)\nLine Input #1, textline\nstrData = strData &amp; textline &amp; vbCrLf\nLoop\nClose #1\n'\u78ba\u8a8d\u306e\u305f\u3081\u30c6\u30ad\u30b9\u30c8\u30dc\u30c3\u30af\u30b9\u306b\u8868\u793a\u3059\u308b\nMe.Txt1 = strData\n'\u3053\u3053\u304b\u3089\u306f\u4e00\u6c17\u306b\u8aad\u307f\u8fbc\u3080\u65b9\u6cd5\u3067\u3059\n' Dim tmpStr As String\n' Open GetFileName For Binary As #1\n' tmpStr = Space(LOF(1))\n' Get #1, , tmpStr\n' tmpStr = Replace(tmpStr, vbNullChar, \"\")\n' Close #1 ' Me.Txt1 = tmpStr\n'\u4e00\u6c17\u306b\u8aad\u307f\u8fbc\u3080\u65b9\u6cd5\u306f\u3053\u3053\u307e\u3067\n'\u3053\u306e\u5f8c\u306f\u554f\u984c\u6587\u3092\u8868\u793a\u3059\u308b\u305f\u3081\u306e\u6587\u5b57\u5217\u64cd\u4f5c\u51e6\u7406\u304c\u3044\u308d\u3044\u308d\u7d9a\u304f\n'\u305d\u308c\u306f\u6b21\u56de\u4ee5\u964d\u306b\u63b2\u8f09\u4e88\u5b9a\nEnd Sub<\/pre>\n<p>\u00a0<\/p>","protected":false},"excerpt":{"rendered":"<p>Toidasu\u8d77\u52d5\u5f8c\u6700\u521d\u306b\u3084\u308b\u3053\u3068\u306f\u3001\u30e6\u30fc\u30b6\u30fc\u304c\u4f5c\u6210\u3057\u305f\u554f\u984c\u6587\u3092\u8aad\u307f\u8fbc\u3080\u3053\u3068\u3067\u3059\u3002\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u307f\u3001\u8868\u793a\u3059\u308b\u3068\u3044\u3046\u4e00\u822c&hellip; <a class=\"moretag\" href=\"https:\/\/have-stone.iobb.net\/wordpress\/?p=392\">read&nbsp;more<\/a><\/p>\n","protected":false},"author":1,"featured_media":109,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":[],"categories":[3,16],"tags":[5,7,12],"_links":{"self":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/392"}],"collection":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/users\/1"}],"replies":[{"embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=392"}],"version-history":[{"count":4,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/392\/revisions"}],"predecessor-version":[{"id":407,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/posts\/392\/revisions\/407"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=\/wp\/v2\/media\/109"}],"wp:attachment":[{"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=392"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=392"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/have-stone.iobb.net\/wordpress\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=392"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}