System.Text.UTF8Encoding From VBScript

Question

VBScript에서 GetBytes (System.Text.UTF8Encoding)를 어떻게 호출합니까?

너 can use the .NET Framework from VBScript을 its exposed to COM으로 설정했지만 좋은 설명서/매뉴얼을 찾지 못했습니다.

Answer 1

당신이 VBScript로 상당을 찾고 있다면, 당신은 아도 스트림을 사용하여 수행 할 수 있습니다

Const adTypeBinary = 1 
Dim adoStr, bytesthroughado 
Set adoStr = CreateObject("Adodb.Stream") 
    adoStr.Charset = "utf-8" 
    adoStr.Open 
    adoStr.WriteText "你好Ğ" 
    adoStr.Position = 0 'reset position 
    adoStr.Type = adTypeBinary 
    adoStr.Position = 3 'skip bom 
    bytesthroughado = adoStr.Read 'get bytes 
    WScript.Echo LenB(bytesthroughado) 'length 
    adoStr.Close 
Set adoStr = Nothing 

그것은에서 VBScript (mscorlib에에서) 일부 닷넷 구성 요소에 액세스 할 수 있습니다.

Dim encoding, bytesthroughdotnet 
Set encoding = CreateObject("System.Text.UTF8Encoding") 
    bytesthroughdotnet = encoding.GetBytes_4("你好Ğ") 'get bytes 
    WScript.Echo LenB(bytesthroughdotnet) 'length 
Set encoding = Nothing