Use myAllMemoTable
>lcStr = filetostr('myText.txt')
>Do while occurs(',',lcStr)>fcount()
>  lcLine = left(lcStr,at(',',lcStr,fcount())-1)
>  Append blank
>  GetMemos(lcLine)
>  lcStr = substr(lcStr,at(',',lcStr,fcount())+1)
>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 memo
>