No2:luacom中文内容输出BUG及修正

经检查,luacom没有问题，是lc转换的代码有问题，没有注意到lua_tolstring都会包含一个结束符造成多了一个空格，导致认为是luacom少了一个空格（加起来2个空格刚好是2个字符的结束符），思路完全错误，下文作废。

 

使用cell.Value2输出中文内容时总是乱码。怀疑是utf-8的原因，转换后结果仍然是乱码。自己再写个转换的再测试，依然是乱码，莫非有BUG！？

下个LUACOM的源码，查看函数tLuaCOMTypeHandler::com2lua和tStringBuffer tUtil::bstr2string。整个过程看起来都OK，但再测试发现，结果字符串少了一个bytes。

    在tLuaCOMTypeHandler::com2luaVT_BSTR分支中返回结果恰好是减去1，将其修改

lua_pushlstring(L, str, str.getSize()-1);修改为lua_pushlstring(L, str, str.getSize());

    重新编译LUACOM，再看cell.Value2输出结果，终于正确了。由于没进行全面测试，不知道其此修改会不会引入错误。资源里有个已经编译好的。

--lc是从网上抄来的unicode utf-8 ansi相互转换的函数

 

  1. package.cpath=[[C:\Program Files\Lua\5.1\clibs\?.dll;d:\loonlib\sample\lc\?.dll]]  
  2. require "luacom"  
  3. require "lc"  
  4.   
  5. function print_table(t) for k,v in pairs(t) do print(k,v) end end  
  6. excel = luacom.CreateObject("Excel.Application")  
  7. excel.Visible = true  
  8. excel.Workbooks:Add();  
  9. --luacom.ViewTypeLib(excel);  
  10. sheet=excel.Sheets(1);  
  11. local r=sheet:Range("E6");  
  12.   
  13. local s = "严中";  
  14. ws, s2=lc.a2w(s); --0x25 0x4e 0x2d 0x4e 0x00 0x00 6  
  15. print("unicode : " .. lc.bstr(ws, s2));  
  16. us, s2=lc.w2u(ws, s2); --0xe4 0xb8 0xa5 0xe4 0xb8 0xad 0x00 0x00 8  
  17. print("utf8 : " .. lc.bstr(us, s2));  
  18.   
  19. r.Value2=us;  
  20. ws, s2=lc.u2w(r.Value2, s2);  
  21. print("unicode : " .. lc.bstr(ws, s2));  
  22. as, s2=lc.w2a(ws, s2);  
  23. print("ansi : " .. lc.bstr(as, s2));  
  24. print(as);  
 

 

lc.def

 

[ruby] view plain copy
 
 print?
  1. LIBRARY "lc"  
  2.   
  3. EXPORTS  
  4.     luaopen_lc  
 



 

lc.h

 

[ruby] view plain copy
 
 print?
  1. extern "C" {  
  2. #include "lua.h"  
  3. #include "lualib.h"   
  4. #include "lauxlib.h"  
  5. int luaopen_local(lua_State* L);  
  6. }  
  7.   
  8. #include <locale.h>  
  9. #include <cstring>  
  10. #ifdef WIN32  
  11. #include <windows.h>  
  12. #include <winnls.h>  
  13. #else  
  14. #include <cstdlib>  
  15. #endif  
  16.   
  17.   
  18. #define LN_lc "lc"  
  19. int lua_a2w(lua_State* L);  
  20. int lua_u2w(lua_State* L);  
  21. int lua_w2a(lua_State* L);  
  22. int lua_w2u(lua_State* L);  
  23. int lua_u2a(lua_State* L);  
  24. int lua_a2u(lua_State* L);  
  25. int lua_bstr(lua_State* L);  
  26.   
  27. int lua_help(lua_State* L);  
  28. wchar_t* mb2wc(const char* mbstr, int& s2, int cp);  
  29. char* wc2mb(const wchar_t* wcstr, int& s2, int cp);  
 



 

