精华c脚本.docVIP

精华c脚本 1、记录脚本：同一卡片号的每一根钢的数据记录，有多少根，记多少行 #include apdefap.h int gscAction( void ) { #pragma code () char FileName[20] = ; double genshu,row,col; __object* pExcel = NULL; genshu=GetTagDouble(记数根数); SetTagDouble(根数记录,genshu); row=genshu+4; if((GetTagBit(钢温记录信号)==1)) { pExcel = __object_create(Excel.Application.9); //9表示用的是office 2000 pExcel-Visible =0; pExcel-Workbooks -Open (e:\\LZEQ_HMI\\JILU.xls);//Cells(row,col) pExcel-Worksheets(sheet1)-Cells(row,1)-Value=GetTagWord(记数根数 ); pExcel-Worksheets(sheet1)-Cells(row,2)-Value=GetTagChar(开始时间 ); pExcel-Worksheets(sheet1)-Cells(row,3)-Value=GetTagWord(1#高温计 温度记录); pExcel-Worksheets(sheet1)-Cells(row,4)-Value=GetTagFloat(1#水箱流 量记录); pExcel-Worksheets(sheet1)-Cells(row,5)-Value=GetTagWord(2#高温计 温度记录); pExcel-Worksheets(sheet1)-Cells(row,6)-Value=GetTagFloat(2#水箱流 量记录); pExcel-Worksheets(sheet1)-Cells(row,7)-Value=GetTagWord(3#高温计 温度记录); pExcel-Worksheets(sheet1)-Cells(row,8)-Value=GetTagFloat(3#水箱流 量记录); pExcel-Worksheets(sheet1)-Cells(row,9)-Value=GetTagWord(4#高温计 温度记录); pExcel-Worksheets(sheet1)-Cells(row,10)-Value=GetTagWord(5#高温计 温度记录); pExcel-Worksheets(sheet1)-Cells(row,11)-Value=GetTagFloat(4#水箱 流量记录); pExcel-Worksheets(sheet1)-Cells(row,12)-Value=GetTagWord(6#高温计 温度记录); pExcel-Worksheets(sheet1)-Cells(row,13)-Value=GetTagWord(7#高温计 温度记录); pExcel-Worksheets(sheet1)-Cells(row,14)-Value=GetTagFloat(5#水箱 流量记录); pExcel-Worksheets(sheet1)-Cells(row,15)-Value=GetTagWord(8#高温计 温度记录); pExcel-Worksheets(sheet1)-Cells(row,16)-Value=GetTagChar(系统时间 ); SetTagBit(钢温记录信号,0); } pExcel-ActiveWorkbook-Save; pExcel-Workbooks-Close(); pExcel-Quit(); __object_delete(pExcel); return 0; } 2、存储脚本。每一卡片号的钢记录为一张以卡片号为名的Excel表 #include apdefap.h int gscAction( void ) { #pragma code (kernel32.dll) VOID GetLocalTime(LPSYSTEMTIME lpSystemTime); #pragma code () char FileName[20] = ; char* Name; float guige,hao; #pragma code(kernel32.dll)