在VC程序中有类似下面这个函数 CW2AEX( LPCWSTR psz, UINT nCodePage ) throw(...); 其中nCodePage参数我可以修改成54936 下面引用MSDN描述： 54936 GB18030 Windows XP and later: GB18030 Simplified Chinese (4 byte); Chinese Simplified (GB18030)
Private Sub Command1_Click() Dim MyString() As String Open "a.xml" For Binary As #1 ' 打开刚创建的文件。 ReDim MyString(LOF(1) - 1) Put #1, , MyRecord ' 读入所有字符到变量中 ......
