{"id":1915,"date":"2023-07-16T15:26:01","date_gmt":"2023-07-16T06:26:01","guid":{"rendered":"https:\/\/euc-access-excel-db.com\/tips\/?p=1915"},"modified":"2023-12-05T21:58:24","modified_gmt":"2023-12-05T12:58:24","slug":"textfile_utf8_to_shiftjis01","status":"publish","type":"post","link":"https:\/\/euc-access-excel-db.com\/tips\/ct07_se\/ct075012_xls2k_vba_tips\/textfile_utf8_to_shiftjis01","title":{"rendered":"\u2605\u2605\u2605 Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5eUTF-8\u3001UTF-8\uff08BOM\u4ed8\u304d\uff09\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u21d2Shift-JIS\u306b\u5909\u63db\u3059\u308b\u95a2\u6570\uff5e"},"content":{"rendered":"

\u2605\u2605\u2605 Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5eUTF-8\u3001UTF-8\uff08BOM\u4ed8\u304d\uff09\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u21d2Shift-JIS\u306b\u5909\u63db\u3059\u308b\u95a2\u6570\uff5e
\n\u3000\u3000<\/SPAN>
\n\u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002<\/span>
\n\u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e\u305b\u3093\u3002<\/span>
\n\u203b\u30e1\u30e2\u66f8\u304d\u306a\u306e\u3067\u3001\u81ea\u5206\u3067\u3082\u610f\u5473\u4e0d\u660e\u306a\u7b87\u6240\u3082\u591a\u3044\u3067\u3059\u3002\u3054\u3081\u3093\u306a\u3055\u3044\u3002<\/span>
\n\u3000\u3000<\/SPAN>
\n\u203b\u95a2\u9023Web\u8a18\u4e8b
\n\u300e \u2605\u2605\u2605 Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5eExcel\u306b\u3001\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u5185\u5bb9\u3092\u3001\u300cSQL\u3092\u4f7f\u3044\u306a\u304c\u3089\u300d\u30fb\u304b\u3064\u30fb\u300c\u7d5e\u308a\u8fbc\u307f\u306a\u304c\u3089\u8aad\u307f\u8fbc\u3080\u300d\u65b9\u6cd5\uff08QueryTable\u30aa\u30d6\u30b8\u30a7\u30af\u30c8\u306b\u3066ODBC\u63a5\u7d9a\u5229\u7528\uff09\u203bADO\uff0bOLEDB\u306f\u5225\u3067\u3059\u3002\uff5e<\/a> \u300f
\n\u300e ADO\u3067CSV\u306e\u8aad\u307f\u8fbc\u307f\uff08SQL\uff09<\/a> \u300f
\n\u300e VBA\u3067\u306eCSV\u306e\u6271\u3044\u65b9\u307e\u3068\u3081\uff08\u6587\u5b57\u30b3\u30fc\u30c9\u304c\u3069\u3046\u3057\u3066\u3082\u95a2\u4fc2\u3059\u308b\u5834\u5408\u3068\u304b\uff09<\/a> \u300f<\/p>\n

\u3000\u3000<\/SPAN><\/p>\n

\u2605UTF-8\u3001UTF-8\uff08BOM\u4ed8\u304d\uff09\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u21d2Shift-JIS\u306b\u5909\u63db\u3059\u308b\u95a2\u6570\u3002
\n\u300cCall Utf8ToSjis01(\u30d5\u30a1\u30a4\u30eb\u30d1\u30b9)\u300d\u307f\u305f\u3044\u306a\u8a18\u8ff0\u3067\u4f7f\u3044\u307e\u3059\u3002
\n\u4ee5\u4e0b\u306e\u53c2\u8003\u30da\u30fc\u30b8\u3092\u3082\u3068\u306b\u3001\u3061\u3083\u3093\u3068\u5909\u6570\u5ba3\u8a00\u3092\u3057\u305f\u304b\u305f\u3061\u306b\u4f5c\u308a\u66ff\u3048\u307e\u3057\u305f\u3002
\n\u305f\u3060\u3001
\n\u300cv_SplitRow = Split(s_AllText, vbCrLf)\u300d
\n\u306e\u884c\u3067\u3001\u6539\u884c\u30b3\u30fc\u30c9\u3092vblf\u304b\u3001vbcr\u304b\u3001\u306a\u3069\u304c\u6d41\u52d5\u7684\u306a\u306e\u3067\u3001
\n\u3061\u3083\u3093\u3068\u3057\u305f\u4fee\u6b63\u304c\u5fc5\u8981\u304b\u3082\u3057\u308c\u307e\u305b\u3093\u3002<\/p>\n

\u53c2\u8003Web\u30da\u30fc\u30b8
\nhttps:\/\/daitaideit.com\/vba-utf-8-transform\/#mokuzi2<\/a><\/p>\n

\r\n'\r\n'\r\n\r\n'##########################################################\r\n'UTF-8\u3001UTF-8\uff08BOM\u4ed8\u304d\uff09\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u21d2Shift-JIS\u306b\r\n'\u5909\u63db\u3059\u308b\u95a2\u6570\u3002\r\n'Call Utf8ToSjis01(\u30d5\u30a1\u30a4\u30eb\u30d1\u30b9)\r\n'https:\/\/daitaideit.com\/vba-utf-8-transform\/#mokuzi2\r\n'##########################################################\r\n\r\nFunction Utf8ToSjis01(FilePath As String)\r\n   \r\n    Dim s_AllText As String\r\n    Dim v_SplitRow As Variant\r\n    Dim l_Cnt01 As Long\r\n    Dim l_Cnt02 As Long\r\n    \r\n    '\u5909\u63db\u3057\u305f\u3044\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u306e\u30d5\u30a1\u30a4\u30eb\u30d1\u30b9\u3092\u4f5c\u6210\r\n'    Dim FilePath\r\n'    FilePath = ThisWorkbook.Path & \"\\TEST.txt\"\r\n'    FilePath = \"d:\\1\\bbb_utf8.csv\"\r\n    \r\n    'UTF-8\u3082\u3057\u304f\u306fUTF-8\uff08BOM\u4ed8\u304d\uff09\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u8aad\u307f\u8fbc\u307f\r\n    With CreateObject(\"ADODB.Stream\")\r\n        .Charset = \"UTF-8\"\r\n        .Open\r\n        .LoadFromFile FilePath\r\n        s_AllText = .ReadText\r\n        .Close\r\n    End With\r\n    \r\n    \r\n    'UTF-8\u3082\u3057\u304f\u306fUTF-8\uff08BOM\u4ed8\u304d\uff09\u4ee5\u5916\u3092\u8aad\u307f\u8fbc\u3093\u3067\u3057\u307e\u3063\u305f\u5834\u5408\u306f\u7d42\u4e86\r\n    For l_Cnt01 = 1 To Len(s_AllText)\r\n        If Mid(s_AllText, l_Cnt01, 1) <> Chr(63) Then\r\n            If Asc(Mid(s_AllText, l_Cnt01, 1)) = 63 Then\r\n                Debug.Print \"\u4e2d\u6b62--\u203b\u30bd\u30fc\u30b9\u304c\u300e UTF-8\u3082\u3057\u304f\u306fUTF-8\uff08BOM\u4ed8\u304d\uff09\u300f\u4ee5\u5916\u3060\u3063\u305f\u305f\u3081\u3002\"\r\n'                MsgBox \"\u4e2d\u6b62\"\r\n                Exit Function\r\n            End If\r\n        End If\r\n    Next\r\n    \r\n    '\u6539\u884c\u6bce\u306b\u30c7\u30fc\u30bf\u3092\u5206\u3051\u308b\u3002\r\n    v_SplitRow = Split(s_AllText, vbCrLf)\r\n    \r\n    '\u2191\uff08\u203b\u3069\u306e\u6539\u884c\u30b3\u30fc\u30c9\u304b\u308f\u304b\u3089\u306a\u3044\u306e\u3067\u3001\r\n    '\u3000\u3000\u3000\u4e8b\u524d\u306b\uff11\u3064\u306e\u30d5\u30a1\u30a4\u30eb\u3068\u304b\u3067\u8a66\u3059\u3002\uff09\r\n    '\u3000\u3000\u3000\u3042\u308b\u3044\u306f\u3001\u81ea\u52d5\u30c1\u30a7\u30c3\u30af\u306e\u30b3\u30fc\u30c9\u3092\u8ffd\u8a18\u3059\u308b\uff09\r\n'    v_SplitRow = Split(s_AllText, vbCr)\r\n'    v_SplitRow = Split(s_AllText, vbLf)\r\n\r\n    \r\n    \r\n    'Shift-JIS\u5f62\u5f0f\u3067\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3078\u51fa\u529b\r\n    Open FilePath For Output As #1\r\n        For l_Cnt02 = 0 To UBound(v_SplitRow)\r\n            Print #1, v_SplitRow(l_Cnt02)\r\n        Next\r\n    Close #1\r\n\r\n    Debug.Print \"\u5b8c\u4e86\"\r\n    \r\nEnd Function\r\n\r\n'\r\n'\r\n<\/pre>\n
\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN>
\n\u3000\u3000<\/SPAN><\/p>\n","protected":false},"excerpt":{"rendered":"\u2605\u2605\u2605 Access2000VBA\u30fbExcel2000VBA\u72ec\u5b66\uff5eUTF-8\u3001UTF-8\uff08BOM\u4ed8\u304d\uff09\u306e\u30c6\u30ad\u30b9\u30c8\u30d5\u30a1\u30a4\u30eb\u3092\u21d2Shift-JIS\u306b\u5909\u63db\u3059\u308b\u95a2\u6570\uff5e \u3000\u3000 \u203b\u307e\u3060\u66f8\u304d\u304b\u3051\u3067\u3059\u3002\u3059\u307f\u307e\u305b\u3093\u3002 \u203b\u9593\u9055\u3063\u3066\u305f\u3089\u3059\u307f\u307e ...","protected":false},"author":2,"featured_media":0,"comment_status":"closed","ping_status":"closed","sticky":false,"template":"","format":"standard","meta":[],"categories":[234],"_links":{"self":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1915"}],"collection":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts"}],"about":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/types\/post"}],"author":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/users\/2"}],"replies":[{"embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/comments?post=1915"}],"version-history":[{"count":0,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/posts\/1915\/revisions"}],"wp:attachment":[{"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/media?parent=1915"}],"wp:term":[{"taxonomy":"category","embeddable":true,"href":"https:\/\/euc-access-excel-db.com\/tips\/wp-json\/wp\/v2\/categories?post=1915"}],"curies":[{"name":"wp","href":"https:\/\/api.w.org\/{rel}","templated":true}]}}