VB.net・JavaScriptエンコードについて

質問

VB.net・JavaScriptエンコードについて

JavaScriptでのエンコード、ではなく、
下記のページに表示されている「JavaScript」の書式が何なのかがわかりません。

http://encodemaniax.com/index/encode/utf8/44Oi44Oz44K544K%2C44O8

「モンスター」という文字列を訳があって
「"\u30e2\u30f3\u30b9\u30bf\u30fc"」という文字列に変換したいのです。

utf-8やShift-jisの変換はできるのですが、
上記ページの「JavaScript」が何を示しているのかわかりません。

自分でGoogleなどで調べても、検索用語が「JavaScriptエンコード」などとしか検索できないので
「JavaScriptでのエンコード」の結果が出てきてしまいます（汗

初歩的なことかもしれませんが、ご回答いただければ幸いです。
宜しくお願いいたします。

回答No.1

yyr446 · ベストアンサー

"\u30e2\u30f3\u30b9\u30bf\u30fc"
はUTF-8の文字コード(数値参照(16進数))のユニコード表記です。
　30e2：モ
　30f3：ン
　30b9：ス
　30fc：タ
参考
http://ja.wikipedia.org/wiki/Unicode%E4%B8%80%E8%A6%A7_3000-3FFF

javascriptだと、
　string.charCodeAt(n)
で取得できます。

for(var i=0;i<4;i++){
　var str+="モンスタ".charCodeAt(i)
}
　alert(str);

　　　＝＞ \u30e2\u30f3\u30b9\u30bf\u30fc のはず

お礼

ご回答ありがとうございました！！
16進数だったのですね。

かなりのヒントになったので調べましたところ
Dim data As Byte() = Encoding.Unicode.GetBytes("モンスター")

にて望む表記が得られそうです。
ありがとうございました。

回答No.2

1050 円（@1050YEN）

大きく二つの方法があります。

参考URLは半角だけそのまま出力されてますので、半角はそのまま表示する仕組みに変更してあります。

-------------------------------------------
※UTF-16 Big Endianエンコードを利用する方法
-------------------------------------------
Function ConvJS1(ByVal in文字列 As String) As String
　　Dim ret As String = ""

　　Dim ec As System.Text.Encoding = System.Text.Encoding.BigEndianUnicode

　　Dim bytesData As Byte() = ec.GetBytes(in文字列)
　　For i As Integer = 1 To bytesData.Length Step 2
　　　　Dim byt(1) As Byte

　　　　Array.Copy(bytesData, i - 1, byt, 0, 2)
　　　　If (byt(0) = 0) Then
　　　　　　ret &= ec.GetString(byt)
　　　　Else
　　　　　　ret &= "\u" & Hex((CInt(byt(0)) << 8) Or CInt(byt(1))).ToLower()
　　　　End If
　　Next

　　Return ret
End Function

------------------------------
※AscWを利用する方法
------------------------------
Function ConvJS2(ByVal in文字列 As String) As String
　　Dim ret As String = ""

　　For Each c As Char In in文字列.ToCharArray()
　　　　Dim s As String = c.ToString()
　　　　Dim h As Integer = AscW(s)
　　　　If (h < &HFF) Then
　　　　　　ret &= s
　　　　Else
　　　　　　ret &= "\u" & Hex(h).ToLower()
　　　　End If
　　Next

　　Return ret
End Function

お礼

ご回答ありがとうございました！！

タッチの差で1050YENさんのご回答を確認する前に、
最初に回答いただいたyyr446さんへベストアンサーとさせていただきましたが
VBのコードもご提示いただき、当方としては実質ベストアンサーです！！

お陰さまで、問題は解決しそうです。
ありがとうございました！！