多谢54zq,问题解决了,我是这样做的:
repeat while TRUE
put offset("/", thefile) into x --遇到/回车
-- put x
put char 1 to x-1 of theFile into myword
delete char 1 to x of thefile
put myword &return after field num -- display the text in a field
-- put length(field num)& y
if length(field num)>y then
exit repeat
end if
end repeat
不知道DR能不能自动生成FIELD,这样最轻松了.我现在还要自己先建立许多空的FIELD,然后用程序加文本,请高手指教.