vfp能实现：搜索目录下的txt文件，并将所有txt文件里内容合并，生成一个汇总的txt文件？ - VFP论坛

编程论坛 → 数据库技术 → 『 VFP论坛』 → vfp能实现：搜索目录下的txt文件，并将所有txt文件里内容合并，生成一个汇总的txt文件？

标题：vfp能实现：搜索目录下的txt文件，并将所有txt文件里内容合并，生成一个汇总 ...

只看楼主

lnsyzhuhua

等　级：新手上路
帖　子：58
专家分：0
注　册：2017-8-16
结帖率：77.78%

楼主

已结贴√ 问题点数：20 回复次数：4

vfp能实现：搜索目录下的txt文件，并将所有txt文件里内容合并，生成一个汇总的txt文件？

搜索目录下的txt文件，并将所有txt文件里内容合并，生成一个新的txt

搜索更多相关主题的帖子: 目录　 txt　文件　合并　生成　

2018-08-29 09:49

fyyylyl

等　级：贵宾
威　望：16
帖　子：287
专家分：676
注　册：2006-5-22

第 2 楼

得分: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

等　级：贵宾
威　望：20
帖　子：391
专家分：896
注　册：2004-11-23

第 3 楼

得分:7

简明扼要！

2018-08-29 12:57

吹水佬

等　级：版主
威　望：432
帖　子：10064
专家分：41463
注　册：2014-5-20

第 4 楼

得分:7

也可以试试：
STRTOFILE(FILETOSTR(cInFile), cOutFile, 1)

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

2018-08-29 13:47

fyyylyl

等　级：贵宾
威　望：16
帖　子：287
专家分：676
注　册：2006-5-22

第 5 楼

得分: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

参与讨论请移步原网站贴子：https://bbs.bccn.net/thread-489491-1-1.html