回 帖 发 新 帖 刷新版面

主题:如何删去备注字段中的回车、换行符

为了对数据库表中的备注字段删除回车、换行符,我用了如下代码:

use abc
do while !eof()
  replace 备注 with CHRTRANC(备注,CHR(13)," ")
  ...
  skip
enddo

为何不起作用?请各位指点!

回复列表 (共1个回复)

沙发

在备注字段里有换行的时候,换行符和回车符同时存在,所以要把它们同时删掉。

GO TOP
DO WHILE !EOF()
CC=备注
DO WHILE CHR(13)$CC OR CHR(10)$CC
CC=stuff(CC,AT(CHR(13),CC),1,"")  &&或者 CC=CHRTRANC(CC,CHR(13),"")
CC=stuff(CC,AT(CHR(10),CC),1," ")  &&或者 CC=CHRTRANC(CC,CHR(10)," ")
ENDDO
REPLACE 备注 WITH CC
SKIP 
ENDDO

我来回复

您尚未登录,请登录后再回复。点此登录或注册