| 网站首页 | 业界新闻 | 小组 | 威客 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
欢迎加入我们,一同切磋技术
用户名:   
 
密 码:  
共有 2297 人关注过本帖
标题:求助!如何自动将文件夹下所有的.txt文件转化成同名的.dbf文件
只看楼主 加入收藏
施南人
Rank: 2
等 级:论坛游民
帖 子:40
专家分:27
注 册:2013-5-19
收藏
得分:0 
学习了,向楼主致敬!
2013-07-02 14:35
cymjx
Rank: 2
等 级:论坛游民
帖 子:74
专家分:29
注 册:2010-11-9
收藏
得分:0 
请sdta帮忙老师看一下。上传文本文件。
1.rar (8.99 KB)
2013-07-02 18:53
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
程序代码:
CREATE CURSOR T (XM C(8),SFZ C(18),JE N(6))
CSTR=FILETOSTR([1.TXT])
NROW=MEMLINES(CSTR)
FOR I=2 TO NROW
    LCSTR=ALLTRIM(MLINE(CSTR,I))
    IF EMPTY(LCSTR)
       LOOP
    ENDIF
    FOR J=OCCURS([ ],LCSTR) TO 1 STEP -1
        LCSTR=STRTRAN(LCSTR,PADL([],J,[ ]),[,])
    ENDFOR
    =ALINES(AA,LCSTR,[,])
    INSERT INTO T FROM ARRAY AA
ENDFOR
BROWSE

坚守VFP最后的阵地
2013-07-02 21:52
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
以下是引用cymjx在2013-7-2 18:53:58的发言:

请sdta帮忙老师看一下。上传文本文件。
回老师:你的文本文件不是标准SDF格式文件,故不能用APPEND FROM 命令转换

坚守VFP最后的阵地
2013-07-02 21:54
cymjx
Rank: 2
等 级:论坛游民
帖 子:74
专家分:29
注 册:2010-11-9
收藏
得分:0 
sdta老师,还是有一点问题。
图片附件: 游客没有浏览图片的权限,请 登录注册
2013-07-03 18:07
sdta
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
来 自:江苏省连云港市
等 级:版主
威 望:335
帖 子:9841
专家分:27213
注 册:2012-2-5
收藏
得分:0 
vfp6版本改为
=ALINES(AA,CHRTRAN(LCSTR,[,],CHR(13)+CHR(10)))
楼上的代码是VFP9版本

坚守VFP最后的阵地
2013-07-03 21:50
cymjx
Rank: 2
等 级:论坛游民
帖 子:74
专家分:29
注 册:2010-11-9
收藏
得分:0 
谢谢sdta老师,运行成功了。
2013-07-04 19:49
快速回复:求助!如何自动将文件夹下所有的.txt文件转化成同名的.dbf文件
数据加载中...
 
   



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

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