
*****************************************************
//
//  GB2312&BIG5 ת  1999/08/19
//
//  :¹ǿ  alone@telekbird.com.cn
//  ԭݹ  http://www.quanqiu.com/vb
//
//  ɵĿʹñ
//  ѳеBUG
//
*****************************************************



 ģbasBIG2GB.basеĺ˵

1. Sub InitDATA
ʼ
״εGB2BIGBIG2GB֮ǰCall InitDATA
BIG5Order()дBIG5뺺ֶӦGB2312ĵ ANSI ַ롣
GBOrder()дGB2312뺺ֶӦBIG5ĵ ANSI ַ롣
ʹChr(ANSI ַ)ɵõӦĺ

2. Function GB2BIG(strGB As String) As String
GB2312 -> BIG5

3. Function BIG2GB(strBIG As String) As String
BIG5 -> GB2312

4. Function CheckBIG(strSource As String) As Boolean
жһǷBIG5뺺,Զʶ
TrueʾBIG5
FalseʾBIG5,һΪGB


 ԴļɷResourceĿ¼µBuildDATA.vbpĿ

Resource\BIG5.TXTResource\GB.TXTзֱϢ
Resource\BIG5.DATResource\GB.DATٵɿ
ʹԴ༭(Resource Editor)½һԴ
(INS.RES),ԶԴֱΪBIG5.DATGB.DAT 
е,ԴļbasBIG2GB.basĹ


 ע⣺ResourceĿ¼µBuildDATA.vbp"Microsoft
        Scripting Runtime", Ҫ밲װVB6.0ϰ汾

 ֮ϵ




                             ʱ: 99-8-19 9:59