| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 3426 人关注过本帖, 1 人收藏
标题:如何解决想在一个字段里存放800多个符的问题
只看楼主 加入收藏
hn9810
Rank: 1
等 级:新手上路
帖 子:58
专家分:0
注 册:2010-7-13
结帖率:11.11%
收藏(1)
已结贴  问题点数:10 回复次数:90 
如何解决想在一个字段里存放800多个符的问题
我想把一个TXT文件导入dbf中,但一行有800多个字符,字符型字段只能放254个字符,用什么方法可以把它完整的导入呢?谢谢
搜索更多相关主题的帖子: 如何 800 
2012-08-17 23:40
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:1 
数据表中增加一个备注字段

坚守VFP最后的阵地
2012-08-17 23:53
hn9810
Rank: 1
等 级:新手上路
帖 子:58
专家分:0
注 册:2010-7-13
收藏
得分:0 
我是一个有n行的txt文件,每行都超过800个字符,如何导入dbf库里面。请老手些说详细一点,谢谢!
2012-08-18 00:03
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:0 
以下是引用hn9810在2012-8-18 00:03:36的发言:

我是一个有n行的txt文件,每行都超过800个字符,如何导入dbf库里面。请老手些说详细一点,谢谢!
1.在数据表(假设为:MYDBF.DBF)增加一个备注字段,字段名:内容
2.将文本文件(假设文件名:MYTXT.TXT)内容添加到 内容 字段中:
USE MYDBF
GO TOP &&定位在第一条记录,此处可以定位到任意一条记录的位置
REPLACE 内容 WITH FILETOSTR("MYTXT.TXT") &&将文本文件内容添加到备注字段 内容 中,文本文件如果不在当前路径下,要添加全路径名。

坚守VFP最后的阵地
2012-08-18 00:18
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:0 
程序代码:
*--- 在数据表中为备注字段添加数据
*--- 生成字符串
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字符

[ 本帖最后由 sdta 于 2012-8-18 00:56 编辑 ]

坚守VFP最后的阵地
2012-08-18 00:54
hn9810
Rank: 1
等 级:新手上路
帖 子:58
专家分:0
注 册:2010-7-13
收藏
得分:0 
老师txt中的一行,在dbf中需要实现为一条记录,咋整
2012-08-18 00:56
hn9810
Rank: 1
等 级:新手上路
帖 子:58
专家分:0
注 册:2010-7-13
收藏
得分:0 
您有邮箱吗?我把那个那个txt文件给你看一下,你看砸个弄!!!
2012-08-18 01:02
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:0 
以下是引用hn9810在2012-8-18 00:56:13的发言:

老师txt中的一行,在dbf中需要实现为一条记录,咋整
程序代码:
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


[ 本帖最后由 sdta 于 2012-8-18 01:15 编辑 ]

坚守VFP最后的阵地
2012-08-18 01:13
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9848
专家分:27241
注 册:2012-2-5
收藏
得分:0 
上传到帖子里就行

坚守VFP最后的阵地
2012-08-18 01:20
hn9810
Rank: 1
等 级:新手上路
帖 子:58
专家分:0
注 册:2010-7-13
收藏
得分:0 
11.rar (666 Bytes)

2012-08-18 01:55
快速回复:如何解决想在一个字段里存放800多个符的问题
数据加载中...
 
   



关于我们 | 广告合作 | 编程中国 | 清除Cookies | TOP | 手机版

编程中国 版权所有,并保留所有权利。
Powered by Discuz, Processed in 0.129702 second(s), 8 queries.
Copyright©2004-2024, BCCN.NET, All Rights Reserved