Clear all Use myAllMemoTable lcStr = filetostr('myText.txt') Do while len(lcStr)>0 lcLine = left(lcStr,at(chr(13),lcStr)-1) Append blank GetMemos(lcLine) lcStr = substr(lcStr,at(chr(13),lcStr)+1) If asc(lcStr)=10 lcStr=substr(lcStr,2) Endif Enddo Function GetMemos Lparameters tcStr Local lnElemCount, lnArrayElem lnElemCount = occurs(",",tcStr)+1 Local aArray[lnElemCount] lnArrayElem = 1 Do while occurs(",",tcStr)>0 aArray[lnArrayElem] = alltrim(substr(tcStr,1, at(",",tcStr)-1)) lnArrayElem = lnArrayElem + 1 tcStr = substr(tcStr, at(",",tcStr)+1) Enddo aArray[lnArrayElem] = alltrim(substr(tcStr,1)) Gather from aArray memoCetin