lnHandle = fopen(NameOfDataFile) do while not feof(lnHandle) lcRecord = fread(lnHandle, NumberOfBytesPerRecord) lcField1 = left(lcRecord, NumberofBytesInFirstField) lcField2 = substr(lcRecord, StartPositionOfSecondField, NumberofBytesInSecondField) insert into NameOfVFPTable values (lcField1, lcField2) enddoYou can do any data conversion of the fields you need (eg. character to number or date) before inserting into the VFP table.
lparameters tcValue local lcValue, ; lnI, ; lnChar #define ccPOSITIVE 'C' lcValue = '' for lnI = 1 to len(tcValue) lnChar = asc(substr(tcValue, lnI, 1)) lcValue = lcValue + right(transform(lnChar, '@0'), 2) next lnI lnValue = val(left(lcValue, len(lcValue) - 1)) * ; iif(right(lcValue, 1) = ccPOSITIVE, 1, -1) return lnValueHope this helps.