vb6でuriエンコード
差分
このページの2つのバージョン間の差分を表示します。
次のリビジョン | 前のリビジョン | ||
vb6でuriエンコード [2014/05/26 15:28] – 作成 nabezo | vb6でuriエンコード [2019/06/30 12:22] (現在) – 外部編集 127.0.0.1 | ||
---|---|---|---|
行 5: | 行 5: | ||
http:// | http:// | ||
- | ' | + | |
- | ' | + | ' |
- | ' | + | ' |
- | ' | + | ' |
- | ' | + | ' |
- | ' | + | ' |
- | Public Function UrlEncodeUtf8(ByRef strSource As String) As String | + | Public Function UrlEncodeUtf8(ByRef strSource As String) As String |
Dim objSC As Object | Dim objSC As Object | ||
Set objSC = CreateObject(" | Set objSC = CreateObject(" | ||
行 17: | 行 17: | ||
UrlEncodeUtf8 = objSC.CodeObject.encodeURIComponent(strSource) | UrlEncodeUtf8 = objSC.CodeObject.encodeURIComponent(strSource) | ||
Set objSC = Nothing | Set objSC = Nothing | ||
- | End Function | + | |
- | + | ||
- | ' | + | ' |
- | ' | + | ' |
- | ' | + | ' |
- | ' | + | ' |
- | ' | + | ' |
- | ' | + | ' |
- | Public Function URLDecodeUTF8(strSource As String) As String | + | Public Function URLDecodeUTF8(strSource As String) As String |
Dim objSC As Object | Dim objSC As Object | ||
Set objSC = CreateObject(" | Set objSC = CreateObject(" | ||
行 31: | 行 31: | ||
URLDecodeUTF8 = objSC.CodeObject.decodeURIComponent(strSource) | URLDecodeUTF8 = objSC.CodeObject.decodeURIComponent(strSource) | ||
Set objSC = Nothing | Set objSC = Nothing | ||
- | End Function | + | |
vb6でuriエンコード.txt · 最終更新: 2019/06/30 12:22 by 127.0.0.1