人力検索はてな
モバイル版を表示しています。PC版はこちら
i-mobile

VBScript で、UTF-8でエンコードするにはどうしたらよいでしょうか?

このサイトのような変換がしたいです。
http://home.kendomo.net/board/decode/

例:
「テスト」→「%E3%83%86%E3%82%B9%E3%83%88」

●質問者: yamazakiis
●カテゴリ:コンピュータ インターネット
✍キーワード:E3 UTF-8 VBScript エンコード サイト
○ 状態 :終了
└ 回答数 : 4/4件

▽最新の回答へ

1 ● takoratta
●23ポイント

JavaScriptのencodeURIを使うのが一番簡単ですね。VBScriptからも呼び出すことができます。

WSHでなら、http://russiantea.dip.jp/vbswsh/32を、ASPでなら、http://www.ken3.org/asp/backno/asp098.htmlが参考になります。

◎質問者からの返答

いや、VBScriptでお願いします。


2 ● cx20
●23ポイント

少し邪道ですが、VBScript から JScript の encodeURI 関数を呼び出すという方法があるようです。

' File Name : encode.vbs
' Usage : CScript encode.vbs //Nologo
Option Explicit
 
Call Main
 
Sub Main()
 Dim sc
 Set sc = CreateObject("ScriptControl")
 sc.Language = "JScript"
 Dim js
 Set js = sc.CodeObject
 Dim strEncodeURL
 strEncodeURL = js.encodeURI("テスト")
 WScript.Echo strEncodeURL
 WScript.Echo js.decodeURI(strEncodeURL)
End Sub
<実行結果>
C:\home\edu\hatena\yamazakiis\1146809629>cscript encode.vbs //Nologo
%E3%83%86%E3%82%B9%E3%83%88
テスト

<スクリプト コントロール 関連情報>

■ JScriptFromVBScript.VBS(VBScriptからJScriptを使う方法)

http://www.vector.co.jp/soft/win95/util/se397376.html

■ Windows Script ノスゝメ

http://russiantea.dip.jp/vbswsh/32

■ Microsoft Scripting Technologies / スクリプト コントロールの概要

https://www.microsoft.com/japan/msdn/scripting/scriptcontrol/sco...


自前で UTF-8 変換を行うのであれば、

■ decodeURL.HTA(Windows95/98/Me/ユーティリティ)

http://www.vector.co.jp/soft/win95/util/se350148.html

の decodeURL.HTA の中の EncodeUTF8() 関数が参考になるのでは?と思います。


3 ● llusall
●22ポイント

こちらで如何でしょうか?

【三流君(Ken3)のHP】より

http://www.ken3.org/cgi-bin/test/test097-2.asp?DATA=%83e%83X%83g

http://www.ken3.org/asp/backno/asp097.html


4 ● mikadeko
●22ポイント

自分は下記で公開されている関数をVBScriptに直して利用しています。コードがVBなのでほとんどそのまま利用できます。

http://www.geocities.co.jp/SilkRoad/4511/vb/urlenc.htm

関連質問


●質問をもっと探す●



0.人力検索はてなトップ
8.このページを友達に紹介
9.このページの先頭へ
対応機種一覧
お問い合わせ
ヘルプ/お知らせ
ログイン
無料ユーザー登録
はてなトップ