易语言吧

 找回密码
 立即注册
搜索
热搜: 活动 交友 discuz
查看: 4543|回复: 4

[技术文章] 易语言写到文件不被覆盖的两种方法

[复制链接]

295

主题

537

帖子

1万

积分

超级版主

Rank: 8Rank: 8

积分
14490

幽默大师终生成就

威望
0
易币
13868
贡献
0
积分
14490
UID
580
在线时间
464 小时
注册时间
2019-12-5
发表于 2020-3-6 11:25:06 | 显示全部楼层 |阅读模式
本帖最后由 十万个为什么 于 2020-3-6 11:31 编辑

易语言我们经常要写到文件到外部文件.如要把几段文本写到外部txt文件

但是我们写一次上次的就会被覆盖了.那么乍么解决写到文件不被覆盖呢

1.把所有要写的文本先记录到变量里.然后.统一写出.
如下图实例.我们就是把所有子目录名.记录到一个叫子目录名变量里了.等循环结束后统一写出
截图202003061114486668..png
源码参考
  1. .版本 2
  2. .支持库 spec

  3. .子程序 _按钮_枚举子目录_被单击
  4. .局部变量 子目录数组, 文本型, , "0"
  5. .局部变量 子目录数, 整数型
  6. .局部变量 计次, 整数型
  7. .局部变量 索引, 整数型
  8. .局部变量 子目录名变量, 文本型

  9. 子目录数 = 目录_枚举子目录 (编辑框_路径.内容, 子目录数组, 假, 假)
  10. 调试输出 (子目录数)


  11. 调试输出 (取数组成员数 (子目录数组))

  12. .计次循环首 (子目录数, 计次)
  13.     子目录名变量 = 子目录名变量 + 子目录数组 [计次] + #换行符

  14. .计次循环尾 ()

  15. 写到文件 (取运行目录 () + “/子目录名.txt”, 到字节集 (子目录名变量))

复制代码



2.通过打开文件取到文件号来实现写文本不覆盖的方法.
例子如下
520.png

0

主题

19

帖子

2738

积分

VIP超级贵宾

Rank: 8Rank: 8

积分
2738

终生成就赞助会员

威望
198
易币
2323
贡献
0
积分
2738
UID
833
在线时间
112 小时
注册时间
2020-1-3
发表于 2020-3-6 14:20:56 | 显示全部楼层
楼主发贴辛苦了,谢谢楼主分享!我觉得易语言吧是注册对了!
回复

使用道具 举报

12

主题

29

帖子

444

积分

易语言学徒

Rank: 3Rank: 3

积分
444
威望
0
易币
415
贡献
0
积分
444
UID
2149
在线时间
8 小时
注册时间
2020-3-3
发表于 2020-3-6 19:22:51 | 显示全部楼层

楼主太厉害了!楼主,我爱你!我觉得易语言吧真是个好地方!
回复

使用道具 举报

1

主题

18

帖子

155

积分

易语言菜鸟

Rank: 2

积分
155
威望
0
易币
137
贡献
0
积分
155
UID
2093
在线时间
17 小时
注册时间
2020-3-1
发表于 2020-4-15 15:42:31 | 显示全部楼层


楼主太厉害了!楼主,我爱你!我觉得易语言吧真是个好地方!
回复

使用道具 举报

0

主题

2339

帖子

9564

积分

VIP超级贵宾

Rank: 8Rank: 8

积分
9564
威望
198
易币
6829
贡献
0
积分
9564
UID
11903
在线时间
36 小时
注册时间
2021-1-23
发表于 2021-5-28 23:00:32 | 显示全部楼层
楼主发贴辛苦了,谢谢楼主分享!我觉得易语言吧是注册对了!
回复

使用道具 举报

懒得打字嘛,点击右侧快捷回复 【选择右侧内容,快速回复】
您需要登录后才可以回帖 登录 | 立即注册

本版积分规则

大漠插件注册码无须等1-3号

QQ|一:站内所有资源均来自互联网收集或用户上传分享,本站不拥有此类资源的版权。 作为网络服务提供者,对转载行为的发生不具备充分的监控能力。但是当版权拥有者提出侵权并出示充分的版权证明材料时,易语言吧负有移除转载作品以及停止继续传播的义务。在满足前款条件下采取移除等相应措施后不为此向原发布人承担违约责任,包括不承担因侵权不成立而给原发布人带来损害的赔偿责任。 用户免费分享产生,如果侵犯了你的权益,联系QQ:3066137757|Archiver|手机版|小黑屋|易语言吧

GMT+8, 2024-11-21 20:51 , Processed in 0.239847 second(s), 35 queries .

Powered by Discuz! X3.4

© 2001-2017 Comsenz Inc.

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