{"id":790,"date":"2012-10-03T11:43:49","date_gmt":"2012-10-03T02:43:49","guid":{"rendered":"http:\/\/www.lastspiral.com\/?p=790"},"modified":"2022-10-29T03:56:16","modified_gmt":"2022-10-28T18:56:16","slug":"vb%e3%82%84vba%e3%81%aa%e3%81%a9%e3%81%a7%e6%96%87%e5%ad%97%e5%88%97%e3%82%92utf-8%e3%81%a7%e3%82%a8%e3%83%b3%e3%82%b3%e3%83%bc%e3%83%89%e3%81%99%e3%82%8b","status":"publish","type":"post","link":"https:\/\/www.lastspiral.com\/?p=790","title":{"rendered":"VB\u3084VBA\u306a\u3069\u3067\u6587\u5b57\u5217\u3092UTF-8\u3067\u30a8\u30f3\u30b3\u30fc\u30c9\u3059\u308b"},"content":{"rendered":"\n

\u30b0\u30b0\u308b\u306e\u9762\u5012\u306a\u306e\u3067\u3001\u899a\u66f8\u3002<\/p>\n\n\n\n\n\n\n\n

‘
‘\u6587\u5b57\u5217\u3092UTF-8\u3067\u30a8\u30f3\u30b3\u30fc\u30c9\u3059\u308b
‘
Public Function UrlEncodeUtf8(ByRef strSource As String) As String
‘
‘strSource: \u5143\u306e\u6587\u5b57\u5217
‘\u8fd4\u308a\u5024: \u30a8\u30f3\u30b3\u30fc\u30c9\u3055\u308c\u305f\u6587\u5b57\u5217
‘
Dim objSC As Object
‘
Set objSC = CreateObject(“ScriptControl”)
‘
objSC.Language = “Jscript”
‘
UrlEncodeUtf8 = objSC.CodeObject.encodeURIComponent(strSource)
‘
Set objSC = Nothing
‘
End Function<\/p>\n\n\n\n

‘
‘\u6587\u5b57\u5217\u3092UTF-8\u3067\u30c7\u30b3\u30fc\u30c9\u3059\u308b
‘
Public Function URLDecodeUTF8(strSource As String) As String
‘
‘strSource: \u5143\u306e\u6587\u5b57\u5217
‘\u8fd4\u308a\u5024: \u30a8\u30f3\u30b3\u30fc\u30c9\u3055\u308c\u305f\u6587\u5b57\u5217
‘
Dim objSC As Object
‘
Set objSC = CreateObject(“ScriptControl”)
‘
objSC.Language = “Jscript”
‘
URLDecodeUTF8 = objSC.CodeObject.decodeURIComponent(strSource)
‘
Set objSC = Nothing
‘
End Function<\/p>\n","protected":false},"excerpt":{"rendered":"

\u30b0\u30b0\u308b\u306e\u9762\u5012\u306a\u306e\u3067\u3001\u899a\u66f8\u3002<\/p>\n","protected":false},"author":1,"featured_media":0,"comment_status":"open","ping_status":"open","sticky":false,"template":"","format":"standard","meta":{"footnotes":""},"categories":[43],"tags":[],"class_list":["post-790","post","type-post","status-publish","format-standard","hentry","category-43"],"aioseo_notices":[],"aioseo_head":"\n\t\t\n\t\n\t\n\t\n\t\n\t\n\t\t\n\t\t\n\t\t\n\t\t