Vc6 in the problem of Chinese string into a single byte array-CodePudding

In 103 specifications writing software, meet to upload to ASCII8 code said part of the Chinese string,
In short, such as remote communication, translation for ASCII8 yards for D2 A3 D0 C5; Should be, with 936 tables or UTF16 code? I also thinks the concept,
Then from the "remote communication" to D2 A3 D0 C5 how to translate? Also in parsing the end, how to parse out
Find there are several solutions on the net, but he couldn't do it, is more urgent, hastened to consult everybody, for help ~ ~ ~ ~

CodePudding user response:

 Option Explicit 

Sub Main () 
Dim s As String 
Dim (a) As Byte 
Dim As Long I 

S="remote communication" 

'transformation only need this phrase' 
'if only in the Chinese system, can be omitted parameters & amp; H804 '
A=StrConv (s, vbFromUnicode, & amp; H804) "Chinese (PRC) 

For I=0 To UBound (a) 
If I & lt; & gt; 0 Then the Debug. Print "-"; 
The Debug. Print Right $(" 0 "& amp; Hex (a (I)), 2); 
Next 
The Debug. Print 
End Sub

 D2 - A3 - do - C5

CodePudding user response:

This is the gb code,

Asc out to also go, if you want to take the unicode, want to use ascw