* Big assumption here that the line is always the same length text to lcLine noshow flags 1 --------------------------------------------------------------------------------------------------- endtext text to lcData noshow flags 1 --------------------------------------------------------------------------------------------------- 00000015 Copy this block into a file called Import.txt and put into appropriate Export directory --------------------------------------------------------------------------------------------------- 1,HIPAA,HIPAA,20080102,EXP_00D7280001.TIF 1,Office Notes,Office Notes,20080102,EXP_00D7260001.TIF 1,Prescriptions,Prescriptions,20080102,EXP_00D7160001.TIF --------------------------------------------------------------------------------------------------- 00000016 Copy this block into a file called Import.txt and put into appropriate Export directory --------------------------------------------------------------------------------------------------- 1,HIPAA,HIPAA,20080102,EXP_00D7280001.TIF 1,Office Notes,Office Notes,20080102,EXP_00D7260001.TIF endtext do while not Empty(lcData) lcHeader = Strextract(lcData, lcLine, lcLine, 1, 4) lcData = Substr(lcData, Len(lcHeader) + 1) lcBody = Strextract(lcData, '', lcLine, 1) if Empty(lcBody) && There were no more lines lcBody = lcData endif * Do something with lcHeader and lcBody lcData = Substr(lcData, Len(lcBody) + 1) enddo