*Sample call *=Delimited2Fox("c:\temp\delfile.txt","c:\myapp\data\mytable") function Delimited2Fox lparameters cFileName, cInsertFile * cFilename - fullname of text file * cInsertFile - Structure prepared fox table #define FieldDelimiter "%%%" dimension aPattern[11,11] for ix = 1 to 11 for jx = 1 to 11 lcLeft = iif(ix = 11,["],str(ix-1,1)) lcRight = iif(jx = 11,["],str(jx-1,1)) aPattern[ix,jx] = lcLeft+","+lcRight endfor endfor handle = fopen(cFilename) dimension aParsed[1] do while !feof(handle) =parseline(fgets(handle,65535),@aParsed) insert into (cInsertFile) ; from array aParsed enddo =fclose(handle) function parseline lparameters cLine, aParseArray local ix,jx for ix = 1 to 11 for jx = 1 to 11 cLine=strtran(cLine,; aPattern[ix,jx],; stuff(aPattern[ix,jx],2,1,; FieldDelimiter)) endfor endfor lnElements = occurs(FieldDelimiter,cLine)+1 dimension aParseArray[lnElements] ix = 1 do while occurs(FieldDelimiter,cLine)>0 aParseArray[ix] = ; chrtran(substr(cLine,; 1,at(FieldDelimiter,cLine)-1),; ["],[]) cLine = ; substr(cLine,; at(FieldDelimiter,cLine)+; len(FieldDelimiter)) ix = ix + 1 enddo aParseArray[ix] = chrtran(cLine,["],[])Cetin