>Renoir,
>
>In fact the field1 will never exceed 8 characters .( file name in DOS)
>
>replace field1 with alltr(subs(list of fields,1,8) something like this
>but not sure it's going to work or not.
>
>Thanks
>PP
Paul,
I like Nadya's code better, but below is another option.
Renoir
Use Temp.dbf Excl
cList = "Name1,Name2,Name3,"
Do While .T.
If At(',',cList)>0
Append Blank
Replace Field1 with Subs(cList,1,At(',',cList)-1)
cList = Right(cList,Len(cList)-At(',',cList))
Else
Exit
Endif
EndDo