| 网站首页 | 业界新闻 | 小组 | 交易 | 人才 | 下载频道 | 博客 | 代码贴 | 在线编程 | 编程论坛
共有 790 人关注过本帖
标题:vfp能实现:搜索目录下的txt文件,并将所有txt文件里内容合并,生成一个汇总 ...
只看楼主 加入收藏
lnsyzhuhua
Rank: 1
等 级:新手上路
帖 子:54
专家分:0
注 册:2017-8-16
结帖率:81.25%
收藏
已结贴  问题点数:20 回复次数:4 
vfp能实现:搜索目录下的txt文件,并将所有txt文件里内容合并,生成一个汇总的txt文件?
搜索目录下的txt文件,并将所有txt文件里内容合并,生成一个新的txt
搜索更多相关主题的帖子: 目录 txt 文件 合并 生成 
2018-08-29 09:49
fyyylyl
Rank: 5Rank: 5
等 级:贵宾
威 望:13
帖 子:228
专家分:375
注 册:2006-5-22
收藏
得分:7 
cPath="c:\temp\"
cNewTxtFile="Newtxt.txt"
CREATE CURSOR  MyTxt(cTxt M)
    APPEND BLANK
FOR  I=1 TO ADIR(MyArray,cPath+"*.txt")
    APPEND MEMO cTxt FROM (cPath+MyArray(i,1))
ENDFOR
COPY MEMO cTxt TO (cNewTxtFile)
USE
MODIFY COMMAND (cNewTxtFile)
当然也可用低级文件相关命令函数实现

2018-08-29 11:24
hyswcyh
Rank: 8Rank: 8
等 级:贵宾
威 望:20
帖 子:391
专家分:896
注 册:2004-11-23
收藏
得分:7 
简明扼要!
2018-08-29 12:57
吹水佬
Rank: 20Rank: 20Rank: 20Rank: 20Rank: 20
等 级:版主
威 望:255
帖 子:7424
专家分:33249
注 册:2014-5-20
收藏
得分:7 
也可以试试:
STRTOFILE(FILETOSTR(cInFile), cOutFile, 1)


[此贴子已经被作者于2018-8-29 14:11编辑过]

2018-08-29 13:47
fyyylyl
Rank: 5Rank: 5
等 级:贵宾
威 望:13
帖 子:228
专家分:375
注 册:2006-5-22
收藏
得分:0 
吹版思路更简单:
cPath="c:\temp\"
cNewTxtFile="Newtxt.txt"
    cTxt=""
FOR  I=1 TO ADIR(MyArray,cPath+"*.txt")
    cTxt=cTxt+FileToStr(cPath+MyArray(i,1))
ENDFOR
STRTOFILE(cTxt,cNewTxtFile)
MODIFY COMMAND (cNewTxtFile)

2018-08-29 15:30
快速回复:vfp能实现:搜索目录下的txt文件,并将所有txt文件里内容合并,生成一 ...
数据加载中...
 
   



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

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