如何解决想在一个字段里存放800多个符的问题
我想把一个TXT文件导入dbf中,但一行有800多个字符,字符型字段只能放254个字符,用什么方法可以把它完整的导入呢?谢谢
*--- 在数据表中为备注字段添加数据 *--- 生成字符串 SET MEMOWIDTH TO 1024 &&该行代码可以不要 STORE "" TO CSTR0,CSTR1 FOR I=1 TO 20 IF I<=10 CSTR0=CSTR0+REPLICATE(CHR(I+64),1000)+IIF(I<10,CHR(13)+CHR(10),"") ELSE CSTR1=CSTR1+REPLICATE(CHR(I+64),1000)+IIF(BETWEEN(I,11,19),CHR(13)+CHR(10),"") ENDIF ENDFOR *--- 创建数据表结构 CREATE CURSOR TABNAME (编号 C(2),内容 M) *--- 添加记录 INSERT INTO TABNAME VALUES ("01","") INSERT INTO TABNAME VALUES ("02","") *--- 将字符串 CSTR0、CSTR1 添加到备注字段"内容"中 GO TOP REPLACE 内容 WITH CSTR0 GO 2 REPLACE 内容 WITH CSTR1 BROWSE每个备注字段中有10000字符
CLOSE DATABASE USE MYDBF NLINE=MEMLINES(FILETOSTR("MYTXT.TXT")) && 文本文件的行数 FOR I=1 TO NLINE IF NLINE>RECCOUNT() && 如果文本文件的行数大于数据表中的记录数 IF I<=RECCOUNT() && 如果 I<=RECCOUNT() REPLACE 内容 WITH MLINE(FILETOSTR("MYTXT.TXT"),I) ELSE && 如果 I>RECCOUNT() 则退出 FOR...ENDFOR 循环 EXIT ENDIF ELSE && 如果文本文件的行数小于等于数据表中的记录数 REPLACE 内容 WITH MLINE(FILETOSTR("MYTXT.TXT"),I) ENDIF ENDFOR