易语言TXT文本合并?版本 2.支持库 shell.支持库 spec.子程序 _按钮合并_被单击.局部变量 目录名, 文本型.局部变量 文件名, 文本型.局部变量 合并后的文本, 文本型目录名 = 浏览文件夹 (“欲合并的目录”
易语言TXT文本合并?
版本 2亚博体育.支持(读:chí)库 shell
.支持库【练:kù】 spec
.子程序 _按钮澳门金沙合(繁:閤)并_被单击
.局部变(繁:變)量 目录名, 文本型
.局部变量 文件名, 文本[练:běn]型
.局部变量 合并后的【de】文本, 文本型
目录名 = 浏览文件夹 (“欲合并[繁体:並]的目录”, )
.如果真 (目录名 = “”)
澳门永利返回{pinyin:huí} ()
.如{拼音:rú}果真结束
文件名 = 寻找文(读:wén)件 (目录名 + “” + “*.TXT”, )
.判断循幸运飞艇环首 (文【wén】件名 ≠ “”)
.如果真 (文(拼音:wén)件名 ≠ “.” 或 文件名 ≠ “..”)
合并后《繁体:後》的文《练:wén》本 = 合并后的文【练:wén】本 + 到文本 (读入文件 (目录名 + “” + 文件名))
调试输澳门新葡京出 (合并后(繁体:後)的文本)
.如果真结[繁:結]束
文《练:wén》件名 = 寻找文件 (, )
.判断循环(繁体:環)尾 ()
写到文件 (“C:Documents and SettingsAdministrator桌面合并后的文{拼音:wén}本.TXT”, 到字节[繁:節]集 (合并后的文本))
本文链接:http://21taiyang.com/Open-SourceComputers/20882123.html
易语言文本běn 合并api转载请注明出处来源