[Original] Chinese characters and location Code of mutual transfer

 function  Getatcode (byval  Widechar as  string  * 2 ) as     string  dim  byt (1  to  2 )  static  bytptr as   dword  bytptr  =  varptr  (byt (1))  

!   Push ESI!   Push EDI!   Lea ESI, offset Widechar!   mov edi, bytptr!   CLD! mov ecx,    1    !   Rep MOVSW!   Pop EDI! Pop esi    function="&h"&Hex$ (BYT (1)-&HA0,2) &Hex$ (BYT (2)-&HA0,2)End FunctionfunctionAtcode2char (ByValAtcode as Long) as string    DimByt1  to 2) as byte    StaticWidechar as string*2, bytptr as DWORD byt (1) =Val("&h"& Left$(Hex$ (Atcode,4),2)) + &HA0 byt (2) =Val("&h"& Right$(Hex$ (Atcode,4),2)) + &HA0 bytptr= varptr(byt (1))  

    !   Push  esi    !   Push  EDI    !   mov   esi, bytptr    !   Lea   EDI, offset widechar    !   CLD    !   mov   1    !   Rep   movsw    !   Pop   EDI    !   Pop   esi    function = widecharEnd Function

[Original] Chinese characters and location Code of mutual transfer