vb6でuriエンコード

差分

このページの2つのバージョン間の差分を表示します。

この比較画面へのリンク

--- vb6でuriエンコード [2014/05/26 15:28] – 作成 nabezo
+++ vb6でuriエンコード [2014/05/26 15:29] – nabezo
@@ 行 5: / 行 5: @@
 http://komet163.blog36.fc2.com/blog-entry-18.html
-'==================================================
+  '==================================================
-'UrlEncodeUtf8: 文字列をUTF-8でエンコードするFunction
+  'UrlEncodeUtf8: 文字列をUTF-8でエンコードするFunction
-'==================================================
+  '==================================================
-'strSource: 元の文字列
+  'strSource: 元の文字列
-'返り値: エンコードされた文字列
+  '返り値: エンコードされた文字列
-'==================================================
+  '==================================================
-Public Function UrlEncodeUtf8(ByRef strSource As String) As String
+  Public Function UrlEncodeUtf8(ByRef strSource As String) As String
     Dim objSC As Object
     Set objSC = CreateObject("ScriptControl")
@@ 行 17: / 行 17: @@
     UrlEncodeUtf8 = objSC.CodeObject.encodeURIComponent(strSource)
     Set objSC = Nothing
-End Function
+  End Function
-'==================================================
+  '==================================================
-'UrlDecodeUtf8: 文字列をUTF-8でデコードするFunction
+  'UrlDecodeUtf8: 文字列をUTF-8でデコードするFunction
-'==================================================
+  '==================================================
-'strSource: 元の文字列
+  'strSource: 元の文字列
-'返り値: エンコードされた文字列
+  '返り値: エンコードされた文字列
-'==================================================
+  '==================================================
-Public Function URLDecodeUTF8(strSource As String) As String
+  Public Function URLDecodeUTF8(strSource As String) As String
     Dim objSC As Object
     Set objSC = CreateObject("ScriptControl")
@@ 行 31: / 行 31: @@
     URLDecodeUTF8 = objSC.CodeObject.decodeURIComponent(strSource)
     Set objSC = Nothing
-End Function
+  End Function

vb6でuriエンコード.txt · 最終更新: 2019/06/30 12:22 by 127.0.0.1