2008-07-14から1日間の記事一覧
覚え書き。ネタ元はここ。 ソース Sub URLEncode_UTF8() Const cnsEncStr As String = "そうのて" Dim sc As Object Dim ss As String Set sc = CreateObject("ScriptControl") With sc .Language = "JScript" ss = .CodeObject.encodeURI(cnsEncStr) End Wi…
覚え書き。ネタ元はここ。 ソース Sub URLEncode_UTF8() Const cnsEncStr As String = "そうのて" Dim sc As Object Dim ss As String Set sc = CreateObject("ScriptControl") With sc .Language = "JScript" ss = .CodeObject.encodeURI(cnsEncStr) End Wi…