\u8077\u5834\u306e\u30b7\u30b9\u30c6\u30e0\u3067\u3001\u91d1\u878d\u6a5f\u95a2\u30c7\u30fc\u30bf\u306e\u66f4\u65b0\u3092\u5b9a\u671f\u7684\u306b\u884c\u3063\u3066\u3044\u307e\u3057\u305f\u3002\u5148\u65e5\u3082\u66f4\u65b0\u3092\u884c\u3063\u3066\u307b\u3057\u3044\u3068\u306e\u3053\u3068\u3067\u3001\u66f4\u65b0\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u52d5\u304b\u3057\u305f\u3089\u30a8\u30e9\u30fc\u306b\u306a\u3063\u3066\u53d6\u5f97\u3067\u304d\u306a\u304b\u3063\u305f\u306e\u3067\u3001\u30b5\u30a4\u30c8\u3092\u5bb6\u8a13\u3059\u308b\u3068\u3001\u9589\u9396\u3057\u3066\u3044\u307e\u3057\u305forz….<\/p>\n\n\n\n
\u6539\u3081\u3066\u3001\u30c7\u30fc\u30bf\u3092\u3069\u3053\u304b\u304b\u3089\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3067\u304d\u306a\u3044\u304b\u3001\u3044\u308d\u3044\u308d\u3068\u8abf\u3079\u305f\u306e\u3067\u3059\u304c\u3001\u691c\u7d22\u30b5\u30a4\u30c8\u306f\u305f\u304f\u3055\u3093\u3042\u3063\u305f\u306e\u3067\u3059\u304c\u3001\u30c7\u30fc\u30bf\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3067\u304d\u308b\u3068\u3053\u308d\u304c\uff11\u304b\u6240\u3057\u304b\u898b\u3064\u304b\u308a\u307e\u305b\u3093\u3067\u3057\u305f\u3002
\u898b\u3064\u304b\u3063\u305f\u3068\u3053\u308d\u306f\u4ee5\u4e0b\u306e\u30b5\u30a4\u30c8\u3067\u3059<\/p>\n\n\n\n
\u300c\u5feb\u9069\u751f\u6d3b\uff20IT\u529b\u300d<\/a> \u3053\u3061\u3089\u306e \u300c\u91d1\u878d\u6a5f\u95a2\u30b3\u30fc\u30c9\u3092CSV\/\u30a8\u30af\u30bb\u30eb\u5f62\u5f0f\u3067\u4e00\u89a7\u306b\u3057\u3066\u307e\u3068\u3081\u305f\u30da\u30fc\u30b8<\/a>\u300d\u306e\u30da\u30fc\u30b8\u306b\u3042\u308a\u307e\u3057\u305f\u3002 <\/p>\n\n\n\n \u3068\u308a\u3042\u3048\u305a\u3001\u30c7\u30fc\u30bf\u3092\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u3066\u4f7f\u7528\u3067\u304d\u308b\u304b\u78ba\u8a8d\u3059\u308b\u3068\u3001\u554f\u984c\u306a\u304f\u4f7f\u7528\u3067\u304d\u305d\u3046\u306a\u306e\u3067\u3001\u3053\u3061\u3089\u3092\u5229\u7528\u3059\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002 \u6700\u521d\u306fBAT\u3067\u51fa\u6765\u306a\u3044\u304b\u306a\u3068\u601d\u3044\u3001AI\u306b\u76f8\u8ac7\u3059\u308b\u3068BAT\u3067\u51fa\u6765\u306a\u3044\u3053\u3068\u3082\u306a\u3044\u304c\u3001VBS\u306e\u65b9\u304c\u697d\u3060\u3088\u3063\u3066\u3053\u3068\u3067\u3001VBS\u3067\u4f5c\u308b\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n\n\n\n \u4ee5\u4e0b\u306b\u30b3\u30fc\u30c9\u3092\u8f09\u305b\u3066\u304a\u304d\u307e\u3059\u3002\u89e3\u8aac\u306f\u7c21\u5358\u306b\u3057\u3066\u304a\u304d\u307e\u3059\u3002\u3061\u306a\u307f\u306b\u3001\u5168\u4ef6\u7248\u306a\u306e\u3067\u3001\u5dee\u5206\u306b\u3064\u3044\u3066\u306f\u8003\u616e\u3057\u3066\u3044\u307e\u305b\u3093\u3002\u3042\u3057\u304b\u3089\u305a.. \u3082\u3057\u3001\u4e0d\u5177\u5408\u7b49\u304c\u3042\u308c\u3070\u3001\u30b3\u30e1\u30f3\u30c8\u3092\u6b8b\u3057\u3066\u3044\u305f\u3060\u3051\u305f\u3089\u4fee\u6b63\u3057\u307e\u3059\u3002 \u8077\u5834\u306e\u30b7\u30b9\u30c6\u30e0\u3067\u3001\u91d1\u878d\u6a5f\u95a2\u30c7\u30fc\u30bf\u306e\u66f4\u65b0\u3092\u5b9a\u671f\u7684\u306b\u884c\u3063\u3066\u3044\u307e\u3057\u305f\u3002\u5148\u65e5\u3082\u66f4\u65b0\u3092\u884c\u3063\u3066\u307b\u3057\u3044\u3068\u306e\u3053\u3068\u3067\u3001\u66f4\u65b0\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u52d5\u304b\u3057\u305f\u3089\u30a8\u30e9\u30fc\u306b\u306a\u3063\u3066\u53d6\u5f97\u3067\u304d\u306a\u304b\u3063\u305f\u306e\u3067\u3001\u30b5\u30a4\u30c8\u3092\u5bb6\u8a13\u3059\u308b\u3068\u3001\u9589\u9396\u3057\u3066\u3044\u307e\u3057\u305forz…. […]<\/p>\n","protected":false},"author":2,"featured_media":531,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[2],"tags":[],"class_list":["post-528","post","type-post","status-publish","format-standard","has-post-thumbnail","hentry","category-pc"],"_links":{"self":[{"href":"https:\/\/hankai.ddo.jp\/index.php?rest_route=\/wp\/v2\/posts\/528","targetHints":{"allow":["GET"]}}],"collection":[{"href":"https:\/\/hankai.ddo.jp\/index.php?rest_route=\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/hankai.ddo.jp\/index.php?rest_route=\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/hankai.ddo.jp\/index.php?rest_route=\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/hankai.ddo.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcomments&post=528"}],"version-history":[{"count":3,"href":"https:\/\/hankai.ddo.jp\/index.php?rest_route=\/wp\/v2\/posts\/528\/revisions"}],"predecessor-version":[{"id":532,"href":"https:\/\/hankai.ddo.jp\/index.php?rest_route=\/wp\/v2\/posts\/528\/revisions\/532"}],"wp:featuredmedia":[{"embeddable":true,"href":"https:\/\/hankai.ddo.jp\/index.php?rest_route=\/wp\/v2\/media\/531"}],"wp:attachment":[{"href":"https:\/\/hankai.ddo.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fmedia&parent=528"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/hankai.ddo.jp\/index.php?rest_route=%2Fwp%2Fv2%2Fcategories&post=528"},{"taxonomy":"post_tag","embeddable":true,"href":"https:\/\/hankai.ddo.jp\/index.php?rest_route=%2Fwp%2Fv2%2Ftags&post=528"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}
\u305f\u3060\u3001\u30b7\u30b9\u30c6\u30e0\u306b\u53d6\u308a\u8fbc\u3080\u306b\u306f\u30c7\u30fc\u30bf\u30fc\u3092\u52a0\u5de5\u3057\u306a\u3044\u3068\u305d\u306e\u307e\u307e\u3067\u306f\u4f7f\u3048\u306a\u3044\u306e\u3067\u3001\u4eca\u3067\u306e\u30d7\u30ed\u30b0\u30e9\u30e0\u306e\u6539\u5909\u3092\u884c\u304a\u3046\u304b\u306a\u3068\u3082\u8003\u3048\u305f\u306e\u3067\u3059\u304c\u3001Access\u3092\u4f7f\u7528\u3057\u3066\u3044\u305f\u306e\u3068\u3001CSV\u306e\u4e26\u3073\u66ff\u3048\u3092\u3059\u308b\u3060\u3051\u3060\u3057\u306a\u3063\u3068\u601d\u3044\u3001\u65b0\u3057\u304f\u30d7\u30ed\u30b0\u30e9\u30e0\u3092\u66f8\u304f\u3053\u3068\u306b\u3057\u307e\u3057\u305f\u3002<\/p>\n\n\n\n
\u4efb\u610f\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u3067\u62e1\u5f35\u5b50\u3092vbs\u3067\u4fdd\u5b58\u3057\u305f\u5f8c\u3001\u5b9f\u884c\u3068\u3059\u308b\u3068\u540c\u3058\u30d5\u30a9\u30eb\u30c0\u306b\u3001\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u305f\u3082\u306e\u3068\u3001\u5909\u63db\u3057\u305f\u3082\u306e\u3092\u4fdd\u5b58\u3067\u304d\u307e\u3059\u3002
\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u306fUTF8\u5f62\u5f0f\u3067\u3059\u304c\u3001\u5909\u63db\u5f8c\u306e\u30d5\u30a1\u30a4\u30eb\u306fSJIS\u5f62\u5f0f\u3067\u4fdd\u5b58\u3055\u308c\u307e\u3059\u3002
\u8a2d\u5b9a\u9805\u76ee\u3067\u51fa\u529b\u30d5\u30a1\u30a4\u30eb\u540d\u3084.\u30c7\u30fc\u30bf\u306e\u4e26\u3073\u9806\u3092\u5909\u3048\u3089\u308c\u307e\u3059\u3002\u8a73\u3057\u304f\u306f\u4e2d\u306e\u30b3\u30e1\u30f3\u30c8\u3092\u8aad\u3093\u3067\u3044\u305f\u3060\u3051\u305f\u3089\u3068\u601d\u3044\u307e\u3059\u3002<\/p>\n\n\n\nOption Explicit\n\n' ======================================================================\n' \u8a2d\u5b9a\u9805\u76ee\uff08\u3053\u3053\u3092\u66f8\u304d\u63db\u3048\u308b\u3060\u3051\u3067\u7c21\u5358\u306b\u5909\u66f4\u3067\u304d\u307e\u3059\uff09\n' ======================================================================\n' 1. CSV\u304c\u63b2\u8f09\u3055\u308c\u3066\u3044\u308b\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u30da\u30fc\u30b8\u306eURL\nConst PAGE_URL = \"https:\/\/senrinomitiwohitoaside.com\/bankdata\/\"\n\n' 2. \u4e26\u3073\u66ff\u3048\u52a0\u5de5\u3057\u305f\u5f8c\u306e\u30b7\u30b9\u30c6\u30e0\u7528CSV\u30d5\u30a1\u30a4\u30eb\u540d\nConst OUTPUT_FILE_NAME = \"\u9280\u884c\u652f\u5e97.csv\"\n\n' 3. \u51fa\u529b\u30d5\u30a1\u30a4\u30eb\u306b\u30d8\u30c3\u30c0\u30fc\uff08\u5217\u540d\u306e\u884c\uff09\u3092\u542b\u3081\u308b\u304b\u3069\u3046\u304b\uff08True = \u4ed8\u3051\u308b\u3001False = \u4ed8\u3051\u306a\u3044\uff09\nConst HAS_HEADER = False\n\n' 4. \u51fa\u529b\u3059\u308bCSV\u306e\u30d8\u30c3\u30c0\u30fc\uff08\u5217\u540d\uff09\u203b\u51fa\u529b\u3059\u308b\u5217\u306e\u6570\u3084\u5185\u5bb9\u306b\u5408\u308f\u305b\u3066\u66f8\u304d\u63db\u3048\u3066\u304f\u3060\u3055\u3044\nConst OUTPUT_HEADER = \"\u9280\u884c\u30b3\u30fc\u30c9,\u652f\u5e97\u30b3\u30fc\u30c9,\u9280\u884c\u540d\uff08\u534a\u89d2\u30ab\u30ca\uff09,\u9280\u884c\u540d,\u652f\u5e97\u540d\uff08\u534a\u89d2\u30ab\u30ca\uff09,\u652f\u5e97\u540d,\u30d5\u30e9\u30b0,\u533a\u5206,\u7a7a\u767d\u5217\"\n\n' 5. \u51fa\u529b\u3057\u305f\u3044\u5217\u306e\u9806\u756a\u30fb\u30ab\u30b9\u30bf\u30e0\u6587\u5b57\n' \u30fb\u6570\u5b57\uff080\uff5e7\uff09 \uff1d \u5143\u30c7\u30fc\u30bf\u306e\u5217\u3092\u305d\u306e\u307e\u307e\u51fa\u529b\n' \u30fb\"TEXT:\u6587\u5b57\" \uff1d \u56fa\u5b9a\u306e\u6587\u5b57\u5217\u3092\u4e00\u5f8b\u3067\u51fa\u529b\n' \u30fb\"TEXT:\" \uff1d \u7a7a\u767d\u306e\u5217\uff08\u7a7a\u6b04\uff09\u3092\u51fa\u529b\n' \u4f8b\uff1aARR_COL_ORDER = Array(5, 6, 2, 1, 4, 3, \"TEXT:1\", \"TEXT:\u901a\u5e38\", \"TEXT:\") \nDim ARR_COL_ORDER\nARR_COL_ORDER = Array(5, 6, 2, 1, 4, 3) \n\n' 6. \u30dd\u30c3\u30d7\u30a2\u30c3\u30d7\u3092\u81ea\u52d5\u3067\u9589\u3058\u308b\u79d2\u6570\uff08\u79d2\uff09\nConst CLOSE_TIME = 3\n\n' 7. \u30dd\u30c3\u30d7\u30a2\u30c3\u30d7\u306e\u30b9\u30bf\u30a4\u30eb\u5b9a\u7fa9\uff084096 = \u5e38\u306b\u6700\u524d\u9762\u306b\u8868\u793a\uff09\nConst STYLE_INFO = 4160 ' \u5e38\u306b\u6700\u524d\u9762 \uff0b \u60c5\u5831\u30a2\u30a4\u30b3\u30f3\nConst STYLE_ERROR = 4112 ' \u5e38\u306b\u6700\u524d\u9762 \uff0b \u30a8\u30e9\u30fc\u30a2\u30a4\u30b3\u30f3\n' ======================================================================\n\nDim scriptPath, outputPath\nscriptPath = Left(WScript.ScriptFullName, InStrRev(WScript.ScriptFullName, \"\\\"))\noutputPath = scriptPath & OUTPUT_FILE_NAME\n\nDim shell\nSet shell = CreateObject(\"WScript.Shell\")\n\n' \u6700\u521d\u306e\u78ba\u8a8d\u30e1\u30c3\u30bb\u30fc\u30b8\uff08\u8a2d\u5b9a\u3057\u305f\u79d2\u6570\u3067\u81ea\u52d5\u6d88\u6ec5\u30fb\u5e38\u306b\u6700\u524d\u9762\uff09\nshell.Popup \"\u30b5\u30a4\u30c8\u4e0a\u306e\u6700\u65b0\u30d5\u30a1\u30a4\u30eb\u3092\u78ba\u8a8d\u4e2d...\", CLOSE_TIME, \"\u9280\u884c\u30de\u30b9\u30bf\u66f4\u65b0\", STYLE_INFO\n\n' 2. \u30da\u30fc\u30b8\u306eHTML\u3092\u53d6\u5f97\nDim http, html\nSet http = CreateObject(\"MSXML2.ServerXMLHTTP.6.0\")\nhttp.Open \"GET\", PAGE_URL, False\nhttp.Send\n\nIf http.Status <> 200 Then\n shell.Popup \"\u30b5\u30a4\u30c8\u3078\u306e\u30a2\u30af\u30bb\u30b9\u306b\u5931\u6557\u3057\u307e\u3057\u305f\u3002\u30b9\u30c6\u30fc\u30bf\u30b9: \" & http.Status, CLOSE_TIME, \"\u30a8\u30e9\u30fc\", STYLE_ERROR\n WScript.Quit\nEnd If\n\nhtml = http.ResponseText\n\n' 3. HTML\u306e\u4e2d\u304b\u3089\u6700\u65b0\u306e\u30d5\u30a1\u30a4\u30eb\u30ea\u30f3\u30af\u3092\u53d6\u5f97\nDim csvUrl, idxBankData, idxStart, idxEnd\nidxBankData = InStr(html, \"bank_data-\")\n\nIf idxBankData = 0 Then\n shell.Popup \"\u30da\u30fc\u30b8\u5185\u306b\u300c\u5bfe\u8c61\u30d5\u30a1\u30a4\u30eb(bank_data-)\u300d\u306e\u304c\u898b\u3064\u304b\u308a\u307e\u305b\u3093\u3067\u3057\u305f\u3002\", CLOSE_TIME, \"\u30a8\u30e9\u30fc\", STYLE_ERROR\n WScript.Quit\nEnd If\n\nidxStart = InStrRev(html, \"https:\/\/\", idxBankData)\nidxEnd = InStr(idxBankData, html, \".csv\")\n\nIf idxStart = 0 Or idxEnd = 0 Or idxEnd < idxStart Then\n shell.Popup \"\u6700\u65b0CSV\u306eURL\u69cb\u9020\u306e\u89e3\u6790\u306b\u5931\u6557\u3057\u307e\u3057\u305f\u3002\", CLOSE_TIME, \"\u30a8\u30e9\u30fc\", STYLE_ERROR\n WScript.Quit\nEnd If\n\ncsvUrl = Mid(html, idxStart, (idxEnd + 4) - idxStart)\n\n' 4. \u5207\u308a\u51fa\u3057\u305fURL\u304b\u3089\u6700\u65b0\u306e\u30d5\u30a1\u30a4\u30eb\u540d\u3092\u7279\u5b9a\nDim originFileName, rawFilePath\noriginFileName = Mid(csvUrl, InStrRev(csvUrl, \"\/\") + 1)\nrawFilePath = scriptPath & originFileName \n\n' 5. \u3010\u91cd\u8907\u5224\u5b9a\u3011\u3059\u3067\u306b\u540c\u3058\u30c7\u30fc\u30bf\u304c\u3042\u308c\u3070\u7d42\u4e86\nDim fso\nSet fso = CreateObject(\"Scripting.FileSystemObject\")\nIf fso.FileExists(rawFilePath) Then\n shell.Popup \"\u30b5\u30fc\u30d0\u30fc\u4e0a\u306e\u6700\u65b0\u30d5\u30a1\u30a4\u30eb\uff08\" & originFileName & \"\uff09\u306f\u3059\u3067\u306b\u53d6\u5f97\u6e08\u307f\u3067\u3059\u3002\" & vbCrLf & \"\u51e6\u7406\u3092\u30b9\u30ad\u30c3\u30d7\u3057\u307e\u3057\u305f\u3002\", CLOSE_TIME, \"\u5b8c\u4e86\", STYLE_INFO\n Set http = Nothing\n Set fso = Nothing\n Set shell = Nothing\n WScript.Quit\nEnd If\n\n' 6. \u65e5\u4ed8\u304c\u9055\u3046\u30d5\u30a1\u30a4\u30eb\u306e\u5834\u5408\u306e\u307f\u3001\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u3066\u30ed\u30fc\u30ab\u30eb\u306b\u4fdd\u5b58\nshell.Popup \"\u6700\u65b0\u30d5\u30a1\u30a4\u30eb\uff08\" & originFileName & \"\uff09\u3092\u767a\u898b\u3057\u307e\u3057\u305f\u3002\" & vbCrLf & \"\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3092\u958b\u59cb\u3057\u307e\u3059...\", CLOSE_TIME, \"\u66f4\u65b0\u691c\u77e5\", STYLE_INFO\n\nhttp.Open \"GET\", csvUrl, False\nhttp.Send\n\nIf http.Status <> 200 Then\n shell.Popup \"CSV\u30d5\u30a1\u30a4\u30eb\u306e\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u306b\u5931\u6557\u3057\u307e\u3057\u305f\u3002\", CLOSE_TIME, \"\u30a8\u30e9\u30fc\", STYLE_ERROR\n WScript.Quit\nEnd If\n\nDim binaryStream\nSet binaryStream = CreateObject(\"ADODB.Stream\")\nbinaryStream.Type = 1 \nbinaryStream.Open\nbinaryStream.Write http.ResponseBody\nbinaryStream.SaveToFile rawFilePath, 2 \nbinaryStream.Close\nSet binaryStream = Nothing\nSet http = Nothing\n\n' 7. \u3010\u6587\u5b57\u30b3\u30fc\u30c9\u5bfe\u7b56\u3011\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u305f\u30d5\u30a1\u30a4\u30eb\u3092\u300cUTF-8\u300d\u3068\u3057\u3066\u958b\u304f\nDim inputStream\nSet inputStream = CreateObject(\"ADODB.Stream\")\ninputStream.Type = 2\ninputStream.Charset = \"UTF-8\"\ninputStream.Open\ninputStream.LoadFromFile rawFilePath\n\n' 8. \u51fa\u529b\u5148\uff08Shift-JIS\uff09\u30d5\u30a1\u30a4\u30eb\u3092\u65b0\u898f\u4f5c\u6210\nDim outputFile\nSet outputFile = fso.OpenTextFile(outputPath, 2, True, 0) \n\n' \u8a2d\u5b9a\u304c True \u306e\u5834\u5408\u306e\u307f\u30d8\u30c3\u30c0\u30fc\u3092\u66f8\u304d\u51fa\u3057\nIf HAS_HEADER Then\n outputFile.WriteLine OUTPUT_HEADER\nEnd If\n\nDim line, items, isHeader, outLine, i, colConf, val\nisHeader = True\n\n' \u4e0a\u304b\u30891\u884c\u305a\u3064\u30eb\u30fc\u30d7\u51e6\u7406\nDo Until inputStream.EOS\n line = inputStream.ReadText(-2) \n \n If Trim(line) <> \"\" Then\n If isHeader Then\n isHeader = False ' \u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u3057\u305f\u5143\u30d5\u30a1\u30a4\u30eb\u306e\u30d8\u30c3\u30c0\u30fc\u884c\u306f\u30b9\u30ad\u30c3\u30d7\n Else\n items = Split(line, \",\")\n ' \u5143\u30c7\u30fc\u30bf\u306e\u5217\u6570\u304c\u6b63\u5e38\u304b\u30c1\u30a7\u30c3\u30af\n If UBound(items) >= 7 Then\n outLine = \"\"\n \n ' ARR_COL_ORDER \u306b\u5408\u308f\u305b\u30661\u5217\u305a\u3064\u51e6\u7406\n For i = 0 To UBound(ARR_COL_ORDER)\n colConf = ARR_COL_ORDER(i)\n \n ' \"TEXT:\" \u304b\u3089\u59cb\u307e\u3063\u3066\u3044\u308b\u304b\u3069\u3046\u304b\u3092\u5224\u5b9a\n If Left(CStr(colConf), 5) = \"TEXT:\" Then\n ' \"TEXT:\" \u306e\u5f8c\u308d\u306b\u3042\u308b\u6587\u5b57\u5217\u3092\u305d\u306e\u307e\u307e\u4f7f\u7528\n val = Mid(CStr(colConf), 6)\n Else\n ' \u6570\u5b57\u306e\u5834\u5408\u306f\u3001\u5143\u30c7\u30fc\u30bf\u306e\u8a72\u5f53\u3059\u308b\u5217\u304b\u3089\u5024\u3092\u53d6\u5f97\n val = items(CInt(colConf))\n End If\n \n ' \u30ab\u30f3\u30de\u3067\u7d50\u5408\n If i = 0 Then\n outLine = val\n Else\n outLine = outLine & \",\" & val\n End If\n Next\n outputFile.WriteLine outLine\n End If\n End If\n End If\nLoop\n\n' \u5f8c\u7247\u4ed8\u3051\ninputStream.Close\noutputFile.Close\nSet fso = Nothing\nSet inputStream = Nothing\n\nshell.Popup \"\u6700\u65b0\u30c7\u30fc\u30bf\u306e\u66f4\u65b0\u3068\u4e26\u3073\u66ff\u3048\u304c\u5b8c\u4e86\u3057\u307e\u3057\u305f\uff01\" & vbCrLf & vbCrLf & _\n \"\u30c0\u30a6\u30f3\u30ed\u30fc\u30c9\u30d5\u30a1\u30a4\u30eb\u540d: \" & originFileName & vbCrLf & _\n \"\u51fa\u529bCSV\u30d5\u30a1\u30a4\u30eb\u540d: \" & OUTPUT_FILE_NAME, CLOSE_TIME, \"\u6210\u529f\", STYLE_INFO\n\nSet shell = Nothing\n<\/code><\/pre>\n\n\n\n
<\/p>\n","protected":false},"excerpt":{"rendered":"