开启辅助访问 切换到宽版

精易论坛

 找回密码
 注册

QQ登录

只需一步,快速开始

用微信号发送消息登录论坛

新人指南 邀请好友注册 - 我关注人的新帖 教你赚取精币 - 每日签到


求职/招聘- 论坛接单- 开发者大厅

论坛版规 总版规 - 建议/投诉 - 应聘版主 - 精华帖总集 积分说明 - 禁言标准 - 有奖举报

查看: 2533|回复: 9
收起左侧

[已解决] 文本合并!!

 关闭 [复制链接]
结帖率:89% (93/105)
发表于 2010-6-8 20:46:39 | 显示全部楼层 |阅读模式   重庆市重庆市
5精币
我想实现一个目录下的 所有文本文件全合并成一个文件,用什么指令可以实现

请高手指教

最佳答案

查看完整内容

[e].版本 2 .程序集 窗口程序集1 .子程序 _按钮1_被单击 .局部变量 文本1, 文本型 .局部变量 文本2, 文本型 .局部变量 文本3, 文本型 .局部变量 文本4, 文本型 ' 读取文本,将文本的内容赋值给局部变量 文本1 = 到文本 (读入文件 (取运行目录 () + “/” + “1.txt”)) 文本2 = 到文本 (读入文件 (取运行目录 () + “/” + “2.txt”)) 文本3 = 到文本 (读入文件 (取运行目录 () + “/” + “3.txt”)) ' 将所有赋值的 ...

回答提醒:如果本帖被关闭无法回复,您有更好的答案帮助楼主解决,请发表至 源码区 可获得加分喔。
友情提醒:本版被采纳的主题可在 申请荣誉值 页面申请荣誉值,获得 1点 荣誉值,荣誉值可兑换荣誉会员、终身vip用户组。
快捷通道:申请荣誉值无答案申请取消悬赏投诉有答案未采纳为最佳
结帖率:50% (1/2)

签到天数: 2 天

发表于 2010-6-8 20:46:40 | 显示全部楼层   湖北省武汉市
[e].版本 2

.程序集 窗口程序集1

.子程序 _按钮1_被单击
.局部变量 文本1, 文本型
.局部变量 文本2, 文本型
.局部变量 文本3, 文本型
.局部变量 文本4, 文本型

' 读取文本,将文本的内容赋值给局部变量
文本1 = 到文本 (读入文件 (取运行目录 () + “/” + “1.txt”))
文本2 = 到文本 (读入文件 (取运行目录 () + “/” + “2.txt”))
文本3 = 到文本 (读入文件 (取运行目录 () + “/” + “3.txt”))
' 将所有赋值的局部变量连接起来,赋值给一个新的局部变量
文本4 = 文本1 + #换行符 + 文本2 + #换行符 + 文本3

写到文件 (取运行目录 () + “/” + “4.txt”, 到字节集 (文本4))

[/e]


写成这样了 我想没必要再全写下去了。全写下来就没意义了。
我发现我以前解答的弊端了,把源码写完整了,连让人家思考都不用,那我这个帮忙倒是真没意义。
我从来不解答辅助制作的问题,学易语言冲着那个的太多了。太多都是一时心血来潮,觉得不是那么简单,就放弃了。
多文件 并且文件个数不确定,那么你就用数组。
用这个命令选择文件,可以多选。如果是找一个目录下所有的TXT文本,这个命令我没用过,我也不知道有没有。
〈文本型〉 打开文件对话框扩展 ([整数型 父窗口句柄],[文本型 对话框标题],[文本型 初始路径],[文本型 过滤器],[整数型 风格])
文件路径 = 打开文件对话框扩展()
单个文件路径 = 分割文本 (文件路径, “,”, )
就得到一个所有选择的文件的路径的数组了。
然后再循环赋值、读取
记次循环首(取数组成员数(),次数)
记次循环尾
再将所有读取到的文件内容所赋给的值
写到文件 ()
目标实现。
例程.rar (1.12 KB, 下载次数: 46)
回复

使用道具 举报

结帖率:25% (1/4)
发表于 2010-6-8 21:04:18 | 显示全部楼层   福建省福州市
先把文件路径全部读入超级列表框,然后进行合并!
回复

使用道具 举报

结帖率:89% (93/105)
 楼主| 发表于 2010-6-8 21:28:47 | 显示全部楼层   重庆市重庆市
代码怎么写
回复

使用道具 举报

结帖率:80% (8/10)
发表于 2010-6-8 21:54:49 | 显示全部楼层   福建省泉州市
简单 是不是覆盖???
回复

使用道具 举报

结帖率:67% (2/3)
发表于 2010-6-8 22:27:46 | 显示全部楼层   吉林省长春市
http://www.onlinedown.net/soft/38183.htm
不知道是不是你要的
回复

使用道具 举报

结帖率:25% (1/4)
发表于 2010-6-8 23:37:38 | 显示全部楼层   福建省福州市
写成这样了 我想没必要再全写下去了。全写下来就没意义了。
我发现我以前解答的弊端了,把源码写完整 ...
77413036 发表于 2010-6-8 23:09



    说的好,真正想学易语言的,起码的,问的问题应该是学习过程中出现的疑惑.而不是上来就问别人要一个软件的代码

强烈BS下那些不劳而获,只想让人义务帮忙写挂的!
回复

使用道具 举报

结帖率:89% (93/105)
 楼主| 发表于 2010-6-8 23:40:51 | 显示全部楼层   重庆市重庆市
谢谢了解!!!!!!!!!
回复

使用道具 举报

结帖率:67% (16/24)
发表于 2010-6-9 12:33:48 | 显示全部楼层   四川省德阳市
回复 7# airpppp


    我也BS一把,最近发现论坛上好多人一上来就问什么工具怎么做的之类的话,在看下他们的级别,都是些刚进来的会员,一来就要源码,金币还给的少,搞得好像他是大爷似的.....
回复

使用道具 举报

发表于 2010-6-10 13:26:29 | 显示全部楼层   吉林省白城市
你可以用编辑框.加入文本
先把所有的文本读取出来,然后在把编辑框的内容写到一个文件。
回复

使用道具 举报

您需要登录后才可以回帖 登录 | 注册

本版积分规则 致发广告者

发布主题 收藏帖子 返回列表

sitemap| 易语言源码| 易语言教程| 易语言论坛| 易语言模块| 手机版| 广告投放| 精易论坛
拒绝任何人以任何形式在本论坛发表与中华人民共和国法律相抵触的言论,本站内容均为会员发表,并不代表精易立场!
论坛帖子内容仅用于技术交流学习和研究的目的,严禁用于非法目的,否则造成一切后果自负!如帖子内容侵害到你的权益,请联系我们!
防范网络诈骗,远离网络犯罪 违法和不良信息举报电话0663-3422125,QQ: 793400750,邮箱:wp@125.la
Powered by Discuz! X3.4 揭阳市揭东区精易科技有限公司 ( 粤ICP备12094385号-1) 粤公网安备 44522102000125 增值电信业务经营许可证 粤B2-20192173

快速回复 返回顶部 返回列表