USE main1 gcDelimName = ALIAS() + [.XLS] gcDelimName = [\\jtchp58544\new smd\] + FORCEEXT(JUSTSTEM(gcDelimName),[XLS]) COPY fields num,Msisdn,date,flag TO (gcDelimFile) XL5 browthanks
>USE main1 >gcDelimName = ALIAS() + [.XLS] >gcDelimName = [\\cctfil01\hrd-spdata\SMD\Projects\Customer satisfaction Measurments\1214 Call Center Satisfaction\]+; > [2005 1214 Servcie II\customer database\Treated data\] + FORCEEXT(JUSTSTEM(gcDelimName),[XLS]) >COPY fields num,Msisdn,date,flag TO (gcDelimFile) XL5 >>
>>USE main1 >>gcDelimName = ALIAS( ) + '.xls' >>gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls') >>IF EMPTY(gcDelimFile) && Esc pressed >> CANCEL >>ENDIF >> >>z="\\cctfil01\hrd-spdata" >>gcDelimName = [z\SMD\Projects\Customer satisfaction Measurments\1214 Call Center Satisfaction\]+; >> [2005 1214 Servcie II\customer database\Treated data\] + FORCEEXT(JUSTSTEM(gcDelimName),[XLS]) >>COPY fields num,Msisdn,date,flag TO (gcDelimFile) XL5 >>>>>Mohammed,
>>>>&&&at command button---> click event, maybe it must be used via another events >>>>SET DEFAULT TO d:\llocp >>>> >>>>USE main1 >>>>gcDelimName = ALIAS( ) + '.xls' >>>>gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls') >>>>IF EMPTY(gcDelimFile) && Esc pressed >>>> CANCEL >>>>ENDIF >>>> >>>>gcDelimName = [\\server\z:\SMD\Projects\Customer satisfaction Measurments\1214 Call Center Satisfaction\]+; >>>> [2005 1214 Servcie II\customer database\Treated data\] + FORCEEXT(JUSTSTEM(gcDelimName),[XLS]) >>>>COPY fields num,Msisdn,date,flag TO (gcDelimFile) XL5 >>>>SET DEFAULT TO "\\server\z:\SMD\Projects\Customer satisfaction Measurments\1214 Call Center Satisfaction\2005 1214 Servcie II\customer database\Treated data\" >>>>brow >>>>SET DEFAULT TO d:\llocp >>>> >>>> CLOSE all >>>>SET TALK OFF >>>>SET ECHO off >>>>SET SAFETY off >>>> >>>>*********************************** >>>>SELECT 3 >>>>USE mstr >>>>SET DELETED on >>>>append from main2 >>>>DELETE FROM main2 >>>>************************************ >>>>getdir() >>>>thisform.text9.Value=GETFILE('xls') >>>>CREATE TABLE main1; >>>>(msisdn n(15),num n(8),date d(8) ,flag n(1) ) >>>>APPEND FROM (thisform.text9.Value) TYPE xl5 >>>>Replace Date with thisform.text1.value ; >>>> flag with 0 ; >>>> num with RecNo() ALL >>>>************************************************* >>>>SET DEFAULT TO d:\llocp\ >>>> >>>>>>>>thanks
>>>>>>USE main1 >>>>>>gcDelimName = ALIAS( ) + '.xls' >>>>>>gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls') >>>>>>IF EMPTY(gcDelimFile) && Esc pressed >>>>>> CANCEL >>>>>>ENDIF >>>>>> >>>>>>COPY fields num,Msisdn,date,flag TO "\\server\z:\SMD\Projects\Customer satisfaction Measurments\1214 Call Center Satisfaction\2005 1214 Servcie II\customer database\Treated data\ (gcDelimFile) XL5" >>>>>>brow >>>>>>SET DEFAULT TO d:\llocp >>>>>>>>>>>>thanks
>>>>>USE main1 >>>>>gcDelimName = ALIAS( ) + '.xls' >>>>>gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls') >>>>>IF EMPTY(gcDelimFile) && Esc pressed >>>>> CANCEL >>>>>ENDIF >>>>> >>>>>gcDelimName = [\\server\z:\SMD\Projects\Customer satisfaction Measurments\1214 Call Center Satisfaction\]+; >>>>> [2005 1214 Servcie II\customer database\Treated data\] + FORCEEXT(JUSTSTEM(gcDelimName),[XLS]) >>>>>COPY fields num,Msisdn,date,flag TO (gcDelimFile) XL5 >>>>>brow >>>>>SET DEFAULT TO d:\llocp >>>>>