Programming language: vb6
To request to the data to a web site to send the string to GB2312 or GB18030 coding, how to convert strings operator to the code, please?

CodePudding user response:

Don't turn, under normal circumstances is gb2312 encoding

CodePudding user response:

 Private Sub Command1_Click () 
Dim s As String 
Dim As Long L 
Dim As Long I 
S="A1" 
L=LenB (StrConv (s, vbFromUnicode)) 
For I=1 To L 
The Debug. Print Right (" 0 "+ Hex (AscB (MidB (StrConv (s, vbFromUnicode), I, 1))), 2) 
Next 
End Sub 
'B0 
A1 
 '41 
 '31 
 '