CLOSE all activate screen SET TALK OFF SET ECHO off GETDIR() thisform.text1.Value=GETFILE() thisform.text2.value ="am" SET DEFAULT TO e:\ut LOCAL am am = thisform.text2.value CREATE TABLE &am(char1 C(10), char2 C(70),char3 C(10), char4 C(10),char5 C(10), char6 C(40),char7 C(10), char8 C(10),char9 c(10), char10 c(40),char11 C(10), char12 C(60),char13 C(50), char14 C(40),char15 C(10), char16 C(10),char17 C(10), char18 C(70),char19 C(10), char20 C(10),char21 C(10), char22 C(40),char23 C(10), char24 C(10),char25 C(10), char26 C(70),char27 C(10), char28 C(10) NOCPTRANS) APPEND FROM (thisform.text1.value)TYPE XLS use am exclusive index on val(char9) tag char9 select sys(2015) as SortOrder,* from am ; order by 1 descending ; into cursor crsTemp nofilter select am zap select crsTemp scan if !seek(char9,'am','char9') scatter fields char2 , char4 , char7, char8, char9, char13 , char25, char26, char27, char28 memvar insert into am from memvar endif endscan Select * from am ; where INLIST( val(char3), 100, 201, 202, 203 ); and ( inList( upper(allt(char25)), "ADSL 1", "B ISDN ") or upper(left(char25,2)) = "LL" ); into table am2 nofilter brow **************************convert to excel***************** CLOSE all USE am2 *GETFILE() gcDelimName = ALIAS( ) + '.xls' gcDelimFile = PUTFILE('excel_file:', gcDelimName, 'xls') IF EMPTY(gcDelimFile) && Esc pressed CANCEL ENDIF COPY TO (gcDelimFile) XLS && Create delimited file DROP TABLE am DROP TABLE am2 SET DEFAULT TO e:\utthanks
>>>scatter fields char2 , char4 , char7, char8, char9, char13 , char25, char26, char27, char28 memvar>>>
SCATTER MEMO MEMVAR BLANK>>>>>on the line before
scatter memvar memo>>>>>
>>>>>>scan >>>>>> if !seek(char9,'am','char9') >>>>>> * scatter memvar memo >>>>>>**i try as.. scatter fields char2 , char4 , char7, char8, char9, char13 , char25, char26, char27, char28 memvar &&& no data at my table >>>>>> >>>>>> scatter fields except char2 , char4 , char7, char8, char9, char13 , char25, char26, char27, char28 memvar >>>>>> insert into am from memvar >>>>>> >>>>>> endif >>>>>>endscan >>>>>>>>>>>>