>>I want to convert a txt-file (comma-delimited) into a table with memofields.
>>when I enter the command:
>>APPEND FROM 'advisor.txt' TYPE DELIMITED WITH ,
>>he answers me:
>>No fields found to process.
>>
>>What do I wrong?
>>
>>regards
>
>Werner,
>Append from doesn't work for memo fields. Probably you had no fields other than memo or gen type in your table.
>
>There are workarounds. One work around is to save memo content per field to files and 'append memo memofieldname from filename'. Other is more easy in cases :
>
>

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 memo

Cetin

My intention to code that way flew with the wind as I put chr(13) there :(

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

Cetin