lc.cpp

 

[ruby] view plain copy
 
 print?
  1. #include "lc.h"  
  2. //g++ -shared -s -o lc.dll -O3 lc.cpp lc.def -llua5.1 -DWIN32 -I%loon%/lua/src -L%loon%/lib/gcc_dll/debug -Wl,--out-implib,liblc.a   
  3.   
  4. int lua_bstr(lua_State* L) {  
  5.     const char* s = luaL_optstring(L, 1, "");  
  6.     int len = luaL_optnumber(L, 2, 0);  
  7.     if (strcmp(s, "")==0 || 0==len) {  
  8.         lua_pushstring(L, s);  
  9.     } else {  
  10.         luaL_Buffer b;  
  11.         luaL_buffinit(L, &b);  
  12.         char* byte = (char*)malloc(64);  
  13.         for (int i=0; i<len; ++i) {  
  14.             sprintf(byte, "0x%02x ", (unsigned char)*s++);  
  15.             luaL_addstring(&b, byte);  
  16.         }  
  17.         free(byte);  
  18.         luaL_pushresult(&b);  
  19.     }  
  20.     return 1;  
  21. }  
  22.   
  23. int lua_u2w(lua_State* L) {  
  24.     int result = 0;  
  25.     size_t len = 0;  
  26.     const char* mbstr = lua_tolstring(L, 1, &len);  
  27.     if (mbstr && len>0) {  
  28.         int s2 = 0;  
  29.         wchar_t* wcstr = mb2wc(mbstr, s2, CP_UTF8);  
  30.         if (wcstr) {  
  31.             lua_pushlstring(L, (const char*)wcstr, s2);  
  32.             lua_pushnumber(L, s2);  
  33.             delete[] wcstr;  
  34.             result = 2;  
  35.         }  
  36.     }  
  37.     return result;  
  38. }  
  39.   
  40. int lua_a2w(lua_State* L) {  
  41.     int result = 0;  
  42.     size_t len = 0;  
  43.     const char* mbstr = lua_tolstring(L, 1, &len);  
  44.     if (mbstr && len>0) {  
  45.         int s2 = 0;  
  46.         wchar_t* wcstr = mb2wc(mbstr, s2, CP_ACP);  
  47.         if (wcstr) {  
  48.             lua_pushlstring(L, (const char*)wcstr, s2);  
  49.             lua_pushnumber(L, s2);  
  50.             delete[] wcstr;  
  51.             result = 2;  
  52.         }  
  53.     }  
  54.     return result;  
  55. }  
  56.   
  57. int lua_w2a(lua_State* L) {  
  58.     int result = 0;  
  59.     size_t len = 0;  
  60.     const char* wcstr = lua_tolstring(L, 1, &len);  
  61.     if (wcstr && len>0) {  
  62.         int s2 = 0;  
  63.         char* mbstr = wc2mb((wchar_t*)wcstr, s2, CP_ACP);  
  64.         if (mbstr) {  
  65.             lua_pushlstring(L, mbstr, s2);  
  66.             lua_pushnumber(L, s2);  
  67.             delete[] mbstr;  
  68.             result = 2;  
  69.         }  
  70.     }  
  71.     return result;  
  72. }  
  73.   
  74. int lua_w2u(lua_State* L) {  
  75.     int result = 0;  
  76.     size_t len = 0;  
  77.     const char* wcstr = lua_tolstring(L, 1, &len);  
  78.     if (wcstr && len>0) {  
  79.         int s2 = 0;  
  80.         char* mbstr = wc2mb((wchar_t*)wcstr, s2, CP_UTF8);  
  81.         if (mbstr) {  
  82.             lua_pushlstring(L, mbstr, s2);  
  83.             lua_pushnumber(L, s2);  
  84.             delete[] mbstr;  
  85.             result = 2;  
  86.         }  
  87.     }  
  88.     return result;  
  89. }  
  90.   
  91. int lua_u2a(lua_State* L) {  
  92.     int result = 0;  
  93.     size_t len = 0;  
  94.     const char* mbstr = lua_tolstring(L, 1, &len);  
  95.     if (mbstr && len>0) {  
  96.         int s2 = 0;  
  97.         wchar_t* wcstr = mb2wc(mbstr, s2, CP_UTF8);  
  98.         if (wcstr) {  
  99.             char* nmbstr = wc2mb(wcstr, s2, CP_ACP);  
  100.             if (nmbstr) {  
  101.                 lua_pushlstring(L, nmbstr, s2);  
  102.                 lua_pushnumber(L, s2);  
  103.                 result = 2;  
  104.                 delete[] nmbstr;  
  105.             }  
  106.             delete[] wcstr;  
  107.         }  
  108.     }  
  109.     return result;  
  110. }  
  111.   
  112. int lua_a2u(lua_State* L) {  
  113.     int result = 0;  
  114.     size_t len = 0;  
  115.     const char* mbstr = lua_tolstring(L, 1, &len);  
  116.     if (mbstr && len>0) {  
  117.         int s2 = 0;  
  118.         wchar_t* wcstr = mb2wc(mbstr, s2, CP_ACP);  
  119.         if (wcstr) {  
  120.             char* nmbstr = wc2mb(wcstr, s2, CP_UTF8);  
  121.             if (nmbstr) {  
  122.                 lua_pushlstring(L, nmbstr, s2);  
  123.                 lua_pushnumber(L, s2);  
  124.                 result = 2;  
  125.                 delete[] nmbstr;  
  126.             }  
  127.             delete[] wcstr;  
  128.         }  
  129.     }  
  130.     return result;  
  131. }  
  132.   
  133. wchar_t* mb2wc(const char* mbstr, int& s2, int cp) {  
  134.     wchar_t* wcstr = NULL;  
  135. #ifdef WIN32  
  136.     int size = MultiByteToWideChar(cp, 0, mbstr, -1, NULL, 0);  
  137. #else  
  138.     size_t size = mbstowcs(NULL, mbstr, 0);  
  139. #endif  
  140.     wcstr = new wchar_t[size];  
  141.     if (wcstr) {  
  142.         memset(wcstr, 0, size * sizeof(wchar_t));  
  143. #ifdef WIN32  
  144.         int ret = MultiByteToWideChar(cp, 0, mbstr, -1, wcstr, size);  
  145.         if (ret == 0) { // MultiByteToWideChar returns 0 if it does not succeed.  
  146. #else  
  147.         size_t ret = mbstowcs(wcstr, mbstr, size+1);  
  148.         if (ret == -1) {  
  149. #endif  
  150.             delete[] wcstr;  
  151.             wcstr = NULL;  
  152.         }  
  153.         s2 = 2*size;  
  154.     }  
  155.     return wcstr;  
  156. }  
  157.   
  158. char* wc2mb(const wchar_t* wcstr, int& s2, int cp) {  
  159.     char* mbstr = NULL;  
  160. #ifdef WIN32  
  161.     int size = WideCharToMultiByte(cp, 0, wcstr, -1, NULL, 0, NULL, NULL);  
  162. #else  
  163.     size_t size = wcstombs(NULL, wcstr, 0);  
  164. #endif  
  165.     mbstr = new char[size];  
  166.     if (mbstr) {  
  167.         memset(mbstr, 0, size * sizeof(char));  
  168. #ifdef WIN32  
  169.         int ret = WideCharToMultiByte(cp, 0, wcstr, -1, mbstr, size, NULL, NULL);  
  170.         if (ret == 0) { // MultiByteToWideChar returns 0 if it does not succeed.  
  171. #else  
  172.         size_t ret = wcstombs(mbstr, wcstr, size+1);  
  173.         if (ret == -1) {  
  174. #endif  
  175.             delete[] mbstr;  
  176.             mbstr = NULL;  
  177.         }  
  178.         s2 = size;  
  179.     }  
  180.     return mbstr;  
  181. }  
  182.   
  183. int lua_help(lua_State* L) {  
  184.     const char* s=   
  185.         "Simple Characters Transformation\n"  
  186.         "  a2w(ansi to unicode)\n"  
  187.         "  u2w(utf8 to unicode)\n"  
  188.         "  w2a(unicode to ansi)\n"  
  189.         "  w2u(unicode to utf8)\n"  
  190.         "  u2a(utf8 to ansi)\n"  
  191.         "  a2u(ansi to utf8)\n"  
  192.         "  bstr(bytes of str)\n"  
  193.         "  help(show this)\n\n"  
  194.         "  example :\n"  
  195.         "    local s = \"I like lua\"\n"  
  196.         "    print(lc.bstr(s, string.len(s)+1))\n"  
  197.         "    local ws, s2 = lc.a2w(s)\n"  
  198.         "wunoman@qq.com 2012/03/06\n"  
  199.         ;  
  200.     lua_pushstring(L, s);  
  201.   
  202.     return 1;  
  203. }  
  204.   
  205. luaL_reg lrg_lc[] = {  
  206.     {"a2w", lua_a2w},  
  207.     {"u2w", lua_u2w},  
  208.     {"w2a", lua_w2a},  
  209.     {"w2u", lua_w2u},  
  210.     {"u2a", lua_u2a},  
  211.     {"a2u", lua_a2u},  
  212.     {"bstr", lua_bstr},  
  213.     {"help", lua_help},  
  214.     {NULL, NULL}  
  215. };  
  216.   
  217. extern "C" int luaopen_lc(lua_State* L) {  
  218.     luaL_register(L, LN_lc, lrg_lc);  
  219.     return 1;  
  220. }  

 经检查,luacom没有问题，是lc转换的代码有问题，没有注意到lua_tolstring都会包含一个结束符造成多了一个空格，导致认为是luacom少了一个空格（加起来2个空格刚好是2个字符的结束符），思路完全错误，下文作废。

 

使用cell.Value2输出中文内容时总是乱码。怀疑是utf-8的原因，转换后结果仍然是乱码。自己再写个转换的再测试，依然是乱码，莫非有BUG！？

下个LUACOM的源码，查看函数tLuaCOMTypeHandler::com2lua和tStringBuffer tUtil::bstr2string。整个过程看起来都OK，但再测试发现，结果字符串少了一个bytes。

    在tLuaCOMTypeHandler::com2luaVT_BSTR分支中返回结果恰好是减去1，将其修改

lua_pushlstring(L, str, str.getSize()-1);修改为lua_pushlstring(L, str, str.getSize());

    重新编译LUACOM，再看cell.Value2输出结果，终于正确了。由于没进行全面测试，不知道其此修改会不会引入错误。资源里有个已经编译好的。

--lc是从网上抄来的unicode utf-8 ansi相互转换的函数

 

[cpp] view plain copy
 
 print?
  1. package.cpath=[[C:\Program Files\Lua\5.1\clibs\?.dll;d:\loonlib\sample\lc\?.dll]]  
  2. require "luacom"  
  3. require "lc"  
  4.   
  5. function print_table(t) for k,v in pairs(t) do print(k,v) end end  
  6. excel = luacom.CreateObject("Excel.Application")  
  7. excel.Visible = true  
  8. excel.Workbooks:Add();  
  9. --luacom.ViewTypeLib(excel);  
  10. sheet=excel.Sheets(1);  
  11. local r=sheet:Range("E6");  
  12.   
  13. local s = "严中";  
  14. ws, s2=lc.a2w(s); --0x25 0x4e 0x2d 0x4e 0x00 0x00 6  
  15. print("unicode : " .. lc.bstr(ws, s2));  
  16. us, s2=lc.w2u(ws, s2); --0xe4 0xb8 0xa5 0xe4 0xb8 0xad 0x00 0x00 8  
  17. print("utf8 : " .. lc.bstr(us, s2));  
  18.   
  19. r.Value2=us;  
  20. ws, s2=lc.u2w(r.Value2, s2);  
  21. print("unicode : " .. lc.bstr(ws, s2));  
  22. as, s2=lc.w2a(ws, s2);  
  23. print("ansi : " .. lc.bstr(as, s2));  
  24. print(as);  

 

lc.def

 

[ruby] view plain copy
 
 print?
  1. LIBRARY "lc"  
  2.   
  3. EXPORTS  
  4.     luaopen_lc  



 

lc.h

 

[ruby] view plain copy
 
 print?
  1. extern "C" {  
  2. #include "lua.h"  
  3. #include "lualib.h"   
  4. #include "lauxlib.h"  
  5. int luaopen_local(lua_State* L);  
  6. }  
  7.   
  8. #include <locale.h>  
  9. #include <cstring>  
  10. #ifdef WIN32  
  11. #include <windows.h>  
  12. #include <winnls.h>  
  13. #else  
  14. #include <cstdlib>  
  15. #endif  
  16.   
  17.   
  18. #define LN_lc "lc"  
  19. int lua_a2w(lua_State* L);  
  20. int lua_u2w(lua_State* L);  
  21. int lua_w2a(lua_State* L);  
  22. int lua_w2u(lua_State* L);  
  23. int lua_u2a(lua_State* L);  
  24. int lua_a2u(lua_State* L);  
  25. int lua_bstr(lua_State* L);  
  26.   
  27. int lua_help(lua_State* L);  
  28. wchar_t* mb2wc(const char* mbstr, int& s2, int cp);  
  29. char* wc2mb(const wchar_t* wcstr, int& s2, int cp);  



 

lc.cpp

 

[ruby] view plain copy
 
 print?
  1. #include "lc.h"  
  2. //g++ -shared -s -o lc.dll -O3 lc.cpp lc.def -llua5.1 -DWIN32 -I%loon%/lua/src -L%loon%/lib/gcc_dll/debug -Wl,--out-implib,liblc.a   
  3.   
  4. int lua_bstr(lua_State* L) {  
  5.     const char* s = luaL_optstring(L, 1, "");  
  6.     int len = luaL_optnumber(L, 2, 0);  
  7.     if (strcmp(s, "")==0 || 0==len) {  
  8.         lua_pushstring(L, s);  
  9.     } else {  
  10.         luaL_Buffer b;  
  11.         luaL_buffinit(L, &b);  
  12.         char* byte = (char*)malloc(64);  
  13.         for (int i=0; i<len; ++i) {  
  14.             sprintf(byte, "0x%02x ", (unsigned char)*s++);  
  15.             luaL_addstring(&b, byte);  
  16.         }  
  17.         free(byte);  
  18.         luaL_pushresult(&b);  
  19.     }  
  20.     return 1;  
  21. }  
  22.   
  23. int lua_u2w(lua_State* L) {  
  24.     int result = 0;  
  25.     size_t len = 0;  
  26.     const char* mbstr = lua_tolstring(L, 1, &len);  
  27.     if (mbstr && len>0) {  
  28.         int s2 = 0;  
  29.         wchar_t* wcstr = mb2wc(mbstr, s2, CP_UTF8);  
  30.         if (wcstr) {  
  31.             lua_pushlstring(L, (const char*)wcstr, s2);  
  32.             lua_pushnumber(L, s2);  
  33.             delete[] wcstr;  
  34.             result = 2;  
  35.         }  
  36.     }  
  37.     return result;  
  38. }  
  39.   
  40. int lua_a2w(lua_State* L) {  
  41.     int result = 0;  
  42.     size_t len = 0;  
  43.     const char* mbstr = lua_tolstring(L, 1, &len);  
  44.     if (mbstr && len>0) {  
  45.         int s2 = 0;  
  46.         wchar_t* wcstr = mb2wc(mbstr, s2, CP_ACP);  
  47.         if (wcstr) {  
  48.             lua_pushlstring(L, (const char*)wcstr, s2);  
  49.             lua_pushnumber(L, s2);  
  50.             delete[] wcstr;  
  51.             result = 2;  
  52.         }  
  53.     }  
  54.     return result;  
  55. }  
  56.   
  57. int lua_w2a(lua_State* L) {  
  58.     int result = 0;  
  59.     size_t len = 0;  
  60.     const char* wcstr = lua_tolstring(L, 1, &len);  
  61.     if (wcstr && len>0) {  
  62.         int s2 = 0;  
  63.         char* mbstr = wc2mb((wchar_t*)wcstr, s2, CP_ACP);  
  64.         if (mbstr) {  
  65.             lua_pushlstring(L, mbstr, s2);  
  66.             lua_pushnumber(L, s2);  
  67.             delete[] mbstr;  
  68.             result = 2;  
  69.         }  
  70.     }  
  71.     return result;  
  72. }  
  73.   
  74. int lua_w2u(lua_State* L) {  
  75.     int result = 0;  
  76.     size_t len = 0;  
  77.     const char* wcstr = lua_tolstring(L, 1, &len);  
  78.     if (wcstr && len>0) {  
  79.         int s2 = 0;  
  80.         char* mbstr = wc2mb((wchar_t*)wcstr, s2, CP_UTF8);  
  81.         if (mbstr) {  
  82.             lua_pushlstring(L, mbstr, s2);  
  83.             lua_pushnumber(L, s2);  
  84.             delete[] mbstr;  
  85.             result = 2;  
  86.         }  
  87.     }  
  88.     return result;  
  89. }  
  90.   
  91. int lua_u2a(lua_State* L) {  
  92.     int result = 0;  
  93.     size_t len = 0;  
  94.     const char* mbstr = lua_tolstring(L, 1, &len);  
  95.     if (mbstr && len>0) {  
  96.         int s2 = 0;  
  97.         wchar_t* wcstr = mb2wc(mbstr, s2, CP_UTF8);  
  98.         if (wcstr) {  
  99.             char* nmbstr = wc2mb(wcstr, s2, CP_ACP);  
  100.             if (nmbstr) {  
  101.                 lua_pushlstring(L, nmbstr, s2);  
  102.                 lua_pushnumber(L, s2);  
  103.                 result = 2;  
  104.                 delete[] nmbstr;  
  105.             }  
  106.             delete[] wcstr;  
  107.         }  
  108.     }  
  109.     return result;  
  110. }  
  111.   
  112. int lua_a2u(lua_State* L) {  
  113.     int result = 0;  
  114.     size_t len = 0;  
  115.     const char* mbstr = lua_tolstring(L, 1, &len);  
  116.     if (mbstr && len>0) {  
  117.         int s2 = 0;  
  118.         wchar_t* wcstr = mb2wc(mbstr, s2, CP_ACP);  
  119.         if (wcstr) {  
  120.             char* nmbstr = wc2mb(wcstr, s2, CP_UTF8);  
  121.             if (nmbstr) {  
  122.                 lua_pushlstring(L, nmbstr, s2);  
  123.                 lua_pushnumber(L, s2);  
  124.                 result = 2;  
  125.                 delete[] nmbstr;  
  126.             }  
  127.             delete[] wcstr;  
  128.         }  
  129.     }  
  130.     return result;  
  131. }  
  132.   
  133. wchar_t* mb2wc(const char* mbstr, int& s2, int cp) {  
  134.     wchar_t* wcstr = NULL;  
  135. #ifdef WIN32  
  136.     int size = MultiByteToWideChar(cp, 0, mbstr, -1, NULL, 0);  
  137. #else  
  138.     size_t size = mbstowcs(NULL, mbstr, 0);  
  139. #endif  
  140.     wcstr = new wchar_t[size];  
  141.     if (wcstr) {  
  142.         memset(wcstr, 0, size * sizeof(wchar_t));  
  143. #ifdef WIN32  
  144.         int ret = MultiByteToWideChar(cp, 0, mbstr, -1, wcstr, size);  
  145.         if (ret == 0) { // MultiByteToWideChar returns 0 if it does not succeed.  
  146. #else  
  147.         size_t ret = mbstowcs(wcstr, mbstr, size+1);  
  148.         if (ret == -1) {  
  149. #endif  
  150.             delete[] wcstr;  
  151.             wcstr = NULL;  
  152.         }  
  153.         s2 = 2*size;  
  154.     }  
  155.     return wcstr;  
  156. }  
  157.   
  158. char* wc2mb(const wchar_t* wcstr, int& s2, int cp) {  
  159.     char* mbstr = NULL;  
  160. #ifdef WIN32  
  161.     int size = WideCharToMultiByte(cp, 0, wcstr, -1, NULL, 0, NULL, NULL);  
  162. #else  
  163.     size_t size = wcstombs(NULL, wcstr, 0);  
  164. #endif  
  165.     mbstr = new char[size];  
  166.     if (mbstr) {  
  167.         memset(mbstr, 0, size * sizeof(char));  
  168. #ifdef WIN32  
  169.         int ret = WideCharToMultiByte(cp, 0, wcstr, -1, mbstr, size, NULL, NULL);  
  170.         if (ret == 0) { // MultiByteToWideChar returns 0 if it does not succeed.  
  171. #else  
  172.         size_t ret = wcstombs(mbstr, wcstr, size+1);  
  173.         if (ret == -1) {  
  174. #endif  
  175.             delete[] mbstr;  
  176.             mbstr = NULL;  
  177.         }  
  178.         s2 = size;  
  179.     }  
  180.     return mbstr;  
  181. }  
  182.   
  183. int lua_help(lua_State* L) {  
  184.     const char* s=   
  185.         "Simple Characters Transformation\n"  
  186.         "  a2w(ansi to unicode)\n"  
  187.         "  u2w(utf8 to unicode)\n"  
  188.         "  w2a(unicode to ansi)\n"  
  189.         "  w2u(unicode to utf8)\n"  
  190.         "  u2a(utf8 to ansi)\n"  
  191.         "  a2u(ansi to utf8)\n"  
  192.         "  bstr(bytes of str)\n"  
  193.         "  help(show this)\n\n"  
  194.         "  example :\n"  
  195.         "    local s = \"I like lua\"\n"  
  196.         "    print(lc.bstr(s, string.len(s)+1))\n"  
  197.         "    local ws, s2 = lc.a2w(s)\n"  
  198.         "wunoman@qq.com 2012/03/06\n"  
  199.         ;  
  200.     lua_pushstring(L, s);  
  201.   
  202.     return 1;  
  203. }  
  204.   
  205. luaL_reg lrg_lc[] = {  
  206.     {"a2w", lua_a2w},  
  207.     {"u2w", lua_u2w},  
  208.     {"w2a", lua_w2a},  
  209.     {"w2u", lua_w2u},  
  210.     {"u2a", lua_u2a},  
  211.     {"a2u", lua_a2u},  
  212.     {"bstr", lua_bstr},  
  213.     {"help", lua_help},  
  214.     {NULL, NULL}  
  215. };  
  216.   
  217. extern "C" int luaopen_lc(lua_State* L) {  
  218.     luaL_register(L, LN_lc, lrg_lc);  
  219.     return 1;  
  220. }  
posted @ 2017-03-02 16:05  coding king  阅读(881)  评论(0)  编辑  收藏  举报