문자의 UTF-8 코드를 얻고 싶습니다. 스트림을 사용하려고했지만 작동하지 않는 것 같습니다.
예 : פ는 https://en.wikipedia.org/wiki/Pe_(Semitic_letter)#Character_encodings 에 따라 16 # D7A4를 제공해야합니다.
Const adTypeBinary = 1
Dim adoStr, bytesthroughado
Set adoStr = CreateObject("Adodb.Stream")
adoStr.Charset = "utf-8"
adoStr.Open
adoStr.WriteText labelString
adoStr.Position = 0
adoStr.Type = adTypeBinary
adoStr.Position = 3
bytesthroughado = adoStr.Read
Msgbox(LenB(bytesthroughado)) 'gives 2
adoStr.Close
Set adoStr = Nothing
MsgBox(bytesthroughado) ' gives K
참고 : AscW는 UTF-8이 아닌 유니 코드를 제공합니다.
은 bytesthroughado의 값 byte()이 적절한 방법으로 처리 할 필요가 있으므로 (제 1 출력 라인 참조) 하위 유형 :
Option Explicit
Dim ss, xx, ii, jj, char, labelString
labelString = "ařЖפ€"
ss = ""
For ii=1 To Len( labelString)
char = Mid( labelString, ii, 1)
xx = BytesThroughAdo( char)
If ss = "" Then ss = VarType(xx) & " " & TypeName( xx) & vbNewLine
ss = ss & char & vbTab
For jj=1 To LenB( xx)
ss = ss & Hex( AscB( MidB( xx, jj, 1))) & " "
Next
ss = ss & vbNewLine
Next
Wscript.Echo ss
Function BytesThroughAdo( labelChar)
Const adTypeBinary = 1 'Indicates binary data.
Const adTypeText = 2 'Default. Indicates text data.
Dim adoStream
Set adoStream = CreateObject( "Adodb.Stream")
adoStream.Charset = "utf-8"
adoStream.Open
adoStream.WriteText labelChar
adoStream.Position = 0
adoStream.Type = adTypeBinary
adoStream.Position = 3
BytesThroughAdo = adoStream.Read
adoStream.Close
Set adoStream = Nothing
End Function
출력 :
cscript D:\bat\SO\61368074q.vbs
8209 Byte() a 61 ř C5 99 Ж D0 96 פ D7 A4 € E2 82 AC
ařЖפ€UTF-8 인코더의 기능을 보여주기 위해 문자 를 사용했습니다 ( alts8.ps1PowerShell 스크립트는 다른 프로젝트에서 제공됨).
alts8.ps1 "ařЖפ€"
Ch Unicode Dec CP IME UTF-8 ? IME 0405/cs-CZ; CP852; ANSI 1250 a U+0061 97 …97… 0x61 a Latin Small Letter A ř U+0159 345 …89… 0xC599 Å� Latin Small Letter R With Caron Ж U+0416 1046 …22… 0xD096 Ð� Cyrillic Capital Letter Zhe פ U+05E4 1508 …228… 0xD7A4 פ Hebrew Letter Pe € U+20AC 8364 …172… 0xE282AC â�¬ Euro Sign
이 기사는 인터넷에서 수집됩니다. 재 인쇄 할 때 출처를 알려주십시오.
침해가 발생한 경우 연락 주시기 바랍니다[email protected] 삭제
몇 마디 만하겠습니다