SysExcelApplication ExcelApplication;
SysExcelWorkBooks ExcelWorkBooks;
SysExcelWorkBook ExcelWorkBook;
SysExcelWorkSheets ExcelWorkSheets;
SysExcelWorkSheet ExcelWorkSheet;
SysExcelRange ExcelRange;
CustTable custTable;
int row=1;
ExcelApplication = SysExcelApplication ::construct( );
ExcelApplication. visible(true) ;
ExcelWorkBooks = ExcelApplication. workbooks( );
ExcelWorkBook = ExcelWorkBooks. add();
ExcelWorkSheets = ExcelWorkBook. worksheets( );
ExcelWorkSheet = ExcelWorkSheets. itemFromNum( 1);
ExcelWorkSheet. cells().item( row,1).value( 'Account num');
ExcelWorkSheet. cells().item( row,2).value( 'Name');
row++;
while select custTable where custtable.AccountNum like 'c-000*'
{
ExcelWorkSheet. cells().item( row,1).value( custTable. AccountNum) ;
ExcelWorkSheet. cells().item( row,2).value( custTable. Name);
row++;
}
ExcelApplication. finalize( );
strScan (Find a first occurrence of a string in a string) info("int strScan(str _text1,str _text2,int _position,int _number)"); info("Searches a text string for the occurrence of another string."); info("_text1 - The text string to search."); info("_text2 - The string to find."); info("_position - The position at which the search should start."); info("_number - The number of characters that should be searched."); info(int2str(strScan("ABCDEFGHIJ","DE",1,10)));