开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > Internet/网络编程 > Telnet服务器 > 查看源码
InsertExcel.cpp
资源名称：telnet-2.1b2-source.rar　[点击查看]
上传用户：haiweijt
上传日期：2018-02-23
资源大小：8195k
文件大小：9k
源码类别：

Telnet服务器

开发平台：

Visual C++

InsertExcel.cpp：源码内容
  1. #include "InsertExcel.h"
  2. #include <stdlib.h>
  3. #include <stdio.h>
  4. #include <string.h>
  5. #include <ole2.h>
  6. #ifdef UNICODE 
  7. #define _T(x) L##x 
  8. #else 
  9. #define _T(x) x 
  10. #endif 
  11. InsertExcel::InsertExcel()
  12. {
  13. m_Offset=0;
  14. m_str=0;
  15.  m_zhi=0;//判断执行了命令
  16.  m_zhizhen=0;//用于判断一条记录占多行
  17. filename.vt = VT_BSTR;
  18. filename.bstrVal = SysAllocString(L"c:\test.xls");
  19. flag=1;
  20. m_flag=10;
  21. for(int k=0;k<420;k++)
  22. { for(int t=0;t<6;t++)
  23. {
  24. strcpy(v_str[k][t]," ");
  25. }
  27. }
  28. }
  29. InsertExcel::~InsertExcel()
  30. {
  31. //pXlRange->Release();
  32. AutoWrap(DISPATCH_METHOD, NULL, pXlSheet, L"SaveAs", 1, filename);
  33. pXlSheet->Release();
  34. pXlBook->Release();
  35. pXlBooks->Release();
  36. pXlApp->Release();
  37. VariantClear(&arr);
  39. // 注销COM库
  40. CoUninitialize();
  43. }
  44. void InsertExcel::Insert(char* buf, int size)
  45. {
  46. if (size == 0)
  47. return;
  48. unsigned char tmpc = *(unsigned char *)buf;
  49. switch(tmpc)
  50. {
  51. case 8:
  52. if (m_Offset > 0)
  53. m_Offset --;
  54. break;
  55. case 13:
  56. m_Buffer[m_Offset++] = 'x0d';
  57. break;
  58. case 10:
  59. m_Buffer[m_Offset++] = 'x0a';
  60. m_Buffer[m_Offset] = '';
  61. InsertInto(m_Buffer);
  62. //dwStr(m_Buffer);
  63. strcpy(m_Buffer,"");
  64. m_Offset = 0;
  65. break;
  66. default:
  67. m_Buffer[m_Offset++] = buf[0];
  68. break;
  69. }
  70. Insert(buf+1, size-1);
  71. }
  72. int InsertExcel::InsertInto(char* str)
  73. {
  74. char ** p;
  75. if(flag==1)
  76. {
  78. // 初始化COM库
  79. CoInitialize(NULL);
  81. // 获得EXCEL的CLSID
  82. CLSID clsid;
  83. HRESULT hr = CLSIDFromProgID(L"Excel.Application", &clsid);
  85. if(FAILED(hr)) {
  86.    ::MessageBox(NULL, _T("CLSIDFromProgID() 函数调用失败！"),_T("错误"), 0x10010);
  87.   return -1;
  88. }
  90. // 创建实例
  91. //IDispatch *pXlApp;
  92. hr = CoCreateInstance(clsid, NULL, CLSCTX_LOCAL_SERVER, IID_IDispatch, (void **)&pXlApp);
  93. if(FAILED(hr)) {
  94.    ::MessageBox(NULL, _T("请检查是否已经安装EXCEL！"), _T("错误"), 0x10010);
  95.   return -2;
  96. }
  98. // 显示，将Application.Visible属性置1
  99. VARIANT x;
  100. x.vt = VT_I4;
  101. x.lVal = 1;
  102. AutoWrap(DISPATCH_PROPERTYPUT, NULL, pXlApp, L"Visible", 1, x);
  104. // 获取Workbooks集合
  105. //IDispatch *pXlBooks;
  106. {
  107. VARIANT result;
  108. VariantInit(&result);
  109. AutoWrap(DISPATCH_PROPERTYGET, &result, pXlApp, L"Workbooks", 0);
  110. pXlBooks = result.pdispVal;
  111. }
  113. // 调用Workbooks.Add()方法，创建一个新的Workbook
  114. //IDispatch *pXlBook;
  115. {
  116. VARIANT result;
  117. VariantInit(&result);
  118. AutoWrap(DISPATCH_PROPERTYGET, &result, pXlBooks, L"Add", 0);
  119. pXlBook = result.pdispVal;
  120. }
  122. // 从Application.ActiveSheet属性获得Worksheet对象
  123. //IDispatch *pXlSheet;
  124. {
  125. VARIANT result;
  126. VariantInit(&result);
  127. AutoWrap(DISPATCH_PROPERTYGET, &result, pXlApp, L"ActiveSheet", 0);
  128. pXlSheet = result.pdispVal;
  129. }
  130. flag=0;
  131. }
  132. // 创建一个15x15的数组，用于填充表格
  133. //VARIANT arr;
  134. WCHAR szTmp[170];
  135. arr.vt = VT_ARRAY | VT_VARIANT;
  136. SAFEARRAYBOUND sab[2];
  137. sab[0].lLbound = 1; sab[0].cElements = 420;
  138. sab[1].lLbound = 1; sab[1].cElements = 15;
  139. arr.parray = SafeArrayCreate(VT_VARIANT, 2, sab);
  141. if(str[0]==13)
  142. {
  143. return 1;
  144. }else{
  145. p=dwStr(str);
  146. if((str[0]=='T')&&(str[9]=='h')&&(str[4]=='S'))//每次执行一个命令，Excel会空
  147. { //出一行显示(“>show ip int br”)所执行的命令。
  148. char Field[30];
  149. int ps=0;
  150. int fi=10;
  151. while(str[fi]!=13)
  152. {
  153. Field[ps++]=str[fi++];
  154. }
  155. Field[ps]='';
  156. strcpy(v_str[m_str][0],Field);
  157. ps=1;
  158. while(ps<6)
  159. {
  160. strcpy(v_str[m_str][ps]," ");
  161. ps++;
  162. }
  163. }else
  164. {
  165. int pt=0;
  166. int pflag=0;
  167. while(pt<6)
  168. {
  169. if(strcmp(p[pt],"")==0)
  170. pflag++;
  171. pt++;
  172. }
  173. if(pflag==6) return 1;
  175. for(int ms=0;ms<6;ms++)
  176. {
  177. strcpy(v_str[m_str][ms],p[ms]);
  178. }
  179. }
  180. m_str++;
  181. for(int i=1; i<=420; i++) {
  182.   for(int j=1; j<=6; j++) {
  183. VARIANT tmp;
  184. tmp.vt = VT_BSTR;
  185. wsprintfW(szTmp,L"%S",v_str[i-1][j-1]);
  186. tmp.bstrVal = SysAllocString(szTmp);
  187.    // 添加数据到数组中
  188. long indices[] = {i,j};
  189. SafeArrayPutElement(arr.parray, indices, (void *)&tmp);
  190.   }
  191. }
  192. }
  194. IDispatch *pXlRange;
  195. {
  196. VARIANT parm;
  197. parm.vt = VT_BSTR;
  198.   parm.bstrVal = ::SysAllocString(L"A1:O400");//L"A1:O1"
  199. VARIANT result;
  200. VariantInit(&result);
  201. AutoWrap(DISPATCH_PROPERTYGET, &result, pXlSheet, L"Range", 1, parm);
  202. VariantClear(&parm);
  203. pXlRange = result.pdispVal;
  204. }
  206. //::MessageBox(NULL,_T("我要填充数据了哈！"), _T("通知"), 0x10000);
  207. // 用我们的数组填充这个Range
  208. AutoWrap(DISPATCH_PROPERTYPUT, NULL, pXlRange, L"Value", 1, arr);
  209. pXlRange->Release();
  210. return 1;
  212. }
  213. char** InsertExcel::dwStr(char *str)
  214. {
  216. char Fie[6][300]={{""}};
  217. char ff[6][200]={{""}};
  218. //char Fe[6][200]={{""}};
  219. char **Fe;
  220. char Do[50]; //一个字段还有多个分离的字符串
  221. char str1[500]="";
  222.     char path[256];
  223. char cmd[100];
  224. int zd; //标记字段起始点
  225. int m_duozd=0; //标记遇到上条记录余下的记录
  228. //一行一行的写入硬盘文件中
  229. FILE* fp = fopen("c:\Telnet-xls.txt","at");
  230. fprintf(fp, "%s",str);
  231. fclose(fp);
  232.     int i=0;
  233.     int j=0;
  234. Fe=(char **)malloc(6*sizeof(char *)); //首先动态构建第一维
  235. for(int t=0;t<6;t++)
  236. {
  237. *(Fe+t)=ff[t];
  238. }
  240. while((str[i]!=' ')&&(str[i]!='>')&&(str[i]!=13)&&(str[i]!='#'))
  241. {
  242. cmd[j++]=str[i++];
  243. }
  244. cmd[j]=str[i];
  245. cmd[j+1]='';
  246. int k=1;
  247. while(cmd[k]!='')
  248. {
  249. if(((cmd[k]=='>')||(cmd[k]=='#'))&&(cmd[k+1]=='')) //strcmp(cmd,"TCS_Switch")==0找到根标记是以'#'或'>'结尾的
  250. {
  251. //判断命令属于配置文件中的第几条，并用m_flag标注
  252. m_flag=1;
  253. m_zhi=1;
  254. for(int fo=0;fo<6;fo++)
  255. {
  256. ziduan[fo]=0;
  257. }
  258. return Fe;
  259. }
  260. k++;
  261. }
  262. i=0;j=0;
  263. while((i<strlen(str))&&(m_flag!=10)&&(str[i]!=13))
  264. {
  265.   if((str[i]!=''))//(str[i]!=' ')&&
  266. {   
  267. while((str[i]=='-')&&(str[i+1]=='-'))
  268. return Fe;
  269.  zd=i;
  270. char zid[20]="";
  272. for(int c=0;c<6;c++)
  273. {
  274. j=0;
  275. if(ziduan[c]==0){
  276. while((str[i]!=' ')&&(str[i+1]!=''))
  277. {
  278. Fie[c][j++]=str[i++];
  279. }
  280. }else{
  281. if((c+1<=5)&&(ziduan[c+1]==0))
  282. {
  283. ziduan[c]=40;
  284. m_zdshu=c;
  285. }
  286. while(((i-zd)<ziduan[c])&&(str[i]!=13))//若不加str[i]!=13条件，单元格高度加倍
  287. {
  288. Fie[c][j++]=str[i++];
  289. if((str[i]==',')&&(str[i+1]==13))//遇到，加回车符即可判断下行还是此记录内容
  290. {
  291. m_duozd=1;
  292. }
  293. if(str[i]==13) break;
  294. }
  295. }
  296. Fie[c][j]='';//Status
  297. if(Fie[c][0]=='')//Excel存在这样一种情况：若该单元格无数据时，该单元格与上一单元格会合并成一个单元格。
  298. { //该处理就为解决这一问题。
  299. Fie[c][0]=' ';
  300. Fie[c][1]='';
  301. }
  302. if(m_zhi==1)
  303. {
  304. while((str[i]==' ')&&(str[i]!=''))
  305. {
  306. i++;
  307. }
  308. ziduan[c]=i-zd;
  309.     zd=i;
  310. }
  311. zd=i;
  312. }
  313. while(i<strlen(str))
  314. {
  315. i++;
  316. }
  317. if(m_zhi==1)
  318. m_zhi=0;
  319. }
  320. i++;
  321. }
  323. // printf("------------n|%s|-----",Fie[0]);
  324. if(m_duozd==1){  //遇到一条记录占多行的情况 插入累加到数据库中
  325. if((Fie[0][0]==' ')&&(Fie[0][1]==' '))
  326. {
  327. strcat(v_duozd[m_zdshu],Fie[m_zdshu]);
  328. }else{
  329. for(int k=0;k<6;k++){
  330. strcpy(v_duozd[k],Fie[k]);
  331. }
  332. }
  334. }else
  335. {
  336. if((Fie[0][0]==' ')&&(Fie[0][1]==' '))
  337. {
  338. strcat(v_duozd[m_zdshu],Fie[m_zdshu]);
  339. for(int t=0;t<6;t++)
  340. {
  341. *(Fe+t)=v_duozd[t];
  342. }
  344. }else{
  346. for(int t=0;t<6;t++)
  347. {
  348. *(Fe+t)=Fie[t];
  349. }
  350. for(int k=0;k<6;k++){
  352. strcpy(v_duozd[k],Fie[k]);
  353. }
  354. }
  355. }
  356. return Fe;
  357. }
  360. HRESULT InsertExcel::AutoWrap(int autoType, VARIANT *pvResult, IDispatch *pDisp, LPOLESTR ptName, int cArgs...) {
  361.     // Begin variable-argument list...
  362.     va_list marker;
  363.     va_start(marker, cArgs);
  365.     if(!pDisp) {
  366.         MessageBox(NULL,_T("NULL IDispatch passed to AutoWrap()"),_T("Error"), 0x10010);
  367.         _exit(0);
  368.     }
  370.     // Variables used...
  371.     DISPPARAMS dp = { NULL, NULL, 0, 0 };
  372.     DISPID dispidNamed = DISPID_PROPERTYPUT;
  373.     DISPID dispID;
  374.     HRESULT hr;
  375.     char buf[200];
  376.     char szName[200];
  378.     // Convert down to ANSI
  379.     WideCharToMultiByte(CP_ACP, 0, ptName, -1, szName, 256, NULL, NULL);
  381.     // Get DISPID for name passed...
  382.     hr = pDisp->GetIDsOfNames(IID_NULL, &ptName, 1, LOCALE_USER_DEFAULT, &dispID);
  383.     if(FAILED(hr)) {
  384.         sprintf(buf, "IDispatch::GetIDsOfNames("%s") failed w/err 0x%08lx", szName, hr);
  385. //LPCSTR lbuf=(LPCSTR)buf;
  386.         MessageBox(NULL, buf,_T("AutoWrap()"), 0x10010);
  387.         _exit(0);
  388.         return hr;
  389.     }
  391.     // Allocate memory for arguments...
  392.     VARIANT *pArgs = new VARIANT[cArgs+1];
  393.     // Extract arguments...
  394.     for(int i=0; i<cArgs; i++) {
  395.         pArgs[i] = va_arg(marker, VARIANT);
  396.     }
  398.     // Build DISPPARAMS
  399.     dp.cArgs = cArgs;
  400.     dp.rgvarg = pArgs;
  402.     // Handle special-case for property-puts!
  403.     if(autoType & DISPATCH_PROPERTYPUT) {
  404.         dp.cNamedArgs = 1;
  405.         dp.rgdispidNamedArgs = &dispidNamed;
  406.     }
  408.     // Make the call!
  409.     hr = pDisp->Invoke(dispID, IID_NULL, LOCALE_SYSTEM_DEFAULT, autoType, &dp, pvResult, NULL, NULL);
  410.     if(FAILED(hr)) {
  411.         sprintf(buf, "IDispatch::Invoke("%s"=%08lx) failed w/err 0x%08lx", szName, dispID, hr);
  412. //LPCSTR lbuf=(LPCSTR)buf;
  413.         MessageBox(NULL, buf,_T("AutoWrap()"), 0x10010);
  414.         _exit(0);
  415.         return hr;
  416.     }
  417.     // End variable-argument section...
  418.     va_end(marker);
  420.     delete [] pArgs;
  422.     return hr;
  423. }